![]() |
|
في حال وجود أي مواضيع أو ردود
مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal
|
أدوات الموضوع | انواع عرض الموضوع |
![]() |
رقم المشاركة : 11 | |||
|
![]() بخصوص المصفوفات كود:
program produit; uses wincrt; type tab=array[1..25,1..25] of integer; var i,k,j,l1,c1,l2,c2:integer; m1,m2,mat:tab; begin writeln('donner le nombre de ligne de m1'); readln(l1); writeln('donner le nombre de colonnes de m1'); readln(c1); if l1=c1 then begin writeln('donner les ',l1*c1,' elements de m1'); for i:=1 to l1 do for j:=1 to c1 do read(m1[i,j]); writeln('La matrice est'); for i:=1 to l1 do begin for j:=1 to c1 do write(m1[i,j]:4); writeln; end; for i:=1 to l1 do for j:=1 to c1 do m2[i,j] := m1[j,i]; writeln(' la transposée de votre matrice est'); for i:=1 to l1 do begin for j:=1 to c1 do write(m2[i,j]:4); writeln; end; for i:=1 to l1 do for j:=1 to c2 do begin mat[i,j]:=0; end; for i:=1 to l1 do for j:=1 to c1 do for k:=1 to c1 do mat[i,j]:=mat[i,j]+m1[i,k]*m2[k,j]; writeln('Le produit est'); for i:=1 to l1 do begin for j:=1 to c1 do write(mat[i,j]:4); writeln; end; end; if l1<>c1 then writeln('La matrice n''est pas carré'); end. site pour verifier https://bts-ig.numeriques.net/cours-e.../index.php#fin Si est une matrice de type et est une matrice de type , alors leur produit, noté est une matrice de type donnée par : ![]() |
|||
![]() |
الكلمات الدلالية (Tags) |
ملتقى, الالي, الاعلام, طلاب |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc