Dhifallah Fethi
Admin
Messages : 74
Date d'inscription : 02/03/2011
 | Sujet: Exercice 9 (Récursivité)  Ven 18 Mar - 5:11 | |
| Exercice 9
Les procedures classiques aussi !!____________
Proposer une solution récursive pour chacune des 4 procedures classiques suivante:
1) Saisir un entier positif
2) Saisir un entier N ( 2 ≤ N ≤ 100 )
3) Saisir une chaine non vide
4) Remplir un tableau T par N entiers
Réponse - Code:
-
____________ saisir un entier positif____________
0) debut procedure saisir(var N: entier)
1) lire(N)
2) si ( N<0 ) alors
saisir(N)
3) fin saisir
_______________ Saisir un entier N ( 2 ≤ N ≤ 100 ) ____________
0) debut procedure saisir(var N: entier)
1) lire(N)
2) si NON ( N DANS [2..100] ) alors
saisir(N)
3) fin saisir
_________ Saisir une chaine non vide_________
0) debut procedure saisir(var ch: chaine)
1) lire(ch)
2) si ( ch = "" ) alors
saisir(ch)
3) fin saisir
_________ Remplir un tableau T par N entiers _______
0) debut procedure remplir(var T:TAB; i, N: entier)
1) si i=N alors
lire(T[N])
sinon
lire(T[i])
remplir(T,i+1,N)
2)fin remplir | |
|
Calendrier
