Un petit problem avec pascal
Fermé
bill1991
Messages postés
3
Date d'inscription
mercredi 21 janvier 2009
Statut
Membre
Dernière intervention
1 avril 2009
-
21 janv. 2009 à 23:03
Azraka Messages postés 252 Date d'inscription mercredi 11 juin 2008 Statut Membre Dernière intervention 5 juin 2014 - 22 janv. 2009 à 10:50
Azraka Messages postés 252 Date d'inscription mercredi 11 juin 2008 Statut Membre Dernière intervention 5 juin 2014 - 22 janv. 2009 à 10:50
A voir également:
- Un petit problem avec pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Excel trier du plus grand au plus petit - Guide
- Petit 3 ✓ - Forum Word
- Petit 2 clavier iphone ✓ - Forum iPhone
2 réponses
ApprentiMaintenancier
Messages postés
15
Date d'inscription
mercredi 17 décembre 2008
Statut
Membre
Dernière intervention
27 septembre 2012
22 janv. 2009 à 10:43
22 janv. 2009 à 10:43
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...
Azraka
Messages postés
252
Date d'inscription
mercredi 11 juin 2008
Statut
Membre
Dernière intervention
5 juin 2014
13
22 janv. 2009 à 10:50
22 janv. 2009 à 10:50
Déjà de un on est pas là pour faire tes devoirs, et de deux t'aurais pu chercher un peu, cette question a déjà été posée et résolue.