CALCUL DU PGCD
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Membre
Dernière intervention
18 novembre 2010
-
23 janv. 2005 à 23:35
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 26 janv. 2005 à 18:38
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 - 26 janv. 2005 à 18:38
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
https://codes-sources.commentcamarche.net/source/29031-calcul-du-pgcd
26 janv. 2005 à 18:38
24 janv. 2005 à 18:11
24 janv. 2005 à 15:43
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.
24 janv. 2005 à 15:30
http://www.swissdelphicenter.ch/torry/showcode.php?id=2001
24 janv. 2005 à 12:59
@+
23 janv. 2005 à 23:35
je pense qu'il y a du avoir un pb a l'upload, rien de grave
merci a toi