Pascal

houcine -  
kemphra Messages postés 20 Statut Membre -
Bonjour,
svp je demande le progra pascal de PGCD
Configuration: Windows XP Internet Explorer 7.0

2 réponses

  2.
    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

Discussions similaires

Retrouver l'image originale d'une photo modifiée
Raven -
Asta972155 -

10 réponses