Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Avril 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Exercice 5 (Récursivité)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
avatar

Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Exercice 5 (Récursivité)   Ven 18 Mar - 3:09

Exercice 5

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.
Rappel: c(n, p) = c(n - 1, p) + c(n - 1, p - 1) pour n > 1 et p > 0

Traduire le programme en PASCAL.

Réponse

Code:
PROGRAM combinison;
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
          combinaison:=1
          else if(p=1)then
                  combinaison:=n
                  else
                  combinaison:=combinaison(n-1,p)+combinaison(n-1,p-1);
end;
{******** programme principale ***************}
begin
saisie (n,p);
writeln('Combinaison de(',n,',',p,')=',combinaison(n,p));
end.
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Exercice 5 (Récursivité)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» les exercice de chimie 2

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: