|
|
|||||||
في حال وجود أي مواضيع أو ردود
مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
| آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين ++Algorithmes et programmation en Pascal,C,C(موسم جديد)
|
|
أدوات الموضوع | انواع عرض الموضوع |
|
|
رقم المشاركة : 11 | ||||
|
اقتباس:
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.
هذه الدالة هدفها القراءة يمكن تعدلي الاوامر لجعلها مثلا تحسب الجداء او القسمة او الطرح + ارجوا وضع التمرين في مكانه المناسب هناك موضوع مثل هذا لتمارين الباسكال وشكرا |
||||
|
| الكلمات الدلالية (Tags) |
| ملتقى-طلاب-إعلام ألي |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc