Loop While Умова

Do

Оператор циклу Do... Loop While

Loop

Процес виконання оператора Do While... Loop такий:

a. Перевіряється на істинність деяка логічна умова.

b. Якщо умова істинна, виконується блок операторів у тілі циклу. В іншому випадку цикл завершує свою роботу.

При використанні циклу Do While... Loop потрібно, на відміну від оператора For...Next, усередині циклу змінювати значення змінної - лічильника циклу.

У програмі визначення суми на рахунку після декількох років при певному банківському відсотку може бути використаний замість оператора For...Next оператор Do While... Loop. У цьому випадку алгоритм виконання програми не зміниться. Процедура cmdSolve _Click() прийме такий вид:

Private Sub cmdSolve _Click()

SPV = Val(txtSPV.Text)

V = Val(txtV.Text)

P = Val(txtP.Text)

SR = SPV

i = 1

Do While i<= P

SR = SR*(100+V)/100

i = i+1

Loop

lblSR.Caption = Str(SR)

End Sub

У циклі цього типу оператори, що входять у тіло циклу виконуються обов’язково хоча б один раз, після цього відбувається перевірка умови і, якщо умова не істинна, керування передається наступному після рядка Loop оператору - цикл завершується. При істинності умови, починається наступна ітерація циклу.

Загальна форма оператора:

Блок_операторів

Якщо спробувати вирішити задачу визначення суми ряду чисел із використанням оператора Do... Loop While, алгоритм виконання програми зміниться (рис.3.1).

Рисунок 3.1 - Блок-схема розв’язання задачі обчислення суми на рахунку з використанням оператора Do... Loop While

Процедура cmdSolve _Click() прийме такий вид:

Private Sub cmdSolve_Click()

SPV = Val(txtSPV.Text)

V = Val(txtV.Text)

P = Val(txtP.Text)

SR = SPV

i = 1

Do

SR = SR*(100+V)/100

i = i+1

Loop While i<= P

lblSR.Caption = Str(SR)

Дата добавления: 2015-01-03