CALCUL DU PGCD

Signaler
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
-
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/29031-calcul-du-pgcd

Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
21
Rien qu'à entendre le mot PGCD, ça me hérisse de mauvaise humeur. J'adore aussi le mélange de l'allemand et de l'anglais dans la 2ème proposition précédente. Ca donne déjà un bon goût de ce qu'est l'authenticité.
Messages postés
24
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
22 février 2005

Si tu le dit...
Messages postés
19
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
27 avril 2006

Au niveau mathematique ce code :

function gcd(a, b: Integer): Integer;
var
rest: Integer;
begin
//ggT Berechnung nach dem Algorithmus von Euklid
//Konvergiert sehr schnell!

//gcd using Euklid algorithm
//converge very fast

repeat
rest := a mod b;
a := b;
b := rest;
until (rest = 0);

Result := abs(a);
//ggT is immer positiv
//gcd is always positive
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(gcd(12,30)));
end;

est le même que le mien...Il est simplement beaucoup mieux écrit.
Messages postés
24
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
22 février 2005

Oui, mais l'algorythm d'Euclide est plus simple:

http://www.swissdelphicenter.ch/torry/showcode.php?id=2001
Afficher les 6 commentaires