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

you92cef · 2013-02-28, 19:56

احسنت اخي
algeriano9354

بداية موفقة استمر في البرجة

تم اضافة بعض التعديلات الطفيفة على برنامجك وه>ا هو البرنامج النهائي ان شاء الله
ملاحظة: هدا البرنامج مخصص فقط لاعداد التي تتكون من 5 ارقام يمكن تعديله كيفما نشاء مع احترام مجالات الاعداد

كود:

program keith;
uses wincrt;
var
a,b,c,d,e,r1,r2,r3,r4,s,k,j:longint;
begin
repeat
writeln('entrer un nombre composé de 5 chiffres');
readln(k);
until (k>9999) and(k<=99999);
begin
 a:= k div 10000;
 r1:=k-a*10000;
 b:=r1 div 1000;
 r2:=r1-1000*b;
 c:=r2 div 100;
 r3:=r2-c*100;
 d:=r3 div 10;
 r4:=r3-10*d;
 e:=r4;
 s:=0;
  repeat
   s:=a+b+c+d+e;
    begin
    if s=k then begin
     writeln(s,' :est un nombre de keith');
     j:=1;
     end
     else
      a:=b;
      b:=c;
      c:=d;
      d:=e;
      e:=s;
    end;
  until s>k;
   if (s>=k) and(j<>1) then writeln('le nombre n''est pas de keith');
 end;
end.

quelque nombres de keith avec 5 chiifres
31331
34285
34348
55604

ملاحظة: هذا التمرين كان امتحان في المدرسة
Examen de janvier 2009 - Université Libre de Bruxelles
وهي مدرسة رائدة في مجال الهندسة بما فيها الاعلام الالي جل الجامعات تاخذ تمارين الامتحانات وباقي التمارين من تمارين هده الجامعة

سيتم وضع الشرح قريبا ان شاء الله

بهاار · 2013-02-28, 20:11

السلام عليكم ورحمة الله تعالى وبركاته

عندي سؤال في كيفية ترتيب جدول، بحيث انو توجد طرق عديدة لكن انا ابحث عن هده الطريقةtri d'un tableau par champ
هل هي موجودة؟
لاني بحثت عنها ولم اجدها ، ممكن يكون لها اسم آخر

you92cef · 2013-02-28, 20:22

اقتباس:

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

السلام عليكم ورحمة الله تعالى وبركاته

عندي سؤال في كيفية ترتيب جدول، بحيث انو توجد طرق عديدة لكن انا ابحث عن هده الطريقةtri d'un tableau par champ
هل هي موجودة؟
لاني بحثت عنها ولم اجدها ، ممكن يكون لها اسم آخر

صراحة لا ادري

ولكن هدا النوع يشبه
control de l'information
المبدا
لدينا معلومة تتكون من
cahmp
type record

اولا نقوم بالترتيب بحسب
champ1
si sont egaux
le champ2
ainsi de suite

مثال
لترتيب الطلبة بحسب الاسم
لدينا طالب اسمه
محمود محمد
وطالب اخر اسمه ايضا محمود محمد

نقارن الحقل الاول
محمود محمود نفس الحقل
ن>هب الى الحقل الثاني
محمد محمد
نقارن الحقل الثالث ال>ي نفترضه مثلا تاريخ الميلاد فهنا يمكننا ترتيب

لتفادي كل ه>ه الاشياء نستعمل
code pour chaque personne
تدرسنوه ابتداءا من السنة الثانية اعلام الي
ه>ا هو المبدا بحسب علمي

you92cef · 2013-02-28, 20:31

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

شرح بخصوص المصفوفات
https://www.djelfa.info/vb/showthread...1135321&page=7

بهاار · 2013-02-28, 21:40

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

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:30

اقتباس:

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

احسنت اخي
algeriano9354

بداية موفقة استمر في البرجة

تم اضافة بعض التعديلات الطفيفة على برنامجك وه>ا هو البرنامج النهائي ان شاء الله
ملاحظة: هدا البرنامج مخصص فقط لاعداد التي تتكون من 5 ارقام يمكن تعديله كيفما نشاء مع احترام مجالات الاعداد

كود:

program keith;
uses wincrt;
var
a,b,c,d,e,r1,r2,r3,r4,s,k,j:longint;
begin
repeat
writeln('entrer un nombre composé de 5 chiffres');
readln(k);
until (k>9999) and(k<=99999);
begin
 a:= k div 10000;
 r1:=k-a*10000;
 b:=r1 div 1000;
 r2:=r1-1000*b;
 c:=r2 div 100;
 r3:=r2-c*100;
 d:=r3 div 10;
 r4:=r3-10*d;
 e:=r4;
 s:=0;
  repeat
   s:=a+b+c+d+e;
    begin
    if s=k then begin
     writeln(s,' :est un nombre de keith');
     j:=1;
     end
     else
      a:=b;
      b:=c;
      c:=d;
      d:=e;
      e:=s;
    end;
  until s>k;
   if (s>=k) and(j<>1) then writeln('le nombre n''est pas de keith');
 end;
end.

quelque nombres de keith avec 5 chiifres
31331
34285
34348
55604

ملاحظة: هذا التمرين كان امتحان في المدرسة
Examen de janvier 2009 - Université Libre de Bruxelles
وهي مدرسة رائدة في مجال الهندسة بما فيها الاعلام الالي جل الجامعات تاخذ تمارين الامتحانات وباقي التمارين من تمارين هده الجامعة

سيتم وضع الشرح قريبا ان شاء الله

شكرااااا أخي على الإضافة المميزة ،،، القادم سيكون برنامج لحساب العدد Pi بثلاث طرق مختلفة ، أي سيكون باستعمل les procedures

algeriano9354 · 2013-03-01, 14:32

اقتباس:

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

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

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

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

بهاار · 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:15

اقتباس:

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

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

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

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;
وكان هناك خطا في استدعاء البروسيدور

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;
وكان هناك خطا في استدعاء البروسيدور

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

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

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