Лекция: Sub Р1()

Dim x0 As Single, xk As Single, h As Single

Dim a As Single, y As Single, x As Single

x0 = Val(InputBox(«Введіть х0»))

xk = Val(InputBox(«Введіть хk»))

h = Val(InputBox(«Введіть h»))

a = Val(InputBox(«Введіть a»))

x = x0

Do While x <= xk

y = Sqr(x ^ 2 + 25) / (x ^ 2 + a ^ 2)

Debug.Print «y=» & y & " x=" & x

x = x + h

Loop

End Sub

Приклад 2. Записати програму для виведення у вікно налагодження натуральних чисел від n до 1, їхні квадрати і куби.

Позначення: n — число, n2, n3 — відповідно квадрат і куб числа.

Sub Р2()

Dim n As Integer, n2 As Integer, n3 As Integer

n = Val(InputBox(«Введіть n»))

Debug.Print «Число» & " Квадрат числа" & " Куб числа"

Do

n2 = n ^ 2: n3 = n2 * n

Debug.Print n & " " & n2 & " " & n3

n = n — 1

Loop Until n = 0

End sub

2) Оператор While...Wend

Цей оператор циклу є різновидом оператора Do…Loop...

Синтаксис оператора:

While умова

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

Wend

Якщо умова має значення True, виконуються Блок операторів до Wend. Якщо умовамає значення False, виконання відновляється з операторів, що випливають за Wend. Цикли While¼Wendможуть мати будь-яку глибину вкладеності.

3) Оператор For… Next

Цей оператор циклу можна зустріти в більшості мов програмування. Він використовується у випадках, коли відомо, скільки разів необхідно повторити виконання серії операторів. Синтаксис оператора:

For лічильник = початок To кінець [step крок]

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

Next [лічильник]

Лічильник – числова змінна, котра автоматично змінюється після кожного повтору. Початкове значення лічильника дорівнює параметру початок, а кінцеве — кінець. Крок — крок лічильника циклів. Якщо цей параметр опущений, то значення кроку приймається рівним 1. Щоб лічильник змінювався по убуванню, використовується негативне значення кроку.

Приклад 3. Дан масив Х=(12,24,67,38,56,69) щомісячного випуску продукції в 1-му півріччі. Визначити випуски продукції за 1- й і 2 — й квартали.