Informatique au Lycée Borj Louzir
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Le Deal du moment :
Google Pixel 7 5G – Smartphone 6,3″ OLED ...
Voir le deal
316 €

Algorithmes Arithmétiques

Aller en bas

Algorithmes Arithmétiques Empty Algorithmes Arithmétiques

Message  Hanafi 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
Hanafi
Hanafi

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

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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