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 ...
PPCM- récursif
 
 
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 -> Algorithmes d'arithmétiques
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mar 7 Avr - 11:03 (2009)    Sujet du message: PPCM- récursif Répondre en citant

PublicitéSupprimer les publicités ?
uses wincrt;
var
a,b:integer;

             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;


begin
write('A= ');
readln(a);
write('B= ');
readln(b);
write(ppcm(a,b));
end.


 
Revenir en haut
Wissale


Hors ligne

Inscrit le: 06 Jan 2010
Messages: 8
Point(s): 9
Moyenne de points: 0

Posté le: Jeu 28 Jan - 20:28 (2010)    Sujet du message: PPCM- récursif Répondre en citant

MERCI

 
Revenir en haut
staticroof


Hors ligne

Inscrit le: 21 Nov 2009
Messages: 7
Point(s): 6
Moyenne de points: 0

Posté le: Jeu 28 Jan - 20:45 (2010)    Sujet du message: PPCM- récursif Répondre en citant

merci beaucoup Okay

 
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: Jeu 4 Fév - 08:53 (2010)    Sujet du message: PPCM- récursif Répondre en citant

<script type="text/javascript"><!--
google_ad_client = "pub-8629987697869193";
/* 200x200, date de création 14/12/09 */
google_ad_slot = "4847433140";
google_ad_width = 200;
google_ad_height = 200;
//-->
</script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>


 
Revenir en haut
mariem


Hors ligne

Inscrit le: 13 Mai 2009
Messages: 20
Féminin
Point(s): 29
Moyenne de points: 0

Posté le: Lun 8 Mar - 21:45 (2010)    Sujet du message: PPCM- récursif Répondre en citant

merci bcp pour la solution

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 17:03 (2016)    Sujet du message: PPCM- récursif

 
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 -> Algorithmes d'arithmétiques 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