program pgcdmain;
var
p, q, i: integer;
function pgcd (p, q: integer): integer;
var
d: integer;
begin
if p < q then
begin
d := p;
p := q;
q := d;
end;
while q > 0 do
begin
d := p mod q;
p := q;
q := d;
end;
pgcd := p;
end; { Fin de
'pgcd' }
begin
repeat
writeln('Calcul du PGCD de deux nombres');
writeln;
writeln('Entrer vos deux nombres:');
read(p, q);
writeln('PGCD(', p : 0, ',', q : 0, ')= ', pgcd(p, q) :
0);
writeln(' http://www.Software-DS.com');
writeln('Tapez 1 pour recommencez ou 2 pour quitter');
readln(i);
until i = 2;
{ ©2001 All
Rights Reserved to http://www.Software-DS.com
02/10/01 }
end.
|