dans mon programme je veut inverser les elements d'un tableau t de n elements
en utilisant le module inverse en methode recursive
j'ai pas trouvé la faute oO je demande votre aide et merci d'avance ^^
voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
program inverser;
uses wincrt ;
type tab=array[1..50]of integer ;
var t:tab ;
i,n:integer;
procedure saisie (var t:tab ;var n:integer);
var i:integer ;
begin
writeln('donner la taille du tableau');
readln(n);
 
for i:= 1 to n do
begin 
writeln('donner l"entier n° ',i);
readln(n);
end;
end;
procedure permuter(a,b:integer);
var z:integer;
begin
  z:=a ;
  a:=b;
  b:=z;
  end;
procedure inverse (var t:tab;var n,i:integer );
   begin 
   if (i<n) then
   permuter(t[i],t[n]);
   i:=i+1;
   n:=n-1;
   end;
 
   procedure affichage (t:tab;n:integer);
   var i:integer ;
   begin
   for i:=1 to n do
   write(t[i],' ');
   end;
   begin
   saisie(t,n) ;
    i:=1;
   inverse(t,n,i);
   affichage(t,n);
   end.
je croi que la faute est trop petite que j'ai pas vu
a+