Dhifallah Fethi
Admin
Messages : 74
Date d'inscription : 02/03/2011
 | Sujet: 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. | |
|
Calendrier
