اقتباس:
المشاركة الأصلية كتبت بواسطة King Soft
السلام عليكم اخوتي
اولا ملاحظة عن نص التمرين :
التمرين يقول اكتب برنامج يطلب اعداد حقيقية مدام مجموع الاعداد اقل من 1000 ف إذا فاق المجموع 1000 يتوقف البرنامج
عن طلب الاعداد ولذالك لسنا بحاجة لعرض رسالة الخطا الي كتبتها لان المجموع اصلا يجب ان يكون اكثر من الالف والا فلن يتوقف البرنامج.
تفضل الحل:
كود:
program Project1;
uses wincrt;
var X,S,i:integer;
T:array[1..100] of integer;
begin
S:=0;i:=0;
while s<1000 do
begin
i:=i+1;
read(x);
S:=S+X;
T[i]:=X;
end;
for x := 1 to i do
Writeln('le Numero',x,'est = ',T[x]);
Write('La Somme est = ',S);
readln; readln;
end.
بالتوفيق
|
-------------------
نعم يمكن حذف التعليق
ولكن انت اضفت تعاليق اكثر مني
عموما برنامجك فيه بعض الاخطاء
مثلا اذا ادخلت 500 ثم 500 سوف يكتب المجموع 1000 وهذا خاطئ
لان نص التمرين يقول يجب ان يكون المجموع اقل من 1000*-* ليس اقل او يساوى *-*
يعني اكبر مجموع هو 999*-* في حالة تجاوز المجموع 1000او كان يساوي 1000 لا نحسب العدد الاخير
نفس الشيء اذا ادخلت 500 ثم 6000 سوف يكتب المجموع 1100
+
نص التمرين الاخر الذي يطلب عدد الاعداد التي ادخلتها لم تجب عليه