بوابة الثانوية العامة المصرية - برجاء اغيثونا فى حل هذه المسألة

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- أرشيف المنتدى (https://www.thanwya.com/vb/forumdisplay.php?f=513)

- - برجاء اغيثونا فى حل هذه المسألة (https://www.thanwya.com/vb/showthread.php?t=301910)

برجاء اغيثونا فى حل هذه المسألة

قم بعمل برنامج يقوم بجمع الأعداد الفردية من 1 وحتى المتغير limit حيث أن المتغير limit يأخذ قيمته من أداة textbox1.text

dim x , limit , total as intger
limit = tectbox1.text
x= 1
do while x<= limit
total = total + x
x= x + 2
loop
msgbox ( total

1- هل يقوم بجمع الأعداد الفردية التى تقع فى محيط العدد واحد وقيمة المتغير مثلا لو كان المتغير Limit = 5
يقوم بجمع الأعداد 1+3+5 = 9
أرجو وضع إيضاح وافى لكيفية حل هذا السؤال

اقتباس:

المشاركة الأصلية كتبت بواسطة ashraf161972 (المشاركة 3267883)

قم بعمل برنامج يقوم بجمع الأعداد الفردية من 1 وحتى المتغير limit حيث أن المتغير limit يأخذ قيمته من أداة textbox1.text

dim x , limit , total as intger
limit = tectbox1.text
x= 1
do while x<= limit
total = total + x
x= x + 2
loop
msgbox ( total

مبدئيا لو هنفرض انك ادخلت فى الـ textbox1 الرقم 5

فإن المتغير limit بداخله الرقم 5

وبالتالى فإننا نريد جمع الأعداد الفردية من 1 إلى 5

حيث القيمة الابتدائية لـ X = 1
فيتم جمعها على المتغير total فيصبح 1
ثم نزيد الـX بـ 2 قتصبح قيمتها الجديدة 3
ثم نعود لاختبار الشرط هل قيمة الـ X أقل من أو تساوى Limit والنتيجة نعم

فيتم جمعها على المتغير total فيصبح4
ثم نزيد الـX بـ 2 قتصبح قيمتها الجديدة 5
ثم نعود لاختبار الشرط هل قيمة الـ X أقل من أو تساوى Limit والنتيجة نعم

فيتم جمعها على المتغير total فيصبح9

وعند زيادة العداد X مرة أخرى فيصبح 7
ويعاود اختبارة فإن الشرط لن يتحقق

فيقوم بتنفيذ الجملة التى تلى Loop

وهى رسالة بقيمة total بــ 9

وشكرا

لابد من تحويل القيمة الحرفية لـ " tectbox1.text " قبل اسنادها الى متغير " limit " الرقمى

الخطوة الثانية كتبت limit = tectbox1.text
والصحيح ان شاء الله
limit = integer.parse( textbox1.text)
a