أسئلة للتفكير - مايو 2017- عاطف مهدى حسان

[المهدي مصطفى السعيد]

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

أولا : إكتب علامة صح أو خطأ بما يناسب العبارات التالية
================================
(1) يمكن تحويل أى جملة For ... Next بإستخدام جملة Do ... While
(2) يمكن تحويل أى جملة Do ... While بإستخدام جملة For ... Next

ثانياً : أكمل
=========
(1) عند الإعلان عن متغير من النوع Byte و تخصيص القيمة 256 له يحدث خطأ من النوع ـــــــــــــــــــــ
(2) عند كتابة التعبير الشرطى X<50 لطباعة ناجح إذا كانت درجة الطالب X أكبر من أو تساوى 50 و طباعة راسب إن لم يتحقق الشرط يحدث خطأ من النوع ــــــــــــــــــــــــــــــــ

ثالثا : أعد كتابة الكود التالى بإستخدام جملة Do While بدلا من For Next

========================================
Dim N As Integer, x As Integer = 1
For N = 10 To 4 Step 3
x = x + 2
Next
( MsgBox(N
====

أطيب الأمنيات بالنجاح و التفوق
عاطف مهدى حسان

======================

** السيد الاستاذ المحترم / عاطف مهدي .... كل عام انت بالف الف خير .... متعك الله بالصحة والعافية ....... ثم بالنسبة للسؤال الاول ....
** يمكن تحويل أى جملة For ... Next بإستخدام جملة Do ... While
** الاجابة صحيحة حيث ان التكرارا في جملة For .. Next مرتبط بعداد رقمي لذا يمكن تحويلها باستخدام Do While بسهولة ....
**يمكن تحويل أى جملة Do ... While بإستخدام جملة For ... Next
** الاجابة خطأ يمكن تحويل بعض جمل Do .. while باستخدام For .. Next... عندما يكون الشرط المرتبط به التكرار قيم رقمية ... أما اذا كان الشرط مرتبط بمتغير حرفي فلا يمكن تحويلها ..... مثال اذا كات التكرارا مرتبط بكتابة اسم او كلمة حرفية ..
** عند الإعلان عن متغير من النوع Byte و تخصيص القيمة 256 له يحدث خطأ من النوع ـــــــــــــــــــــ
يحدث خطأ املائي لغوي syntax حيث ان التخصيص كما هو واضح اثناء كتابة الكود ... والقيمة المخصصة اكبر من مدى نوع البيان ..... أما اذا كان التخصيص وقت تشغيل البرنامج فيكون الخطأ من نوع اثناء النشغيل RunTime..
**عند كتابة التعبير الشرطى X<50 لطباعة ناجح إذا كانت درجة الطالب X أكبر من أو تساوى 50 و طباعة راسب إن لم يتحقق الشرط يحدث خطأ من النوع ــــــــــــــــــــــــــــــــ
يحدث خطأ من النوع المنطقي Logic... حيث ان الكود صحيح من حيث الصياغة ولكننا سنحصل على نتائج خطأ وهذا هو الخطأ المنطقي حيث تم استعمال معامل مقارنة خطأ ...
** السؤال الاخير ..حيث ان قيمة الزيادة بعد كلمة Step مخالف لطبيعة الاعداد التنازلي فلن يتم التكرار باستخدام جملة For ... Next ولا مرة .. ومع ذلك يمكن تحويلها باستخدام جملة Do while....... كما يلي ...

Dim N As Integer, x As Integer = 1
N = 10
Do While N > = 4
x = x + 2
N = N + 3
Loop
msgbox(n)

** قوم ايه بقه يا عم عاطف ...... قوم " يهنج الجهاز " حيث انه تكرارا لا نهائي ... ويمكنك تغيير شكل التعبير الشرطي او مقدار زيادة N.... لتكون بالنقصان او اي راي آخر ..شكرا يا غالي