Euclide,
matematico greco del
III° secolo a.c.,
insegnò matematica ad
Alessandria ove
fondò la famosa scuola
basata sul metodo
deduttivo
L’algoritmo di Euclide
Acquisisci due numeri e
memorizzali in A e in B
Il resto di A/B = 0
Il resto di A/B <> 0
Calcola il resto R di A/B
AB
BR
Scrivi: “il M.C.D.
è .. “ B
A
B
R
22
46
246
24
Il M.C.D.
è .. 2
Scrivi: “il M.C.D.
è .. “ B
Acquisisci due numeri e
memorizzali in A e i B
Il resto di A/B = 0
Il resto di A/B <> 0
Calcola il resto R di A/B
AB
BR
PROGRAM euclide;
VAR a,b,r: INTEGER;
BEGIN
READLN(a,b);
WHILE (a MOD b <> 0) DO
BEGIN
r:= a MOD b ;
a := b;
b := r
END;
WRITELN(‘il MCD è …‘,b)
END.