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
| 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);
*)
m[i, j] := Random(100); // pour éviter d'avoir à saisir 25 valeurs à chaque exécution du programme !
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]:2, ' ');
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 // la valeur de j n'est pas utilisée
begin
m[i, i] := 1; {diagonale principale}
end;
end;
for i := 1 to c do
begin
for j := 1 to c do
begin
Write(m[i, j]:2, ' ');
end;
WriteLn;
end;
ReadLn;
end. |
Partager