عاجل للأستاذ أحمد قرنى

[hosam abdelaziz]

ما هى قيمة r بعد تنفيذ الكود :

dim r as integer = 1
do while r <= 1
r = r - 2
loop
(msgbox(r
لماذا الإجابة overflow

[waleedamin]

الشرط بتاعك نتيجته True
عشان كده هتنفذ المعادله r=r-2 يعنى r=1-2 هتطلع -1
ونوع integer --< r يعنى لازم تكون موجبه وصحيحه
عشان كده
over flow

[سيف سالم]

المشاركة الأصلية كتبت بواسطة hosam abdelaziz

ما هى قيمة r بعد تنفيذ الكود :

dim r as integer = 1
do while r <= 1
r = r - 2
loop
(msgbox(r
لماذا الإجابة overflow

المشاركة الأصلية كتبت بواسطة waleedamin

الشرط بتاعك نتيجته True
عشان كده هتنفذ المعادله r=r-2 يعنى r=1-2 هتطلع -1
ونوع integer --< r يعنى لازم تكون موجبه وصحيحه
عشان كده
over flow

لان القيمة ستكون سالب مالا نهاية
والنوع integer يقع بين سالب وموجب 2 مليار

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة سيف سالم

لان القيمة ستكون سالب مالا نهاية
والنوع integer يقع بين سالب وموجب 2 مليار

كلام صحيح
بارك الله فيك أستاذ / سيف

[عمر العزونى]

لا يا اخوانى المدرسين الأعزاء السبب ليس كما تظنون .. جربوا هذا الكود Dim r As Integer = 1
Do While r <= 1
r = r - 2
(MsgBox(r
Loop
ستجدود الشرط true إلى ما لا نهاية والنواتج ( -1،-3،-5،-7،-9،-11،.............ليس له نهاية ... فعندما تطلب منه الناتج بعد انتهاء الحلقة التكرارية فلابد أن لا يستطيع إيجاد ناتج فتظهر رسالة الخطأ " أعلى من المستوى"OverFlow أ/ هشام الصياد.. صفط تراب

[ماهر احمد اسماعيل]

الشرط بتاعك نتيجته True
عشان كده هتنفذ المعادله r=r-2 يعنى r=1-2 هتطلع -1
ونوع integer --< r يعنى لازم تكون موجبه وصحيحه
عشان كده
over flow

[سيف سالم]

المشاركة الأصلية كتبت بواسطة ماهر احمد اسماعيل

الشرط بتاعك نتيجته True
عشان كده هتنفذ المعادله r=r-2 يعنى r=1-2 هتطلع -1
ونوع integer --< r يعنى لازم تكون موجبه وصحيحه
عشان كده
over flow

النوع integer يسمح بتخزين السالب مفيش فيه مشكلة
يعنى لو عدلنا السؤال كدا
dim r as integer = 1
do while r = 1
r = r - 2
loop
(msgbox(r
ستكون الاجابة -1 وليست overflow

[نسر مصر]

يرجع السبب الى نوع الحلقة فمثلا الحلقة التزايدية يجب ان يكون خطوة التزايد موجبة أما الحلقة التناقصية يجب ان تكون سالبة

[ابو محمد 2]

الناتج overflow بسب القيمة في أول مره سوف تكون -1 ثم -3 ثم -5 ...... وهكذا حتي يصل الى اقصى مدى الى النوع integer وهو 2147483648- ولن يتوقف التكرار بسب ان الشرط مازال true ولكن تم تجاوز الحد الأقصى لمدى النوع integer وبالتالي تظهر رسالة overflow
مع العلم بأن مدى النوع integer ( من -2147483648 الى +2147483647 )
مثل كتابة قيمة 300 في متغير من النوع byte تظهر رسالة overflow

[akoymmf]

بسم الله الرحمن الرحيم
البيان من النوع Integer يسمح بتخزين القيم الموجبو السالبة على المدى المخصص له
لكن السبب هنا من يظهر خارج المدى بسبب ان بداية التكرار القيمهr = واحد ويتوقف عندما تصبح القيمة r اكبر من واحد وها لن يحدث وذلك اننا ننقص 2 كل مرة فيدخل فى تكرار لانهائى حتى يخرج من مدى توع البيان المعلن
ولتجربة ضع مربع الرسالة داخل التكرار

Dim m As Integer
m = 1
Do While m <= 1
m = m - 2
( MsgBox(m)
Loop

[hany2014]

هل يمكن استدعاء الاجراء قبل الاعلان عنه كما فى صفحة 85

[hassanalhawy]

المشاركة الأصلية كتبت بواسطة hany2014

هل يمكن استدعاء الاجراء قبل الاعلان عنه كما فى صفحة 85

نعم يمكن . ولكن فى أول الأمر سوف ينبهك البرنامج إلى وجود خطأ من عدم وجود الإجراء الذى تم استدعاءه ، وبعد الإعلان عنه يزول هذا الخطأ

[magdy3030]

هل يتم طباعة كتب الكمبيوتر في المرحلة الاعدادية في العام القادم وما وضع المادة في العام القادم برجاء الرد لمن يعلم اي حاجة

[magdy3030]

هل يتم طباعة كتب الكمبيوتر في المرحلة الاعدادية في العام القادم وما وضع المادة في العام القادم برجاء الرد لمن يعلم اي حاجة

[hany2014]

حد ممكن يفهمنى حل السؤال الثالث رقم 1 فى نموزج اختبار رقم 1

حدد قيمه كل متغير بعد تنفيذ الكود

المتغير

القيمة

C

11

K

7

N

11

Dim N, K, C As Integer

C = 10For N = 1 To 10 Step 5 K = K + N

Next

IF N >= C Then

C = C + 1

End IF