Exercice 3

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.





Haut de la page - Page générée en 0.00230 sec.
 

1845595 visiteurs.   ©2001-2024 All Rights Reserved to Software-DS.com
Made with a mac  
Confidentialité