اقتباس:
المشاركة الأصلية كتبت بواسطة ahmedchourar
كيف ادخل Matris carreكوسيط في fonction
في تمرين ALGO II
|
اليك هذا التمرين الذي هو عبارة عن دالة تعمل بمبدا الوراثة
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.
-------------
هذه الدالة هدفها القراءة يمكن تعدلي الاوامر لجعلها مثلا تحسب الجداء او القسمة او الطرح
+
ارجوا وضع التمرين في مكانه المناسب هناك موضوع مثل هذا لتمارين الباسكال وشكرا