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 récursive
 
 
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: Ven 26 Fév - 14:39 (2010)    Sujet du message: PGCD récursive Répondre en citant

PublicitéSupprimer les publicités ?
Proposez un programme Pascal récursive qui permet de calculer le PGCD (le Plus Grand Commun Diviseur) de deux entiers positifs non nuls a et b, en utilisant la méthode de la différence.

correction

Code:

program PGCD;
uses wincrt;
var a, b:integer;
 
function FN_pgcd(a, b:integer):integer;
 
begin
     if (a = b)
     then FN_pgcd := a
     else if (a > b)
     then FN_pgcd := FN_pgcd(a-b,b)
     else FN_pgcd := FN_pgcd(a,b-a);
end;
 
 
BEGIN
 
repeat
write('Donnez la valeur de a: ');
readln(a);
until (a > 0);
 
repeat
write('Donnez la valeur de b: ');
readln(b);
until (b > 0);
 
writeln('Le PGCD de ',a,' et ',b,' est ',FN_pgcd(a,b));
 
END.


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 11:31 (2016)    Sujet du message: PGCD récursive

 
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