Aide pour exercice sur le calcul de ppcm -PAS

jecoince -  
mimou2601 Messages postés 100 Statut Membre -
Bonjour à tous,
svp je demande votre aide dans un exercice de programmation en pascal , sur le calcul de ppcm
je dois le faire sous forme de programme classique mais pas de fonctions !!on doit lire deux entiers a et b et chercher le plus petit mutiple de a qui est aussi multiple de b

Merci de votre aide !!!
Configuration: Windows XP
Internet Explorer 6.0

3 réponses

  1. mimou2601 Messages postés 100 Statut Membre 7
     
    c'est une fonction pour le calcul de PPCM (traduction de Pascal):

    function ppcm (a,b:integer): integer;
    var i,r:integer;
    begin
    i:=1;
    repeat
    if a=b then r:=a else
    begin
    i:=i+1;
    r:=b*i;
    end;
    until (r mod a =0);
    ppcm:=r;
    end;
    1