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

[you92cef]

بخصوص المصفوفات
matrice
calcule le produit d'un matrice par sa transopseé

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 :

[you92cef]

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

شكرا لك اخي الكريم على المساعدة

من اين آتي بهذا الرمز من clavier |

هنا الشرح

[enemi05]

شكرا اخي علي المساعدة جزاك الله خيرا و جعله في ميزان حسناتك

[بهاار]

شكرا لك اخي على المساعدة

[you92cef]

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

شكرا لك على المساعدة لكن انا اريد ان اضع الرمز في البسكال والبسكال لا يدعم اللغة العربية يعني الطريقة لم تنفع معي
فهل من حل؟

لقد جربت الطريقة وهي شغالة في الباسكال نسخة
tpw

في باقي النسخ لست ادري ما ادت كانت شغالة ام لا

[بهاار]

شكرا لك اخي انا في البسكال لم تنجح
لكن قمت بفتح ملف البسكال ب bloc note واضفتها

[you92cef]

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

شكرا لك اخي انا في البسكال لم تنجح
لكن قمت بفتح ملف البسكال ب bloc note واضفتها

بحسب نسخة الباسكال التي تستخدمها
الطريقة شغالة على نسخة tpw

[بهاار]

السلام عليكم

من فضلكم اريد شرح لطريقة ترتيب جدول بطريقة شل
انا وجدت procedure لكن لم افهمها

  procedure tri****l (var t:tab; n:integer ) ;
   var    p,i,j,v: integer;
   begin    
       p:=0;
       while p<= n do    
       p:= 3*p+1;
       while p <> 0 do
        begin
            p:=p div 3;
            for i:= p to n do
             begin
                  v:=t[i];
                  j:=i;
                  while (j > p-1) and (t[j-p] > v ) do
  begin
                        t[j]:=t[j-p];
  j:=j-p;
                   end;
                  t[j]:=v;
             end;
        end;
   end;

[you92cef]

نتيجة الطريقة هي ترتيب جدول تصاعديا
ordre croissant
mais comment moi aussi je ne comprendre pas la maniere

program exe

program ex;
uses wincrt;
type tableau=array[1..100]of integer;
var tab:tableau;
j,m:integer;
procedure tri (var t:tableau; n:integer ) ;
   var    p,i,j,v: integer;
   begin    
       p:=0;
       while p<= n do     
       p:= 3*p+1;
       while p <> 0 do
        begin
            p:=p div 3;
            for i:= p to n do
             begin
                  v:=t[i];
                  j:=i;
                  while (j > p-1) and (t[j-p] > v ) do begin
                        t[j]:=t[j-p];  
                         j:=j-p;   
                   end;
                  t[j]:=v;
             end;
        end;
   end;
begin
writeln('Entrez m');
readln(m);
for j:=1 to m do begin
writeln ('Entrez tab[',j,']');
readln(tab[j]);
end;
tri(tab,m);
writeln('-----------------------');
for j:=1 to m do
writeln(tab[j]);
end.

[بهاار]

https://www.youtube.com/watch?v=wdrwwl5Ib9g

هدا يشرح قليلا الطريقة لكن الشي الذي لم افهمه انا

       
while p<= n do             p:= 3*p+1;        while p <> 0 do         begin             p:=p div 3;

[you92cef]

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

https://www.youtube.com/watch?v=wdrwwl5Ib9g

هدا يشرح قليلا الطريقة لكن الشي الذي لم افهمه انا

       
while p<= n do             p:= 3*p+1;        while p <> 0 do         begin             p:=p div 3;

الغوريتم شل هو تطوير لالغوريتم
tri par insertion
ولكن اسرع من
tri par insertion



موقع رائع لشرع انواع الترتيبات الممكنة
https://people.cs.pitt.edu/~kirk/cs15...ons/Sort1.html

يمكن اختيار نوع الترتيب ال>ي نريده من في الخانة الاولى ثم ندخل عناصر الجدول ونفصل بينهم ب
space
لفهم الاختلاف بين انواع الترتيبا ننصح باختيار عناصر جدول واحد مثلا
1 5 8 9 7 3 2 9 6 3 1 2
وكل مرة نغير طريقة ترتيب العناصر

ارجوا من الادارة عدم حدف الموقع لانه ليس اشهاري

[بهاار]

لكن الذي لم افهمه
لماذا p;=0
ومادا يقصد ب p
وبعدها لماذا p;=3*p+1

[you92cef]

في
tri par insertion
نقارن العنصر
i
مع العنصر الدي يليه
i+1
في هده الحالة نحتاج الى وقت كبير
----------------------------
بينما في شال
نقارن العنصر
p
مع
عنصر اخر لا يكون بالضرورة
p+1
فشال اول مرة حاء بالعبارة
p:=0
p:=3*p+1
ففي شال
دائما نقارن العنصر
p
ال>ي يكون في الاول يساوي 1
مع عنصر اخر شال عبر عنه ب
p:=p*3+1
ثم قسم على 3
يمكن ان نضرب مثلا في 5 ونقسم على 5 وهكدا نكسب وقت اكبر
--------------------------------------------
كمبرمجين ما يهمنا هو كيفية عمل البروسيدور والنتيجة وممزياته وعيوبه اما لمادا وكيف وباقي الاسئلة فهي اسئلة رياضية تدخل ضمن
recherche operationnelle
*-*تطبيق الرياضيات في الاعلام الالي او تطبيق الاعلام اللي في الرياضيات*-*
ou algo avanceé
وهده تحتاج الى فهم قوي ومتين بالالغوريتم والرياضيات

[بهاار]

  procedure ****l (n: integer ; var t:tab ) ;var    p,i,j,valeur: integer; begin         p:=0;     while p < n do         p:= 3*p+1;     while p > 0 do      begin          p:=p div 3;          for i:= p to n do           begin                valeur:=t[i];                j:=i;                while (j > p-1) and (t[j-p] > valeur ) do                 begin                      t[j]:=t[j-p];                      j:=j-p;                 end;                t[j]:=valeur;           end;      end; end;

والله لم افهم شي اخي الكريم ياريت لو تكرمت وكتبت لي تعليق بسيط امام كل instruction

[بهاار]

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

فشال اول مرة حاء بالعبارة
p:=0
p:=3*p+1
ففي شال
دائما نقارن العنصر
p
ال>ي يكون في الاول يساوي 1
مع عنصر اخر شال عبر عنه ب
p:=p*3+1
ثم قسم على 3
يمكن ان نضرب مثلا في 5 ونقسم على 5 وهكدا نكسب وقت اكبر
--------------------------------------------

انا الشي الذي لم افهمه لماذا ضرب في 3 ثم قسم على3

يعني اين الفائدة لما اضرب في 3 ثم اقسم على 3