Inversion tableau en utilisant module inverse en méthode récursive
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:
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+
