A voir également:
- Un petit problem avec pascal
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Petit 2 ✓ - Forum Windows
- Trier du plus petit au plus grand excel - Guide
2 réponses
Voici une des nombreuses solutions :
program pgcd;
uses crt;
var a,b,x,y,r:integer;
begin
clrscr;
writeln('Entrez deux nombres entiers : ');
readln(a,b);
if a<0 then
x:=-a
else x:=a;
if b<0 then
y:=-b
else y:=b;
if y=0 then
writeln('Le PGCD de ',a,' et ',b,' est ',x)
else
repeat
r:=x mod y;
x:=y;
y:=r;
until r=0;
writeln(Le PGCD de ',a,' et ',b,' est ',x);
end;
readkey;
end;
Bien sûr tu peux obtimiser cette solution et la designer (rendre beau) a ton goût .
Allez bonne programmation...
program pgcd;
uses crt;
var a,b,x,y,r:integer;
begin
clrscr;
writeln('Entrez deux nombres entiers : ');
readln(a,b);
if a<0 then
x:=-a
else x:=a;
if b<0 then
y:=-b
else y:=b;
if y=0 then
writeln('Le PGCD de ',a,' et ',b,' est ',x)
else
repeat
r:=x mod y;
x:=y;
y:=r;
until r=0;
writeln(Le PGCD de ',a,' et ',b,' est ',x);
end;
readkey;
end;
Bien sûr tu peux obtimiser cette solution et la designer (rendre beau) a ton goût .
Allez bonne programmation...
