Proceso de programación del acero

Dim Anum, Bnum, R, tmp, a, b 'define algunas variables.

Tmp = 321 'Inicializar datos intermedios.

for anum = 1 to int(321/17)' inicia el ciclo y la comparación comienza desde A=1.

bnum = int((321-anum * 17)/27)' Encuentra el número de b.

r =(321-anum * 17)mod 27 'Encuentra la longitud del material restante.

Si R