ppcm avec recursivité Résolu/Fermé

Question

Bonjour, Bonjour, tout le monde je veux bien savoir comment calculer le ppcm(a,b) avec la methode recursive en pascal sans l'ajout d'un autre parametre à l'entête de la fonction sachant que je connais la methode itérative avec deux façons: 1ere methode: function ppcm(a,b: integer):integer; var i :integer; begin i:=1; if a*b = 0 then ppcm :=0 else begin while a*i mod b <> 0 do i:=i+1; ppcm:=a*i; end; end; 2ème methode: function ppcm(a,b: integer):integer; var max,min :integer; begin if a*b = 0 then ppcm :=0 else begin if a>b then begin max :=a; min:=b ; end else begin max :=b; min :=a; end; while max mod min <> 0 do max := max +(a+b-min); ppcm:=max; end; end; merci pour votre aide

malibous · Accepted Answer

je vous présente la solution complète de tout le programme qui fait le calcul du ppcm de deux entiers a et b avec la méthode récursive en respectant les contraintes de la saisie de a et b:

program ppcm_rec;
uses wincrt;
var
a,b:word;

procedure saisir(var a,b:word);
begin
repeat
writeln('donner a: ');
readln(a);
writeln('donner b: ');
readln(b);
until ((a>b) and (a>0));
end;


function ppcm(a,b:word): longint;

var
r:integer;

begin
 if (b = 0) then
  ppcm := 0
 else if (a mod b = 0) then
  ppcm := a
 else
  begin
    r:=a mod b;
    ppcm:=( a div r)* ppcm(b,r);
  end;
end;


begin
saisir(a,b);
writeln('le ppcm de ',a,' et ',b,' est ',ppcm(a,b));
end.

AMOULA_info · Answer

merci pour vous tous , j'ai trouvé la solution moi même!!!

function ppcm(a,b:integer) : integer;
var r : integer;
begin



if a mod b = 0 then ppcm := a

else

begin
     r:=a mod b;
     ppcm:=( a div r)* ppcm(b,r);
end;

end;

Ouhiby · Answer

Function ppcmRec1 (a,b,i :integer):integer;
begin
     if a * b = 0 then
        ppcmR := 0
     else
        if a * i mod b = 0 then
           ppcmR := a * i
        else
           ppcmR := ppcmR(a,b,i+1);
End;

Appeler X :=ppcmRec1(a,b,1)

Ouhiby · Answer

Pardon j'ai commis des erreurs d'appel :) Voici la solution complète InChaallah Program testppcm ; uses wincrt; function ppcm1(a,b: integer):integer; var i :integer; begin i:=1; if a*b = 0 then ppcm1 :=0 else begin while a*i mod b <> 0 do i:=i+1; ppcm1:=a*i; end; end; Function ppcmRec1 (a,b,i :integer):integer; begin if a * b = 0 then ppcmRec1 := 0 else if a * i mod b = 0 then ppcmRec1 := a * i else ppcmRec1 := ppcmRec1(a,b,i+1); End; function ppcm2(a,b: integer):integer; var max,min :integer; begin if a*b = 0 then ppcm2 :=0 else begin if a>b then begin max :=a; min:=b ; end else begin max :=b; min :=a; end; while max mod min <> 0 do max := max +(a+b-min); ppcm2:=max; end; end; function ppcmRec2(a,b: integer):integer; Var max,min : integer; Begin if a*b = 0 then ppcmRec2 :=0 else begin if a>b then begin max :=a; min:=b ; end else begin max :=b; min :=a; end; if max mod min = 0 then ppcmRec2:=max else ppcmRec2 := ppcmRec2(max +(a+b-min),b); end; End; Begin {exemple d'aapel} Writeln(ppcm1(15,3)); Writeln(ppcmRec1(3,15,1)); Writeln(ppcm2(4,12)); Writeln(ppcmRec2(23,42)); { Résultat : 15 15 12 84 } End.

amoula_info · Answer

salut Ouhiby
pour la fonction recursive ppcmrec2 je pense ( et je l'ai tester d'ailleur) qu'elle est fausse.

lkj · Answer

j' ai trouver plusieur solution 
mais la quel la plus juste
svp 
trés urgent!!!!!!!!!!!

rihab chebbah · Answer

salut, SVP j ve un programme qui permet de saisir et d'afficher le ppcm de deux nombre ( le ppcm doit etre sous  la formes des entier avec ses exposon!!) compris!! svp i need it

Malebete · Answer

Etonnant le nombre d'algorithmes proposés qui supposent a >= b ;)

Testez-les avec ppcm(1, 53), voire ppcm(0, 22)  ;))

dorsaf007 · Answer

Function  ppcm (a,b:integer):integer;
begin
   if a=b then ppcm:=a
             else if a>b
                       then  ppcm:=(ppcm(a-b,b)*a) div (a-b)
                       else   ppcm:=(ppcm(a,b-a)*b) div (b-a);
end;

Ppcm avec recursivité

9 réponses