![]() |
|
في حال وجود أي مواضيع أو ردود
مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
ملتقى طلاب الاعلام الالي لحل تمارين Algorithmes et programmation en Pascal
|
أدوات الموضوع | انواع عرض الموضوع |
![]() |
رقم المشاركة : 11 | |||
|
![]() احسنت اخي كود:
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 وهي مدرسة رائدة في مجال الهندسة بما فيها الاعلام الالي جل الجامعات تاخذ تمارين الامتحانات وباقي التمارين من تمارين هده الجامعة سيتم وضع الشرح قريبا ان شاء الله |
|||
![]() |
الكلمات الدلالية (Tags) |
ملتقى, الالي, الاعلام, طلاب |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc