Приклад 3

Date: 2015-10-07; view: 405.

Loop

Do

Wend

Оператор призначений для організації циклу з передумовою, у якому вказана група операторів виконується до того часу, поки вказана умова не стає хибною. Змінна, що входить в умову, змінюється в тілі циклу. Для дострокового виходу з циклу в разі виконання деякої додаткової умови використовується оператор Exit While.

Синтаксисоператору циклу Do (ітераційний цикл) має два варіанти:

< група операторів >

[ Exit Do ]

LoopWhile / Until < умова >

2. DoWhile / Until < умова >

< група операторів >

[ Exit Do ]

Де < умова > - логічний вираз, який може приймати два значення: істина, або хибність; While – виконання циклу, поки умова істина; Until - виконання циклу, поки умова хибна; Exit Do - достроковий вихід із циклу. Ітераційний цикл ПОКИ: Do While ... Loop - цикл, що задається цією конструкцією,виконується доти, поки умова, що задається в циклі істина (дотримується).

Ітераційний цикл ДО: Do Until ... Loop.Тут цикл виконується доти, поки умова хибна (не дотримується), а не істинна. У такій конструкції можлива ситуація, за якої тіло циклу не виконається жодного разу, якщо при першій перевірці умова не дотримується. Оператор циклу Do... Loop Until.У даному операторі циклу, як і у попередньому, цикл виконується доти, поки умова хибна (не дотримується). За такого варіанту конструкції оператора циклу тіло циклу виконається принаймні один раз, після чого здійсниться перевірка умови виконання циклу, навіть якщо умова дотримувалася.

Нехай, наприклад, треба розрахувати значення Y за­лежно від введеного значення X. Тоді фрагмент програ­ми матиме такий вигляд:

Приклад 1.

(Алгоритм дивись приклад 4 у розділі “Основи алгоритмізації”)

Private Sub Command1_Click ()

Dim x!, a! , y!

a = Input Box (“a=”, “приклад 1”)

For x = 0.1 To 3 Step 0.2

y = Tan (x ^3) + (a ^2 + Exp (x)) ^ (1/5)

Print “x=”; x ; “y=”; y

Next x

End Sub

Приклад 2.

(Алгоритм дивись приклад 3 у розділі “Основи алгоритмізації”)

Private Sub Form_Load ()

Dim k%, x!

Dim s As Variant

x = Input Box (“x=”, “приклад 2”)

If x <> 3 Then

s = 0 : k = 2

While k < 9

s = s + ( x + k )/ ( 3 - x )

k = k + 1

Wend

Else

s = “Рішення не існує”

End If

MsgBox (“ s = ” + Str ( s ))

End Sub

У даному прикладі цикл виконується тоді, коли введені значення Х задовольняють умову Х>0:

X = Input ("Значення X", Х)
Do While Х> 0
Y=sqr(3*Х+7)
Print X;Y
Loop