Calcul de PGCD

Admin Messages : 74 Date d'inscription : 02/03/2011

Calcul de PGCD

L'animation concerne:

Principe

[Vous devez être inscrit et connecté pour voir ce lien]

Analyse (itérative et récursive)

[Vous devez être inscrit et connecté pour voir ce lien]

Algorithme (itérative et récursive)

[Vous devez être inscrit et connecté pour voir ce lien]

Téléchargement de l'animation:

Taille: 132.66 KB
[Vous devez être inscrit et connecté pour voir ce lien]

Code Pascal (En récursivété):

Code:: program pgcd_diff;
uses wincrt;
var
a,b:integer;

procedure saisie (var z:integer);
begin
repeat
write('donner un entier positif et non nul: ');
readln(z);
until (z>0);
end;

function pgcd(n,m:integer):integer;
begin
if(n=m) then pgcd:=m
else if(n>m) then pgcd:=pgcd(n-m,m)
else pgcd:=pgcd(n,m-n);
end;

{programme principal}
begin
saisie(a);
saisie(b);
write('pgcd(',a,',',b,')=',pgcd(a,b));
end.