Page 58 - أساسيات الحاسب الالي2
P. 58
جمل التحكم الفصل الرابع
Goto inbx
مثال :تكرار برنامج حساب مساحة المثلث بمعلومي ة أط وال أض ﻼعه الثﻼث ة باس تخدام
جملة التفرع Gotoإلى أن يدخل المستخدم طول ضلع يساوى صفر فينتهي البرنامج.
)(Sub Main
Dim a, b, c, s, area As Single
Begin:
)"اﻷول الضلع ادخل"(a = InputBox
)"الثاني الضلع ادخل"(b = InputBox
)"الثالث الضلع ادخل"(c = InputBox
If a = 0 Or b = 0 Or c = 0 Then GoTo finish
s = (a + b + c) / 2
area = (s * (s - a) * (s - b) * (s - c)) ^ 0.5
)"Console.WriteLine("---------------------------
)Console.WriteLine(a & " " & " " & b & " " & c
)"Console.WriteLine("Area of Triangle
)Console.WriteLine(area
GoTo Begin
finish: End
End Sub
)استخدما جملة الشرط ifفى المثال السابق وسوف نشرحها بالتفصيل ﻻحقا(
الشكل التالى يوضح ناتج التنفيذ إلى أن يدخل المستخدم طول ض لع م ن أض ﻼع المثل ث
يساوى صفر فيتوقف البرنامج
٥٨
