موضوع مميز ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal - الصفحة 21

you92cef · 2013-03-01, 09:57

اقتباس:

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

لكن اخي الكريم على حسب مافهمت من ردك انك تستعمل enregistrement

نعم في الباسكال نستعمل
enregistrement

بينما في مواد او برامج اخرى لا نستعمل
enregistrement

مثلا في مادة
system information
ou base de donnee

نستعمل نفس المبدا ولكن بطرق اخرى

كود:

type enre=record
nom:string;
prenom:string;
age:integer;
....
..
.
.
end;

nom,prenom,age sont des champs

بهاار · 2013-03-01, 11:59

انا ادرس السنة الاولى رياضيات واعلام آلي
ولحد الآن لم ندرس enregistrement
لكن بالنسبة les tableau
في ترتيبها توجد عدة طرق كselection insertion...الخ
لكن انا طلب مني tri d'un tableau par champ
ولم اجد أي شي يخص هده الطريقة ، فما الحل؟؟؟؟

ولدي سؤال بخصوص selection
هل نبحث على اصغر عدد ونضعه في الخانة الاولى ، أم نبحث على اكبر عدد؟

you92cef · 2013-03-01, 13:00

اقتباس:

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

انا ادرس السنة الاولى رياضيات واعلام آلي
ولحد الآن لم ندرس enregistrement
لكن بالنسبة les tableau
في ترتيبها توجد عدة طرق كselection insertion...الخ
لكن انا طلب مني tri d'un tableau par champ
ولم اجد أي شي يخص هده الطريقة ، فما الحل؟؟؟؟

ولدي سؤال بخصوص selection
هل نبحث على اصغر عدد ونضعه في الخانة الاولى ، أم نبحث على اكبر عدد؟

بخصوص انواع
tri
فللاسف لم نتطرق لهم بشكل واسع في السنة الاولى ونسيت التعاريف

ارجوا ممن لديه تعارف انواع
tri
ان يزودنا بها

بخصوص ه>ه الاسئلة فالافضل طرحها على الاستاد مباشرة لانها تدخل ضمن التعريفات ومن الصغب ان ناخد دور الاستاد ونقوم بشرح هده التعريفات

لان الاستاد لديه طرقه الخاصة لشرح
وبخصوص البرمجة فان شاء الله نساعدك

algeriano9354 · 2013-03-01, 14:32

اقتباس:

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

انا ادرس السنة الاولى رياضيات واعلام آلي
ولحد الآن لم ندرس enregistrement
لكن بالنسبة les tableau
في ترتيبها توجد عدة طرق كselection insertion...الخ
لكن انا طلب مني tri d'un tableau par champ
ولم اجد أي شي يخص هده الطريقة ، فما الحل؟؟؟؟

ولدي سؤال بخصوص selection
هل نبحث على اصغر عدد ونضعه في الخانة الاولى ، أم نبحث على اكبر عدد؟

أنا أدرس في جامعة قسنطينة ،،، رانا لحقنا لـ les listes ،،، شخصيا أنا درس recording لم أحضره تمــــــــــــاما

you92cef · 2013-03-01, 18:15

اقتباس:

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

أنا أدرس في جامعة قسنطينة ،،، رانا لحقنا لـ les listes ،،، شخصيا أنا درس recording لم أحضره تمــــــــــــاما

les liste
المفروض تدروسونه في السنة الثانية

بهاار · 2013-03-01, 16:18

كود:

    program triparselection;
  uses crt;
  const N=5;
  type Tableau = array [1..N] of integer;
   var
  tab: Tableau;
   
  Procedure remplir ( var tab: Tableau);
  var i:integer;
  begin
   
     for i:=1 to N do
     read(tab[i]);
   
  end;
   
   
  procedure triselection( var tab: Tableau);
  var
  i,j,x, indice:integer;
  begin
  for i:= 1 to N-1 do
  begin
    indice:=i;
   
  for j:= i+1 to N do
  begin
  if(tab [indice] > tab[j]) then
    indice:=j;
  end;
   
  if( tab[indice] <>tab [ i])  then
   begin
  x:= tab[i];
  tab[i]:=tab[indice];
  tab [indice]:=x;
  end;
  end;
   
   
   
  procedure Impression ( tab: Tableau);
  var
  i:integer;
  begin
  writeln ('-------------------------------------------------------');
  for i:= 1 to N do
  write ( tab [i]:3,' ');
   writeln;
   end;
   
   
  begin
  remplir (tab);
  writeln('Tri par selection');
  writeln;
  Impreession (tab);
  triselection (tab);
  Impression (tab);
  writeln('---------------------------------------------------------');
  end.

أريد المساعدة حيث يوجد فيها خطأ لكن لم أتمكن من معرفته

you92cef · 2013-03-01, 18:21

اقتباس:

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

كود:

    program triparselection;
  uses crt;
  const N=5;
  type Tableau = array [1..N] of integer;
   var
  tab: Tableau;
   
  Procedure remplir ( var tab: Tableau);
  var i:integer;
  begin
   
     for i:=1 to N do
     read(tab[i]);
   
  end;
   
   
  procedure triselection( var tab: Tableau);
  var
  i,j,x, indice:integer;
  begin
  for i:= 1 to N-1 do
  begin
    indice:=i;
   
  for j:= i+1 to N do
  begin
  if(tab [indice] > tab[j]) then
    indice:=j;
  end;
   
  if( tab[indice] <>tab [ i])  then
   begin
  x:= tab[i];
  tab[i]:=tab[indice];
  tab [indice]:=x;
  end;
  end;
   
   end;
   
  procedure Impression ( tab: Tableau);
  var
  i:integer;
  begin
  writeln ('-------------------------------------------------------');
  for i:= 1 to N do
  write ( tab [i]:3,' ');
   writeln;
   end;
   
   
  begin
  remplir (tab);
  writeln('Tri par selection');
  writeln;
  Impreession (tab);
  triselection (tab);
  Impression (tab);
  writeln('---------------------------------------------------------');
  end.

أريد المساعدة حيث يوجد فيها خطأ لكن لم أتمكن من معرفته

كان ينقص
end;
وكان هناك خطا في استدعاء البروسيدور

you92cef · 2013-03-01, 18:19

كود:


 program triparselection;
  uses wincrt;
  const N=5;
  type Tableau = array [1..N] of integer;
   var
  tab: Tableau;
   
  Procedure remplir ( var tab: Tableau);
  var i:integer;
  begin
   
     for i:=1 to N do
     read(tab[i]);
   
  end;
   
   
  procedure triselection( var tab: Tableau);
  var
  i,j,x, indice:integer;
  begin
  for i:= 1 to N-1 do
  begin
    indice:=i;
   
  for j:= i+1 to N do
  begin
  if(tab [indice] > tab[j]) then
    indice:=j;
  end;
   
  if( tab[indice] <>tab [ i])  then
   begin
  x:= tab[i];
  tab[i]:=tab[indice];
  tab [indice]:=x;
  end;
  end;
  end;
   
   
   
  procedure Impression ( tab: Tableau);
  var
  i:integer;
  begin
  writeln ('-------------------------------------------------------');
  for i:= 1 to N do
  write ( tab [i]:3,' ');
   writeln;
   end;
   
   
  begin
  remplir (tab);
  writeln('Tri par selection');
  writeln;
  Impression (tab);
  triselection (tab);
  Impression (tab);
  writeln('---------------------------------------------------------');
  end.

تصحيح البنامج السابق
كان ينقص
end;
وكان هناك خطا في استدعاء البروسيدور

بهاار · 2013-03-01, 18:53

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

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

you92cef · 2013-03-01, 20:06

اقتباس:

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

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

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

هنا الشرح

salemk · 2013-03-10, 18:38

اقتباس:

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

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

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

كود:

Enfoncez les touches “Alt Gr” + “6 - |”
“6 - |”  de la première ligne des lettres alphanumériques, en dessus  des touches “Y” et “T”

you92cef · 2013-03-01, 19:47

بخصوص المصفوفات
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 :

enemi05 · 2013-03-01, 21:38

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

بهاار · 2013-03-01, 21:39

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

you92cef · 2013-03-01, 21:47

اقتباس:

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

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

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

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