Page 71 - أساسيات الحاسب الالي2
P. 71
جمل التحكم الفصل الرابع
فى اﻷمثلة السابقة تم استخدام متغير الدوارة فى عمليات حسابية داخل الدوارة ولكن ف ى
بعض اﻷحيان يكون استخدامنا للدوارة لتكرار عملية أو مجموعة عمليات كما فى الك ود
التالى المستخدم لطباعة ١٠نجوم
)(Sub Main
Dim i As Integer
For i = 1 To 10
)"*"(Console.WriteLine
Next i
)(Console.Read
End Sub
يمكن ك اس تخدام الخط وة بقيم ة س البة ف ى حال ة أن قيم ة البداي ة لل دوارة اكب ر م ن القيم ة
النهائية فمثﻼ ﻹيجاد مضروب رقم فإننا نوجد حاصل ضرب الرقم فى نفس الرقم ناقص
واحد وهكذا حتى نصل إلى ١
N! = N × (N -1) × (N -2) × ……. × 1
يمكننا استخدام الدوارة ﻹيجاد المضروب لرقم ٥كالتالى
)(Sub Main
Dim i, Fact As Integer
Fact = 1
For i = 5 To 1 Step -1
٧١
