Algorithmes Arithmétiques

Voir le sujet précédent Voir le sujet suivant Aller en bas

Algorithmes Arithmétiques

Message  Hanafi le Mer 11 Fév - 0:19

Calcul PGCD et PPCM



program PGCD_PPCM;
uses wincrt;
var a,b:longint;

function PGCD(x,y:longint):longint;
begin
if x<>0 then
PGCD:= PGCD(y mod x,x)
else
PGCD:= y;
end;

function PPCM(x,y:longint):longint;
begin
PPCM:= (x div PGCD(x,y)) * y;
end;

Begin
Write('Donner a et b: ');
Readln(a,b);
Writeln('PGCD ',a,' et ',b,' = ', PGCD(a,b));
Writeln('PPCM ',a,' et ',b,' = ', PPCM(a,b));
End.
Voici un lien pour une divisibilité

http://www.sharefile.org/showfile-667/liste_de_crit%C3%A8res_de_divisibilit%C3%A9.doc

Bonne révision Exclamation
avatar
Hanafi

Messages : 106
Date d'inscription : 25/10/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum