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
| program matrice;
uses wincrt;
const
limit = 10;
type
mat = array[1..limit] of array[1..limit] of byte;
var
m : mat;
n : byte;
procedure lecture_n ( var n : byte );
begin
repeat
write('n= ');
readln(n);
until n in [1..limit];
end;
procedure remplire_mat ( var m : mat; n : byte );
var
l, c : byte;
begin
for l := 1 to n do
for c := 1 to n do
m[l, c] := random(20) + 10;
end;
procedure affichage_recursif ( var m : mat; n, l, c : byte );
begin
if l <= n then
begin
write(m[l, c],' ');
if c <= n-1 then
affichage_recursif(m, n, l, c+1)
else
begin
writeln;
c := 0;
affichage_recursif(m, n, l+1, c+1)
end;
end;
end;
begin
lecture_n ( n );
remplire_mat ( m, n );
affichage_recursif ( m, n, 1, 1);
end. |
Partager