hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
pgcd et ppcm
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Récursivité
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
ZeRa


Hors ligne

Inscrit le: 07 Avr 2010
Messages: 8
Point(s): 8
Moyenne de points: 0

Posté le: Ven 6 Mai - 13:03 (2011)    Sujet du message: pgcd et ppcm Répondre en citant

PublicitéSupprimer les publicités ?
on se propose d'écrire 2 fonctions purement récursives qui répondent aux critères suivantes :
la première a pour prototype : fonction pgcd(a, b, c : entier) : entier qui renvoie PGCD(a, b, c)

la deuxième a pour prototype : fonction ppcm(a, b : entier) : entier qui renvoie PPCM(a, b) mais de cette manière :
ppcm(12, 10) = ppcm(12+12, 10) = ppcm(12+12+12, 10) = ppcm(12+12+12+12, 10) = 60 car 10 divisie 60.

Merci d'avance.


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Ven 6 Mai - 22:27 (2011)    Sujet du message: pgcd et ppcm Répondre en citant

Voici une solution du pgcd de 3 entiers
---------------------------------------------------------------
program pgcd_3nb;
uses wincrt;
var a,b,c:integer;
begin
  write('a:');readln(a);
  write('b:');readln(b);
  write('c:');readln(c);
  while (a<>b)and(a<>c) do
    begin   
          if (a>b)
            then a:=a-b
            else b:=b-a;
               
         if a>c
            then
              a:=a-c
            else c:=c-a;
    end;
   writeln('pgcd=',a);
 end.


 
Revenir en haut
interface


Hors ligne

Inscrit le: 04 Mar 2012
Messages: 1
Masculin
Point(s): 1
Moyenne de points: 0

Posté le: Jeu 8 Mar - 14:40 (2012)    Sujet du message: pgcd et ppcm Répondre en citant

voici une solution du ppcm de deux entiers : 
_____________________________________________


program ppcm;
uses wincrt;
var
   a,b : integer;


   function fppcm(s,n,m:integer):integer;
   begin
        if (n>m) then
         begin    
           if (s mod m = 0) then
              fppcm:=s
           else
              fppcm:=fppcm(s+n,n,m);
         end
        else
        begin       
            fppcm:=fppcm(m,m,n);
        end;
   end;


Begin
     write('A (Integer please): ');read(a);
     write('B (Integer please): ');read(b);
     write('PPCM of ',a,' and ',b,' is ',fppcm(a,a,b));
End.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 18:54 (2016)    Sujet du message: pgcd et ppcm

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> Récursivité Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation