Algorithme du ppcm e pgcd [Fermé]

Messages postés
2
Date d'inscription
vendredi 28 mars 2008
Statut
Membre
Dernière intervention
28 mars 2008
- - Dernière réponse :  jk - 25 mai 2014 à 23:50
Bonjour,
svp je cherche la syntaxe du l'algorithme de ppcm e pgcd e merciiiiiiiiiiiiiiiiiiiiiii d'avance
Afficher la suite 

5 réponses

Meilleure réponse
29
Merci
il y a une autre méthode pour le PPCM, par addition. Voila le code en PASCAL :
Function PPCM(A,B:integer);
var a1,b1:integer;
begin
a1:=a;
b1:=b;
WHILE a1<>b1 do
begin
if a1<b1 then
a1:=a1+A
else
b1:=b1+b;
end;
PPCM:=a1;
end;

Dire « Merci » 29

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 59124 internautes nous ont dit merci ce mois-ci

a et b represente koi stp je ne comprend pas
BadrBenbiga
Messages postés
1
Date d'inscription
dimanche 11 mai 2014
Statut
Membre
Dernière intervention
11 mai 2014
-
a et b constitue les deux nombres que vous voulez chercher leurs PPCM :)
9
Merci
function recur_pgcd(a,b;integer);integer;
if (a=b) then
pgcd:=a
else if(a>b) then
pgcd:=pgcd(a-b)
else
pgcd:=pgcd(b-a);
end.
scercro
Messages postés
2
Date d'inscription
samedi 19 janvier 2013
Statut
Membre
Dernière intervention
28 septembre 2013
-
djoo 30 juil. 2010 à 09:36
function recur_pgcd(a,b;integer);integer;
if (a=b) then
pgcd:=a
else if(a>b) then
pgcd:=pgcd(a-b) --------->pgcd:=pgcd(a-b,b)
else
pgcd:=pgcd(b-a); --------->pgcd:=pgcd(a,b-a);
end.
6
Merci
function PPCM(NBR1, NBR2: integer): integer;
begin
if (NBR1 = 0) or (NBR2 = 0) then PPCM := 0
else PPCM := (NBR1 * NBR2) div PGCD(NBR1, NBR2)
end;
Messages postés
11
Date d'inscription
mercredi 22 août 2007
Statut
Membre
Dernière intervention
17 mai 2011
6
3
Merci
Concernant l'algorithme du ppcm , il ya déjà eu une discussion sur ce sujet. Tu n'as qu'à vérifier les ressources autour de ce sujet , il ya une discussion ayant comme sujet Algorithme ppcm; j'espère que tu comprendre quelque chose de ces codes en pascal d'où tu pourras tiré l'algorithme.

Cordialement,
dida001
Messages postés
2
Date d'inscription
vendredi 28 mars 2008
Statut
Membre
Dernière intervention
28 mars 2008
-
oui jlai est trouvé mai plusieurs sont fausses
en+ d'autres son pour le c+ e moi je cherche pour un programme pascal
si tu connai l'algirithme stp passe le moi
e mercii d'avaance
> dida001
Messages postés
2
Date d'inscription
vendredi 28 mars 2008
Statut
Membre
Dernière intervention
28 mars 2008
-
voila l'algorithme de ppcm et,pgcd:

début function ppcm (m,n:integer): integer;
if m>n then
max:= m;
mn:=n
else
max:=n;
min:=m;
wihle (max mod min<>0) do
max:=max+(m+n-min);
ppcm:=max;
end.

function pgcd (m,n:integer):integer;
while (m<>n) do
if m>n then
m:=m-n
else
n:=n-m ;
pgcd:=m;
end.
Messages postés
11
Date d'inscription
mercredi 22 août 2007
Statut
Membre
Dernière intervention
17 mai 2011
6
3
Merci
Bon à tout à l'heure alors