أولا : إكتب علامة صح أو خطأ بما يناسب العبارات التالية
================================
(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
====
أطيب الأمنيات بالنجاح و التفوق
عاطف مهدى حسان

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

أولا : إكتب علامة صح أو خطأ بما يناسب العبارات التالية
================================
(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.... لتكون بالنقصان او اي راي آخر ..شكرا يا غالي

** السيد الاستاذ المحترم / عاطف مهدي .... كل عام انت بالف الف خير .... متعك الله بالصحة والعافية ....... ثم بالنسبة للسؤال الاول ....
** يمكن تحويل أى جملة 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.... لتكون بالنقصان او اي راي آخر ..شكرا يا غالي




================================================== ==
استاذى الجميل العزيز المحترم المهدى مصطفى السعيد كل عام و انت بخير
و بعد
== بالنسبة ل أولا (1) تمام و أولا (2) تمام بس التعليل عليه تعليق انه مش شرط فقط ان يكون التعبير الشرطى مرتبط بقيمة نصية عشان ما اقدرش احولها لجملة For Next فطالما الشرط بالنسبة لمقارنة بقيمة رقمية ان لم يكن معامل المقارنة المستخدم اكبر من او يساوى او اقل من او يساوى فلن نستطيع حينئذ التحوبل لــ For Next حيث انها شروط التكرار المتاحة مع هذه الجملة
===============================
بالنسيبة لثانيا (1) الجملة مذكورة فى الكتاب المدرسى عند شرح مثال للاخطاء عند التشغيل و قصدت طرح هذا السؤال لان ما يفهم منه هو ما ذكرته انت لكن المرجع لنا هو الكبير بتاعنا ( الكتاب المدرسى ) و لكن نتعشم فى واضعى الاسئلة ان يوضح اكثر كل بطريقته
===
و ثانيا (2) تمام
==================================
بالنسبة للسؤال الثالث -- الاجابة سيدى المحترم غير ما ذكرت فى الشرط فقط و الباقى كله تمام
عشان كده ذهبنا لسلسلة تكرارية غير منتهية كما ألمحت فى ردك

=======================
مع تقديرى و اعتزازى بحضرتكو كل عام و انت بخير و سعادة
=======================
عاطف مهدى حسان // ميت موسى - شبين الكوم

يارب يلغوا الكمبيوتر من الاعدادى

أسئلة تفكير (2) مايو 2017 ///
عاطف مهدى حسان
بإستخدام جملة الشرط If
إكتب الكود الذى يعبر عن خطوات الحل المكتوبة
لطباعة عبارة "مصر أم الدنيا" إذا كانت البيانات المخزنة فى المتغير StrEgypt و التى تستقبل من خلال صندوق النص TextBox1 هى "مصر"
و طباعة "أدخل كلمة "مصر"" إن كانت الكلمة المدخلة فى نفس صندوق النص غير ذلك .

=============================
(1) البداية
(2) أدخل البيانات
(3) هل المدخلات تتطابق مع كلمة "مصر"
إذن (3-1) طباعة " مصر أم الدنيا"
غير ذلك (3-2) طباعة " أدخل كلمة "مصر" "
(4) النهاية
=============================
مع أطيب الأمنيات بالتفوق
عاطف مهدى حسان

رائع جدا أستاذنا الفاضل

جزاك الله خيرا و بارك الله فيك

رائع جدا أستاذنا الفاضل

جزاك الله خيرا و بارك الله فيك




=============================
شكرا جزيلاً أستاذى الفاضل / أيمن نور
و كل عام و انت بخير و سعادة

عاطف مهدى حسان
============================

Dim N As Integer = 10
Dim x As Integer = 1
Do While N <= 4
x = x + 2
N = N + 3
Loop
MsgBox(N)