Algorithmes Arithmétiques
Page 1 sur 1
Algorithmes Arithmétiques
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
Hanafi- Messages : 106
Date d'inscription : 25/10/2008
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|