Pascal

houcine -  
kemphra Messages postés 19 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
svp je demande le progra pascal de PGCD
A voir également:

2 réponses

UgglyBoy Messages postés 426 Date d'inscription   Statut Membre Dernière intervention   64
 
0
kemphra Messages postés 19 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour j'ai oublier pascal mais voila l'algorithme tu n'a qu'a le traduire
Algorithme PGCD
var a,b,c,d,e:entier
debut
ecrire('donner a et b')
lire(a)
lire(b)
c<--max(a,b)
d<--min(a,b)
si c mod d <>0 alor
répéter
e<--c
c<--d
d<--e mod d
r<--c mod d
jusqu'à r=0
finsi
ecrire ('pgcd(a,b)=',d)
fin
0