Department of Mathematics and Computer Science

Solusion : 

exemple:  PGCD(648, 351) = ? 

pour calcule le PGCD de (648, 351)  , on doit faire une suite de sustraction . 

Le plus grand - le plus petite 

648-351=297

351-297=54

297-54=243

243-54=189

189-54=135

135-54=81 

81-54=27

27-27=00 

Donc , le PGCD  est la derinier resultat  de la sustraction non  nule : 

PGCD(648,351) = 27

ALGORITHME    PGCD ; 

Var  A , B : entier ; 

debut 

repeter   ecrire(' introduis deux nombre A et B ' ) ; 

               Lire( A,B ) ; 

jusqua  (  ( a>0) et (b>0)    ) 

Tantque    A<>B     faire

   Si   A>B      alors  

   A:=A-B 

   Sinon

   B:=B-A

    Fsi 

FTQ 

Ecrire('PGCD= '  ,  A ) ; 

Fin.

algorithme PGCD;

var a,b:entier;

debut

écrire('introduisez le 1er nombre');

lire(a);

écrire('introduisez le 2éme nombre');

lire(b);

tantque not(a*b=0) faire

 si a>0 alors 

   a:=a-b

  sinon

   b:=a-b

 fsi;

ftq;

si a=0 alors

  écrire('PGCD=',b)

  sinon

     écrre('PGCD=',a)

  fsi;

fin.

algorithme pgcd;

var a,b:entier;

Début

répeter écrire ('introduits deux nombres a et b');

lire (a,b);

jusqua ((a>0) et (b>0))

tantque A>b faire 

si a>b alors

a:=a-b

sinon 

b:=b-a

fsi 

ftq 

fin.

merci bcb mais est-que il ya un autre solution ?

ALGORITHME    PGCD; 

Var  x , y : entier ; 

debut 

Lire( x,y ) ;  

TANTQUE    x<>y   faire

   Si   x>y    alors  

   x:=x-y;

   Sinon

   y:=y-x;

    Fsi 

FTQ 

Ecrire('PGCD= '  ,  x ) ; 

fin.

Oui  il y'a  abdelrrahman  :  on utilise la methode de mod 

oui il ya hahahaha 

algorithme  pgcd;

var a,b,c:entier;

debut

lire(a,b);

si a<b alors

c:=a;

a:=b;

b:=c;

finsi

tantque b<>0 faire

c:=b;

b:= a mod b 

a:=c 

ftq 

ecrire('pgcd est ',c);

fin.

hahahha mrc wassim pour cette reponse .

algorithme pgcd;

var a,b:entier;

debut

écrire('entrez le premier nombre');

lire(a);

écrire('entrez le deuzième nombre');

lire(b);

tantque (a*b<>0) faire

si a>0alors

a:=a-b

fsi;

si a<0 alors

b:=b-a

fsi;

ftq;

si a=0 alors

écrire('pgcd=',b)

sinon

écrire('pgcd=',a)

fsi;

fin.

y'pas deux solution wela

Algorithme pgsd;

Var x,y:entier ;

Début

écrire ('introduis les deux nombre x et y ') ;

Lire (x,y);

Tant que ( x*y<>0) faire 

Si x>0 alors 

X:=x-y

Sinon 

Y:=y-x 

Fsi;

ftq;

Si x=0 alors 

écrire (' pgcd := y')

Sinon 

écrire ('pgcd :=x')

Fsi ;

Fin .

ALGORITHME    PGCD ; 

Var  a , b : entier ; 

         debut  

 Lire( a,b) ; 

Tantque A<>B     faire

    Si   a>b      alors  

          a:=a-b

   Sinon

       b:=b-a

    Fsi; 

ftq;

si a>b alors 

ecrire('PGCD de ',a,'et',b,'=  '  ,  a ) ; 

sinon

ecrire('PGCD de ' ,a, 'et' ,b, '=' , b );

fsi;

Fin.

Algorithme PGCD;

Var  a,b:entier;

Ecrire('introduit le premier nombre');

Lire(a);

Ecrire('introduit le dexieume nombre');

Lire(b);

TanQue a<>b faire

Si   a>b a:=a-b;

Sinon

B:=b-a;

Fsi;

FtQ;

Ecrire('PGCD='a,b);

Fin

Ya un solution avec pour

Program PGCD;

Var  a,b,x,y,z:integer;

Begin

Repeat

Read(a,b);

Until (a>0) and (b<0);

If a>b then 

Begin 

X:=a; y:=b;

End

Else

Begin

X:=b; y:=a;

End;

While y<>0 do

Begin

Z:=x mod y;

X:=y;

Y:=z;

End;

Write(x);

End.

En pascale

algorithme pgcd;

var a,b:entier;

debut

écrire('entrez l 1ere nombre');

lire(a);

écrire('entrez l 2eme nombre');

lire(b);

tantque (a*b<>0) faire

si a>0alors

a:=a-b

fsi;

si a<0 alors

b:=b-a

fsi;

ftq;

si a=0 alors

écrire('pgcd=',b)

sinon

écrire('pgcd=',a)

fsi;

fin.

algorithme pgcd ; 

var a,b : entier ;

debut 

ecrire( ' donnez les 2 nmbrs') ;

lire( a,b) ;

tanque a <> b faire 

si a >b alors

a := a-b 

sinon 

b:= b -a ;

ftq;

si a>b alors 

ecrire( ' le pgcd est', a);

sinon

ecrire ( le pgcd est ' , b) ;

fin .

Algorithme pgcd;

var a,b,c,i:entier;

debut

lire(a,b);

si a < b alors

c:=b;

b:=a;

a:=c;

fsi;

repeter

c:=a mod b;

a:=b;

b:=c;

jusqu à c=0 ;

ecrire(b);

fin.

algorithme pgcd;

var a,b,c:entier;

debut

lire(a,b);

si a<b alors

c:=a;

a:=b;

b:=c;

finsi

tantque b<>0 faire

c:=b;

b:= a mod b 

a:=c 

ftq 

ecrire('pgcd est ',c);

fin.

algorithm pGcd;

var a,b,c, reste: entier;

debut

ecrire(' donnez deux nombre');

lire(a,b);

si (a<b) alors

debut

c:=a;

b:=a;

a:=c;

fin;

reste:= a mod b;

tantqu reste <> 0 faire

debut

a:= b;

b:= reste;

reste:= a mod b;

fin;

ecrire (' le pGcd est ' , b);

fin.

algorithme pgcd;

var a,b:entier;

debut

écrire('entrez le premier nombre');

lire(a);

écrire('entrez le deuzième nombre');

lire(b);

tantque (a*b<>0) faire

si a>0alors

a:=a-b

fsi;

si a<0 alors

b:=b-a

fsi;

ftq;

si a=0 alors

écrire('pgcd=',b)

sinon

écrire('pgcd=',a)

fsi;

fin.

ALGORITHME    PGCD; 

Var  x , y : entier ; 

debut 

Lire( x,y ) ;  

TANTQUE    x<>y   faire

   Si   x>y    alors  

   x:=x-y;

   Sinon

   y:=y-x;

    Fsi 

FTQ 

Ecrire('PGCD= '  ,  x ) ; 

fin.

ALGORITHME    PGCD ; 

Var  A , B : entier ; 

debut 

repeter   ecrire(' introduis deux nombre A et B ' ) ; 

               Lire( A,B ) ; 

jusqua  (  ( a>0) et (b>0)    ) 

Tantque    A<>B     faire

   Si   A>B      alors  

   A:=A-B 

   Sinon

   B:=B-A

    Fsi 

FTQ 

Ecrire('PGCD= '  ,  A ) ; 

Fin.

Un solution avec pour 

G7