Affichage récursif d'une matrice d'ordre n
Bonjour
Voicile code d'affichage d'une matrice d'ordre n d'une manière récursive.
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
| 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. |
