ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal

[you92cef]

تمرين لقراءة
matrice (n*n)
باستعمال
function et recursive
يمكن تعديل الاوامر في الدالة للقيام بحسابات اخرى على
matrice
مثلا

program ex;
uses wincrt;
type mat=array[1..20,1..20] of integer;
var i,j,n,ii,jj:integer;
tab:mat;
function lire(i,j:integer):integer;
begin
jj:=1;
while i<=n do begin
while j<=n do begin
writeln('t[',i,j,']=');
readln(tab[i,j]);
j:=j+1;
tab[i,j]:=lire(i,j);
end;
while jj<=n do begin 
i:=i+1;
tab[i,jj]:=lire (i,jj);
jj:=jj+1;
end;
end;
end;
begin
writeln('Donner la dimenesion de matrice');
repeat
readln(n);
until(n>=1);
lire(1,1);
end.