الحلقة التكرارية Do..While
بناء الحلقة
Do While condition
[statement 1]
[statement 2]
...
Loop
وهذه الحركة معناها ..قم بالدوران طالما الشرط محقق
مثال على الحركة التكرارية do while
في هذا المثال نقول له قم بالدوران طالما ان المتغير X أقل من أو يساوي 10
Dim x, i As Integer
i = 0
x = 0
Do While x <= 10
i = i + x
x = x + 1
Loop
MsgBox "sum of numbers is " & i
الحركة التكرارية do until ...loop
والمعنى قم بتنفيذ هذه الحركة التكرارية حتى تحقق الشرطبناء الحلقة
Do Until condition
[statement 1]
[statement 2]
...
Loop
ماهى حسبة برما
برما هى عبارة عن قرية تتبع محافظة الغربيةوجاءت حسبة برما حين اصطدم أحد الأشخاص بسيدة كانت تحمل سلة بها مجموعة من البيض فتحطم البيض بأكمله فأراد الشخص تعويضها عما فقدته من البيض وقال لها:
– كم بيضه كانت بالقفص؟
– فقالت: لو أحصيت البيض بالثلاثة تبقى بيضة، ولو بالأربعة تبقى بيضة، ولو بالخمسة تبقى بيضة، ولو بالستة تبقى بيضة، ولو احصيته بالسبعة فلا يبقى شيئا.
والأن نريد أن نقوم بحل هذه المسألة من خلال الحركة التكرارية do until
Dim x, i As Integer
x = 7
Do Until (x Mod 2 = 1) And (x Mod 3 = 1) And (x Mod 4 = 1) And (x Mod 5 = 1) And (x Mod 6 = 1) And (x Mod 7 = 0)
x = x + 1
Loop
MsgBox "the true number of berma is " & x
ملحوظة
Mod يعنى باقى القسمة
أعطينا المتغير X القيمة الابتدائية 7 على افتراض أنه أقل عدد للبيض يمكن ان نبدأ به ولا يوجد أى مانع إذا اعطينا المتغير X قيمة ابتدائية 1 أو 0 .
المشاركات
ليست هناك تعليقات:
إرسال تعليق