Matrice carrée en zigzag

Bonjour

Pièce jointe 212271

J'ai essayé le code suivant en Pascal :

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 zigzag;
uses wincrt;
var
nbligne,nbcolonne,nblignemax,nbcolonnemax,i,j,taille,k:integer;
mat:array [1..3,1..3] of integer;
begin
nbligne:=1;
nbcolonne:=1;
nblignemax:=3;
nbcolonnemax:=3;
k:=1;
taille:=36;
mat[nbligne,nbcolonne]:=k;
while(taille<9) do
begin
k:=k+1;
if(nbligne=1) or(nbligne=nblignemax) and(nbcolonne mod 2=1) then
begin
nbcolonne:=nbcolonne+1;
mat[nbligne,nbcolonne]:=k;
end
else
if(nbcolonne=1) or(nbcolonne=nbcolonnemax) and (nbligne mod 2 =0) then
begin
nbligne:=nbligne+1;
mat[nbligne,nbcolonne]:=k;
end
else
if(nbcolonne mod 2=0) then
begin
repeat
nbligne:=nbligne+1;
nbcolonne:=nbcolonne-1;
mat[nbligne,nbcolonne]:=k;
k:=k+1;
until(nbcolonne=1);
end 
else
if(nbligne mod 2=1) then
begin
repeat
nbligne:=nbligne-1;
nbcolonne:=nbcolonne+1;
mat[nbligne,nbcolonne]:=k;
k:=k+1;
until(nbligne=1);
end;
end;
for i:=1 to 3 do
begin
for j:=1 to 3 do
write(mat[i,j]);
writeln;
end;
end.

mais il m'affiche le résultat
123
456
789
et non pas le résultat attendu
126
357
489
SVP quelqu'un peut-il me proposer une correction ?

Program Zigzag; const N = 3; table : array[1..N*N] of integer = (1,4,2,3,5,7,8,6,9); { table de conversion } var A : array[1..N,1..N] of integer; { A est une matrice } T : array[1..N*N] of ^integer; { T est une table d'adresses } i,j,k : integer; begin for i := 1 to N do { initialisation de la table T } for j := 1 to N do T[(i-1)*N+j] := @A[i,j]; for k := 1 to N*N do T[table[k]]^:= k; { remplissage en zigzag de la matrice A } for i := 1 to N do { affichage de la matrice A } begin for j := 1 to N do write(A[i,j]:4); writeln; end; writeln; { pause } readln; end.