64.Алгоритм и программа табулирования функции.

Разработать приложение, реализующее табулирование функции y=1,2sin(3x) при изменении аргумента х в диапазоне [x0,xk] с шагом h.

Текст программы:

Private Sub Комманда1 _Click() ' Кнопка Расчет

Dim x0 As Single, xk As Single, h As Single, x As Single, y As Single

Cls ' Очистка формы

x0 = Val(InputBox("Ввод x0 - начального значения аргумента"))

xk = Val(InputBox("Ввод xk - конечного значения аргумента"))

h = Val(InputBox("Ввод h - шага изменения аргумента"))

Print Tab(7); "Функция y = 1.2sin(3x)"

For x = x0 To xk + h/2 Step h

y = 1.2 * Sin(3 * x)

Next x

End Sub

65-66. Операторы цикла Do While…Loop, Do.. Loop While, Do Until…Loop, Do.. Loop Until. Пример.

Оператор цикла Do-Loop. Логически управляемый цикл, оператор Do — начало, оператор Loop — конец цикла.

Оператор имеет четыре модификации:

1) Условие имеет значение True в начале цикла.

Структура:

Do While <условие>

<блок операторов>

Exit Do <блок операторов>

Loop

Цикл выполняется пока истинно условие. Оператор Exit Do предназначен для прекращения цикла и передачи управления оператору Loop — конец цикла.

2) Условие имеет значение True в конце цикла.

Структура:

Do

<блок операторов>

Exit Do

<блок операторов>

Loop While <условие>

Цикл выполняется хотя бы один раз, проверка условия в конце цикла.

3) Условие False в начале цикла.

Структура:

Do Until <условие>

<блок операторов>

Exit Do

<блок операторов>

Loop

Цикл выполняется до тех пор, пока условие не станет истинным.

4) Условие False в конце цикла.

Структура:

Do

<блок операторов>

Exit Do

<блок операторов>

Loop Until<условие>

Условие проверяется в конце цикла. Цикл прекращается, когда условие станет истинным.

Пример:

Do While True

A=Rnd :Debug.Print a

If a>0.99 Then Exit Do

Loop