المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : برنامج كمبيوتر



eng_mayo
06-10-2010, 10:30 AM
يا جماعة البرنامج دة لحساب مجموع ونتوسط 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

م.ايمان عبدالعزيز
06-10-2010, 03:28 PM
السلام عليكم
ربنا معاكم يا جماعة ان شاء الله الامتحان خلاص يوم السبت
عموما انا هشرح البرنامج اللى قاله زميلكم هو فيه بعض الاخطاء
اولا لازم نحدد السؤال
يعنى لو كان طالب منك مجموع الاعداد التى تقبل القسمة على 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

م.ايمان عبدالعزيز
06-10-2010, 03:35 PM
اما اذا اعطاك السؤال كما يلي
اكتب برنامج لحساب مجموع الاعداد التى تقبل القسمة على 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

eng_mayo
06-11-2010, 12:54 PM
والله يا م / ايمان الواحد مش عارف يشكر حضرتك ازي علي المجهود الي حضرتك بتعملي معانا ومتشكر جدا بالنيابةعن كل زميلي في المنتدي
:a34::a34::a34::a34::a34: