Pascal

houcine -  
kemphra Messages postés 20 Statut Membre -
Bonjour,
svp je demande le progra pascal de PGCD
A voir également:

2 réponses

UgglyBoy Messages postés 440 Statut Membre 64
 
0
kemphra Messages postés 20 Statut Membre
 
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