ملتقى طلاب الاعلام الالي لحل تمارين ++Algorithmes et programmation en Pascal,C,C(موسم جديد)

[you92cef]

المشاركة الأصلية كتبت بواسطة 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.

-------------
هذه الدالة هدفها القراءة يمكن تعدلي الاوامر لجعلها مثلا تحسب الجداء او القسمة او الطرح
+
ارجوا وضع التمرين في مكانه المناسب هناك موضوع مثل هذا لتمارين الباسكال وشكرا

[ahmedchourar]

المشاركة الأصلية كتبت بواسطة you92cef

اليك هذا التمرين الذي هو عبارة عن دالة تعمل بمبدا الوراثة
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.

-------------
هذه الدالة هدفها القراءة يمكن تعدلي الاوامر لجعلها مثلا تحسب الجداء او القسمة او الطرح
+
ارجوا وضع التمرين في مكانه المناسب هناك موضوع مثل هذا لتمارين الباسكال وشكرا

اخي في خورزميات وليس في بسكال

fonction(matise....ect)