برنامج كمبيوتر

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

5 rem

10 input N

20 SUM = 0

30 I = 1

40 FOR I = 1TO N

50 INPUT X

60 D =X/3

70 IF D = INT (D) TEN 90

80 NEXT I

90 SUM = SUM + X

100 NEXT I

110 MEAN = SUM / ((N-1) / 3)

120 END

السلام عليكم
ربنا معاكم يا جماعة ان شاء الله الامتحان خلاص يوم السبت
عموما انا هشرح البرنامج اللى قاله زميلكم هو فيه بعض الاخطاء
اولا لازم نحدد السؤال
يعنى لو كان طالب منك مجموع الاعداد التى تقبل القسمة على 3 المحصورة بين 1 و100 هيكون كما يلي

10 rem this program for num
20 sum=0
30 for i = 1 to 100
40 x= i/3
50 if x= int (i/3) then 60
60 sum = sum + x
70 next i
80 mean =sum / 33 (لاحظ ان الاعداد التى تقبل القسمة على 3 مابين الواحد والمائة هما 33 رقم فقط)
90 print sum , mean
100 end
لاحظ انى لم اكتب جملة read ولا جملة داتا لان الارقام مسلسلة من 1 الى 100

اما اذا اعطاك السؤال كما يلي
اكتب برنامج لحساب مجموع الاعداد التى تقبل القسمة على 3 من الاعداد التالية
(12و20و15و2و40و60) مثلا هيكون البرنامج كما يلي
10 rem this program for num
20 sum=0
30 for i = 1 to 6 (لان عندك ست اعداد فقط)
40 READ X
50 Y= X/3
60 if Y= int (X/3) then 60
70 sum = sum + x
80 next i
90 mean =sum / 3 (لاحظ ان الاعداد التى تقبل القسمة على 3 3من الارقام الموجودة3 ارقام فقط)
100 print sum , mean
110 DATA 12 , 20, 15 ,2 ,40 ,60

والله يا م / ايمان الواحد مش عارف يشكر حضرتك ازي علي المجهود الي حضرتك بتعملي معانا ومتشكر جدا بالنيابةعن كل زميلي في المنتدي
:a34::a34::a34::a34::a34: