[TPW] Affichage récursif d'une matrice d'ordre n

[abdou monta]

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.