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 ...
Exercice: Calcul de combinaison
 
 
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
KARIMOS
Administrateur

Hors ligne

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

Posté le: Mer 26 Nov - 13:16 (2008)    Sujet du message: Exercice: Calcul de combinaison Répondre en citant

PublicitéSupprimer les publicités ?
Calcul de combinaison
 
 

Ecrire un programme modulaire qui permet de :
-  Saisir deux entiers positifs n et p.
-Calculer et afficher la combinaison de p parmis n



Vous devez utilisez un module récursif.
        Rappels      c(n, p) = c(n - 1, p) + c(n - 1, p - 1) pour n > 1 et p > 0
                             

Traduire le programme en PASCAL


 
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: Mer 26 Nov - 13:17 (2008)    Sujet du message: Exercice: Calcul de combinaison Répondre en citant

PROGRAM ex;
uses wincrt;
var
n,p:integer;

{********* procedure saisie *************}
procedure saisie (var n:integer;var p:integer);
begin
writeln('Tappez l''entier N :');
readln(n);
writeln('Tappez l''entier P :');
readln(p);
if(n<0)and(p<0) then
saisie (n,p);
end;
{******** function combinaison ***************}
function combinaison (n:integer;p:integer):integer;
begin
if(p>n)then
combinaison:=0
else if(p=0)or(n=p)then
begin
combinaison:=1 end
else if(p=1)then
begin
combinaison:=n
end
else
begin
combinaison:=combinaison(n-1,p)+combinaison(n-1,p-1);
end; end;
{******** programme principale ***************}
begin
saisie (n,p);
writeln('Combinaison de(',n,',',p,')=',combinaison(n,p));
end.


 
Revenir en haut
djo


Hors ligne

Inscrit le: 02 Déc 2008
Messages: 4
Point(s): 51
Moyenne de points: 0

Posté le: Jeu 4 Déc - 22:12 (2008)    Sujet du message: Exercice: Calcul de combinaison Répondre en citant

je ne pas compri Bannir

 
Revenir en haut
ammar2010
recent membre
recent membre

Hors ligne

Inscrit le: 11 Jan 2010
Messages: 23
Point(s): 24
Moyenne de points: 0

Posté le: Sam 30 Jan - 11:56 (2010)    Sujet du message: Exercice: Calcul de combinaison Répondre en citant

voila la bonne réponse :
function comb(n,p : integer) : real ;
begin
if (p=0) or (p=n)  then
comb := 1
else
comb := comb(n-1,p-1) + comb(n-1 , p) ;
end;



 
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: Sam 30 Jan - 14:28 (2010)    Sujet du message: Exercice: Calcul de combinaison Répondre en citant

tres bien ammar bonne reponse  Okay

 
Revenir en haut
ouecym


Hors ligne

Inscrit le: 10 Mai 2011
Messages: 1
Masculin
Point(s): 1
Moyenne de points: 0

Posté le: Jeu 12 Mai - 22:08 (2011)    Sujet du message: Exercice: Calcul de combinaison Répondre en citant

merciiiiiiiiii

 
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 12 Mai - 22:32 (2011)    Sujet du message: Exercice: Calcul de combinaison Répondre en citant

Okay Okay Okay Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:25 (2016)    Sujet du message: Exercice: Calcul de combinaison

 
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