Calcul du pgcd

Soyez le premier à donner votre avis sur cette source.

Vue 7 269 fois - Téléchargée 513 fois

Description

Ce programme calcul le PGCD (plus grand diviseur commun) de deux nombres par la méthode des divisions multiples...

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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
Messages postés
19
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
27 avril 2006

Voila j'ai upload le zip, je pense que c'est bon cette fois ci.
@+
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.