Контрольні питання

1. Оператор циклу FOR – NEXT і його робота.

2. Що таке параметр циклу?

3. Оператори циклу з передумовою і з післяумовою.

4. Логічні операції для запису умов.

5. Що таке вкладені цикли, яка їхня структура?

6. Як здійснюється достроковий вихід з циклу7

7. Які види операторів циклу Ви ще знаєте?

ПРИКЛАД ВИКОНАННЯ

3.1 .1 Скласти графічний алгоритм та програму для занесення на Лист Excel у 3 стовпці значення Х, Y і Z, якщо Х приймає значення з інтервалу [ -2; 1 ] із кроком 0.1, а Y і Z обчислюються за формулами:

3.1.2 Графічний алгоритм

3.1.3 Обчислюємо кількість інтервалів Х за формулою:

; ; N=31

3.2.1 Виконати програму Сервіс →Макрос →Редактор VBA;

3.2.2 Виконати команду Вставка →Модуль;

3.2.3 Ввести ім’я модуля Sub цикли1()

3.2.4 Набрати текст програми

3.3 Код програми мовою VBA

Sub цикли_1()

Dim x, y, z As Single, i, n As Byte

n = 31

x = -2

Worksheets(1).Range("a1").Value = " значення x="

Worksheets(1).Range("b1").Value = "значення y="

Worksheets(1).Range("c1").Value = "значення z="

For i = 2 To n + 1

y = 5 * Log(Abs(3 * x + 1) / (1 + x))

z = Cos(2 * y) - Sin(3 * y)

Worksheets(1).Range("a" & i).Value = x

Worksheets(1).Range("b" & i).Value = y

Worksheets(1).Range("c" & i).Value = z

x = x + 0.1

Next i

End Sub

3.4.1 Графічний алгоритм та програма з використанням оператора While Loop

n=31

x=-2

i=2

A1="значення х="

В1="значення y="

C1="значення z="

x = x + 0.1

i=i+1

Sub цикли_2()

Dim x, y, z As Single, i, n As Byte

n = 31

x = -2

i = 2

Worksheets(1).Range("d1").Value = " значення x="

Worksheets(1).Range("e1").Value = "значення y="

Worksheets(1).Range("f1").Value = "значення z="

Do While x <= 1

y = 5 * Log(Abs(3 * x + 1) / (1 + x))

z = Cos(2 * y) - Sin(3 * y)

Worksheets(1).Range("D" & i).Value = x

Worksheets(1).Range("E" & i).Value = y

Worksheets(1).Range("F" & i).Value = z

x = x + 0.1

i = i + 1

Loop

End Sub

3.5.1 Графічний алгоритм та програма з використанням оператора Until Loop

n=31

x=-2

i=2

A1="значення х="

В1="значення y="

C1="значення z="

x = x + 0.1

і=і+1

Sub цикли_3()

Dim x, y, z As Single, i, n As Byte

n = 31

x = -2

i = 2

Worksheets(1).Range("G1").Value = " значення x="

Worksheets(1).Range("H1").Value = "значення y="

Worksheets(1).Range("I1").Value = "значення z="

Do

y = 5 * Log(Abs(3 * x + 1) / (1 + x))

z = Cos(2 * y) - Sin(3 * y)

Worksheets(1).Range("G" & i).Value = x

Worksheets(1).Range("H" & i).Value = y

Worksheets(1).Range("I" & i).Value = z

x = x + 0.1

i = i + 1

Loop Until x>1

End Sub

3.6 Створеним макросам призначити кнопки Рис.3.1

Рисунок 3.1 – Результат виконання програми