Discussion :

[fallendery]

Salut

Remplissage d'un tableau à 2 dimensions qui affiche la première matrice remplie, ensuite la modification ==> la diagonale (diagonale veut dire du haut à gauche vers le bas à droite) remplie tout par 1 ou bien 8 .....

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
45
46
47
48
const]
c=5;
var
m:array[1..c,1..c]of Integer;
i,j:integer;
begin
for i:= 1 to c do
begin
for j:= 1 to c do
begin
repeat
Write ('donner la ',i,' ligne et la ',j,' colone '); Readln (m[i,j]);
Writeln;
until (m[i,j]<>1);
end;
end;
Writeln;
Writeln ('l affichage de la matrice');
Writeln;
for i:= 1 to c do
begin
for j:= 1 to c do
begin
write (m[i,j],' ');
end;
Writeln;
end;
Writeln;
Writeln ('l affichage de la nouvelle matrice');
Writeln;
for i:= 1 to c do
begin
for j:= 1 to c do
begin
 
end;
end;
 
for i:= 1 to c do
begin
for j := 1 to c do
begin
Write (m[i,j], ' ');
end;
writeln;
end;
Readln;
end.

Pour simplifier voilà l'affichage de la matrice principale et de la nouvelle matrice :



Ce que je cherche à faire est afficher la nouvelle matrice comme le tableau suivant :

1 0 0 0 1
1 1 0 1 1
1 1 1 1 1
1 1 0 1 1
1 0 0 0 1