PROCEDURE

COMMENTI

to mcd :a :b

make "r remainder :a :b

if :r=0 [make "mcd :b stop]

make "a :b make "b :r

mcd :a :b

end

La procedura per calcolare il M.C.D. utilizza il metodo delle divisioni successive. Si divide ricorsivamente il divisore per il resto, quando il resto risulta 0, il divisore è il MCD tra i numeri dati. 

to mcm :a :b

mcd :a :b

make "mcm :a*:b/:mcd

end

La procedura per calcolare il m.c.m.utilizza anch'essa una metodologia meccanica e ripetitiva

To demo

Make "a random 50

Make "b random 25

Print :a

Print :b

Mcd :a :b

Mcm :a :b

Print :mcd

Print :mcm

end

Vengono scelti a caso due numeri positivi (0<a<50 e 0<b<25) e si calcolano i loro MCD e mcm.