Calcul du pgcd

Soyez le premier à donner votre avis sur cette source.

Vue 7 879 fois - Téléchargée 556 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
cs_grandvizir
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
22
26 janv. 2005 à 18:38
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é.
ZeWaren
Messages postés
24
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
22 février 2005

24 janv. 2005 à 18:11
Si tu le dit...
cs_akina
Messages postés
19
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
27 avril 2006

24 janv. 2005 à 15:43
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.
ZeWaren
Messages postés
24
Date d'inscription
vendredi 11 juin 2004
Statut
Membre
Dernière intervention
22 février 2005

24 janv. 2005 à 15:30
Oui, mais l'algorythm d'Euclide est plus simple:

http://www.swissdelphicenter.ch/torry/showcode.php?id=2001
cs_akina
Messages postés
19
Date d'inscription
lundi 8 décembre 2003
Statut
Membre
Dernière intervention
27 avril 2006

24 janv. 2005 à 12:59
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.