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;
emoss
a et b represente koi stp je ne comprend pas
BadrBenbiga
a et b constitue les deux nombres que vous voulez chercher leurs PPCM :)
djoo
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
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.
blacko
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
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
Auteur
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
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.
Trouvez des réponses à vos questions sur les langages, les frameworks et les astuces de codage. Échangez avec d'autres développeurs passionnés pour améliorer vos compétences en programmation et rester au fait des dernières tendances du secteur.
