|
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal
|
أدوات الموضوع | انواع عرض الموضوع |
2013-02-28, 19:56 | رقم المشاركة : 286 | ||||
|
احسنت اخي كود:
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. 31331 34285 34348 55604 ملاحظة: هذا التمرين كان امتحان في المدرسة Examen de janvier 2009 - Université Libre de Bruxelles وهي مدرسة رائدة في مجال الهندسة بما فيها الاعلام الالي جل الجامعات تاخذ تمارين الامتحانات وباقي التمارين من تمارين هده الجامعة سيتم وضع الشرح قريبا ان شاء الله
|
||||
2013-02-28, 20:11 | رقم المشاركة : 287 | |||
|
السلام عليكم ورحمة الله تعالى وبركاته |
|||
2013-02-28, 20:22 | رقم المشاركة : 288 | ||||
|
اقتباس:
ولكن هدا النوع يشبه control de l'information المبدا لدينا معلومة تتكون من cahmp type record اولا نقوم بالترتيب بحسب champ1 si sont egaux le champ2 ainsi de suite مثال لترتيب الطلبة بحسب الاسم لدينا طالب اسمه محمود محمد وطالب اخر اسمه ايضا محمود محمد نقارن الحقل الاول محمود محمود نفس الحقل ن>هب الى الحقل الثاني محمد محمد نقارن الحقل الثالث ال>ي نفترضه مثلا تاريخ الميلاد فهنا يمكننا ترتيب لتفادي كل ه>ه الاشياء نستعمل code pour chaque personne تدرسنوه ابتداءا من السنة الثانية اعلام الي ه>ا هو المبدا بحسب علمي |
||||
2013-02-28, 20:31 | رقم المشاركة : 289 | |||
|
بخصوص المصفوفة فهنا يوجد بعض الشرح |
|||
2013-02-28, 21:40 | رقم المشاركة : 290 | |||
|
لكن اخي الكريم على حسب مافهمت من ردك انك تستعمل enregistrement |
|||
2013-03-01, 09:57 | رقم المشاركة : 291 | ||||
|
اقتباس:
enregistrement بينما في مواد او برامج اخرى لا نستعمل enregistrement مثلا في مادة system information ou base de donnee نستعمل نفس المبدا ولكن بطرق اخرى كود:
type enre=record nom:string; prenom:string; age:integer; .... .. . . end; |
||||
2013-03-01, 11:59 | رقم المشاركة : 292 | |||
|
انا ادرس السنة الاولى رياضيات واعلام آلي |
|||
2013-03-01, 13:00 | رقم المشاركة : 293 | ||||
|
اقتباس:
tri فللاسف لم نتطرق لهم بشكل واسع في السنة الاولى ونسيت التعاريف ارجوا ممن لديه تعارف انواع tri ان يزودنا بها بخصوص ه>ه الاسئلة فالافضل طرحها على الاستاد مباشرة لانها تدخل ضمن التعريفات ومن الصغب ان ناخد دور الاستاد ونقوم بشرح هده التعريفات لان الاستاد لديه طرقه الخاصة لشرح وبخصوص البرمجة فان شاء الله نساعدك |
||||
2013-03-01, 14:30 | رقم المشاركة : 294 | ||||
|
اقتباس:
|
||||
2013-03-01, 14:32 | رقم المشاركة : 295 | ||||
|
اقتباس:
|
||||
2013-03-01, 16:18 | رقم المشاركة : 296 | |||
|
كود:
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. أريد المساعدة حيث يوجد فيها خطأ لكن لم أتمكن من معرفته |
|||
2013-03-01, 18:15 | رقم المشاركة : 297 | ||||
|
اقتباس:
المفروض تدروسونه في السنة الثانية |
||||
2013-03-01, 18:19 | رقم المشاركة : 298 | |||
|
كود:
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:21 | رقم المشاركة : 299 | ||||
|
اقتباس:
end; وكان هناك خطا في استدعاء البروسيدور |
||||
2013-03-01, 18:53 | رقم المشاركة : 300 | |||
|
شكرا لك اخي الكريم على المساعدة |
|||
الكلمات الدلالية (Tags) |
ملتقى, الالي, الاعلام, طلاب |
أدوات الموضوع | |
انواع عرض الموضوع | |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc