Chargement du tableau par récursivité

Version imprimable

Salut, ma question est comment faire un chargement d'un tableau (t) en éliminant l'itération, alors le seul chemin est la récursivité.
Voici mon algorithme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Program charge_recurcif;
uses wincrt;
type
tab = array [2..100] of integer;
var
i,n:integer;
t:tab;
 
function taille : integer;
var
x:integer;
begin
     repeat
     writeln('Entrer la taille du tableau:)');
     read(x);
     until x in [2..50];
taille :=x;
end;
 
 
procedure charge (n:integer;var i:integer ; var t:tab);
var
ok:boolean;
begin
i:=1;
 
     if i>=n then
     begin
     write('charger');
     end
     else
     begin
          writeln('Entrer la valeurs de la case N°',i);
          readln(t[i]);
          i:=i+1;
          charge(n,i,t);
     end;
end;
 
procedure affiche (n:integer; t:tab);
var
j:integer;
begin
for j:=1 to n do
begin
     write(t[j],'|');
end;
end;
 
{Programme principale}
Begin
n:= taille ;
charge (n,i,t);
affiche(n,t);
end.

Bon le problème que je trouve est que le compteur ne s'incrémente pas. Il reste à sa position initiale, pourquoi ????:oops:

13/01/2008, 15h09
droggo

Sie,

Passage par valeur.

C'est une manie de tout vouloir faire en récursif ?

salut a tous;
je croix que j'ai trouvé une solution pas optimale :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
program _charge ;
uses wincrt;
type
tab = array[2..10] of integer;
var
t:tab;
i,n:integer;
procedure affiche (n:integer ; var t:tab);
var
i:integer;
begin
for i:=1 to n do
begin
     write('|',t[i],'|');
end;
end;
procedure charge (n:integer; var t:tab ; var i:integer);
begin
i:=i+1;
     if i>n then
     begin
     clrscr;
     affiche(n,t);
     end  
     else 
     begin
     writeln('Entrer la valeur de la case',i);
     readln(t[i]);
     charge(n,t,i);
     end;
end;
 
{Programme principale}
begin
repeat
      writeln('Entrer la taille du tableau');
      readln(n);
until n in [2..100];
charge (n,t,i);
readln;
end.

Le question ici est ce que c'est la seul methode résolution ou il ya une autre plus optimale?
Merci;
[Jlidi Mohamed].

13/01/2008, 17h42
droggo

Fio,

Une procédure récursive n'est quasiment jamais optimale par rapport à une solution itérative.

Prends l'habitude d'indenter ton code régulièrement, et de l'aérer par des sauts de lignes (au moins pour spérarer les procédures l'une de l'autre), tu verras que ton code en deviendra nettement plus lisible, et donc modifiable. :)

Évite d'utiliser des noms commençant par _, c'est assez souvent réservé par les compilateurs (en C surtout, mais ce n'est pas difficile de s'en passer).

Je trouve que quelque chose ne va pas avec le dernier code. En fait, tu as declaré i comme variable globale (ce qu' il faut eviter) et tu l' utilisise sans l' initialiser à 2. Aussi pourquoi as tu passé i par adresse alors que ça ne te sert meme pas.
Je crois que le programme sera mieux comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
program _charge ;
uses wincrt;
{c' est mieux de declarer des constantes}
const debut=2; fin=100;
type
tab = array[debut..fin] of integer;
var
t:tab;
n:integer;
{tu n' as pas besion de passer t par adresse puisqu' on ne le modifie pas}
procedure affiche (n:integer ; t:tab);
var
i:integer;
begin
for i:=1 to n do
begin
     write('|',t[i],'|');
end;
end;
 
{on passe i par valeur}
procedure charge (n:integer; var t:tab ;  i:integer);
begin
     if i>n then
     begin
     clrscr;
     affiche(n,t);
     end  
     else 
     begin
     writeln('Entrer la valeur de la case',i);
     readln(t[i]);
     charge(n,t,i+1);
     end;
end;
 
{Programme principale}
begin
repeat
      writeln('Entrer la taille du tableau');
      readln(n);
until n in [debut..fin];
charge (n,t,debut);
readln;
end.
 Le question ici est