Algorithme du ppcm e pgcd [Fermé]

dida001 2 Messages postés vendredi 28 mars 2008Date d'inscription 28 mars 2008 Dernière intervention - 28 mars 2008 à 12:48 - 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 
2Messages postés vendredi 28 mars 2008Date d'inscription 28 mars 2008 Dernière intervention

13 réponses

+28
Utile
2
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;
Cette réponse vous a-t-elle aidé ?  
a et b represente koi stp je ne comprend pas
BadrBenbiga 1 Messages postés dimanche 11 mai 2014Date d'inscription 11 mai 2014 Dernière intervention - 11 mai 2014 à 15:08
a et b constitue les deux nombres que vous voulez chercher leurs PPCM :)
+9
Utile
1
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 2 Messages postés samedi 19 janvier 2013Date d'inscription 28 septembre 2013 Dernière intervention - 4 févr. 2013 à 11:49
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
Utile
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;
weaponjr 11 Messages postés mercredi 22 août 2007Date d'inscription 17 mai 2011 Dernière intervention - 28 mars 2008 à 13:26
+3
Utile
5
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 2 Messages postés vendredi 28 mars 2008Date d'inscription 28 mars 2008 Dernière intervention - 28 mars 2008 à 13:31
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
Royal88 > dida001 2 Messages postés vendredi 28 mars 2008Date d'inscription 28 mars 2008 Dernière intervention - 30 mars 2008 à 18:26
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.
weaponjr 11 Messages postés mercredi 22 août 2007Date d'inscription 17 mai 2011 Dernière intervention - 28 mars 2008 à 13:46
+3
Utile
Bon à tout à l'heure alors