Accueil     Soft. MacOSX     Soft. MacOS/PC     PHP     Python     ROMS GBA     TP d'info     DBZ-GT     Martingales     Galeries     Liens     @  

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 précédente - Page générée en 0.00277 sec.
Recherche personnalisée
 

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