Bonjour,

Turbo Pascal m'affiche error 133 :error in statement au niveau de 1:begin procedure
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
program gestion_matrices;
const n=3;
type mat=array [1..n,1..n] of integer;
 var m: mat;
    i,j:integer;
    choix:integer;
Begin
 repeat
  writeln('Entrez votre choix:{1..6} autre pour quitter');
  readln(choix);
 case choix of

  1:begin
     procedure lecture(var m1:mat);
        var i,j:integer;
       begin
         for i:=1 to n do
         for i:=1 to n do
          readln(m1[i,j]);
       end;
      end;


   2:begin
       procedure affichage(var m1:mat);
        var i,j:integer;
       begin
         for i:=1 to n do
         for i:=1 to n do
          writeln(m1[i,j]);
       end;
     end;

   3:begin
   procedure transpos‚e(var m1,m2:mat);
   var i,j: integer;
       m1 : array [1..n, 1..n] of integer;
       m2 : array [1..n, 1..n] of integer;
    begin
        for i:= 1 to n do
         for j:=1 to n do
          begin
           writeln( ' Donner les valeurs '  , i, ' ' ,j, '  de votre matrice ');
                readln(m1[i,j]);
          end;

        for i:=1 to n do
         begin
          for j:=1 to n do
          m2[i,j] := m1[j,i];
         end;
   writeln('La Transpos‚e est :');

  for i:=1 to n do
     for j:=1 to n do
       writeln('[',i,',',j,']=',m2[i,j]);
       readln;
  end;
....
  end.