◄◄ آدم فـــى الـكــمــبــيــوتـــر تـرم ثـانــى ... جاارى التحديث طبقا للتعديلات الجديدة

[omarmoh]

أرجو اجابة هذا السؤال أستاذ أحمد

فى الكود

dim r as integer=1
do while r<=1
r=r-2
loop
msgbox(r

لماذا ناتج الكود overflow أرجو التوضيح

[أحـمد قرنى]

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

أرجو اجابة هذا السؤال أستاذ أحمد

فى الكود

dim r as integer=1
do while r<=1
r=r-2
loop
msgbox(r

لماذا ناتج الكود overflow أرجو التوضيح

قيمة r = 1 نقيم الشرط r <= 1 يعنى الشرط True وبالتالى نكرر الكود r = r - 2 ومنها تكون قيمة r = -1 نقوم بتقييم الشرط مرة اخرى r <=1 عند قيمة r الجديدة وهى r = -1 نجد الشرط true ايضا وبالتالى نكرر الكود مرة اخرى r = r-2 ومنها r = -3 نقيم الشرط هيفضل true فى كل مرة يعنى حلقة غير منتهية

[محمد غرباوى]

المشاركة الأصلية كتبت بواسطة أحـمد قرنى

قيمة r = 1 نقيم الشرط r <= 1 يعنى الشرط True وبالتالى نكرر الكود r = r - 2 ومنها تكون قيمة r = -1 نقوم بتقييم الشرط مرة اخرى r <=1 عند قيمة r الجديدة وهى r = -1 نجد الشرط true ايضا وبالتالى نكرر الكود مرة اخرى r = r-2 ومنها r = -3 نقيم الشرط هيفضل true فى كل مرة يعنى حلقة غير منتهية

طيب مش ممكن اجعل الكود كالتالى Dim R as Byte ، وبالتالى قيمة r = 1 ، ونقم بتقييم الشرط 1=> r
true وبالتالى نكرر الكود 2-r=r , ومنها تكون قيمة 1- = r وبالتالى فإن المتغير r من النوع Byte فيأخذ قيم عددية صحيحة من 0 : 255 وبالتالى تكون الإجابة overflow
ارجو الافادة من حضرتك استاذ احمد

[أحـمد قرنى]

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

طيب مش ممكن اجعل الكود كالتالى Dim R as Byte ، وبالتالى قيمة r = 1 ، ونقم بتقييم الشرط 1=> r
true وبالتالى نكرر الكود 2-r=r , ومنها تكون قيمة 1- = r وبالتالى فإن المتغير r من النوع Byte فيأخذ قيم عددية صحيحة من 0 : 255 وبالتالى تكون الإجابة overflow
ارجو الافادة من حضرتك استاذ احمد

ممكن طبعا وهيعطى نفس الناتج over flow