Discussion :

[emna1987]

Bonjour



J'ai essayé le code suivant en Pascal :

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
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 ?

[Prof]

Bonjour.

J'ai répondu hier au post que vous avez publié dans le forum Algorithmes.
Vous y trouverez des explications sur la méthode que j'utilise ci-dessous.

Voici un programme en Pascal qui remplit une matrice en zigzag.
( pour simplifier l'exemple, j'ai pris une matrice 3x3, mais il est facile de généraliser à une matrice 8x8 )

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
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.

Et la sortie écran :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
   1   3   4
   2   5   8
   6   7   9