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

1. Назвіть циклічні конструкції Visual Basic.

2. Наведіть приклади задач, щодо рішення яких потрібні циклічні конструкції?

3. У чому полягають принципи створення циклічних алгоритмів?

4. У чому особливість конструкції For…Next?

5. У чому полягають принципи створення подвійних циклічних алгоритмів?

6. Які ще існують циклічні конструкції та для рішення яких задач їх використовують?

Лабораторна робота №8

Тема: Використання конструкції For..Next щодо створення таблиці значень функції.

Мета: Навчитися використовувати прийом табулювання функції та конструкцію For..Next для отримання таблиці значень функції.

Короткі відомості

Типовим прикладом циклічного процесу є задача складання таблиці значень функції (табулювання функції).

Приклад 8.1. Побудувати схему алгоритму складання таблиці значень функції однієї змінної F = X + cos( X ) при X, що змінюється від початкового значення Хп=-3 до кінцевого значення Хк=2 з постійним кроком Нх=0,5.

Рішення

Ця задача реалізується за допомогою циклу з заданим числом ітерацій, що визначається за формулою

1. На формі Form5 створити дві командні кнопки

(див. рис 8.1).

2. Блок – схема (див. мал 8.2)

3. Програмний код для кнопки Command_1.

Private Sub Command1_Click()

Dim Xn As Currency, Xk As Currency, Hx As Currency

Xn = -3: Xk = 2: Hx = 0.5

Print Tab(5); "X"; Tab(22); "F"

For x = Xn To Xk Step Hx

f = x + Cos(x)

Print Tab(5); x; Tab(22); f

Next

End Sub

4. Введення програми.

5. Налагодження та отримання результату (дів. рис. 8.3)

Табулювання функції двох змінних

Табулювання функції двох змінних являє типовий приклад використання вкладених циклів.

Приклад 8.2 Скласти таблицю значень функції двох змінних

Z = 0,5 X² + 5 Y²,

де X змінюється від Хn = 1,5 до Хк= - 2,5 із кроком Нх=0,5, a Y змінюється від Yn = 1 до Yk= 4 із кроком Ну=1

Рішення

1. Блок – схема

2. Програмний код для кнопки Command_2 (рис. 8.3)

Private Sub Command2_Click()

Рисунок 8.1 -Блок – схема алгоритму табулювання функції однієї змінної

Dim Xn As Currency, Xk As Currency, Hx As Currency

Dim Yn As Currency, Yk As Currency, Hy As Currency

Print "Таблиця значень функції двох змінних”

Print "_________________________"

Print

Xn = 1.5: Xk = 2.5: Hx = 0.5

Yn = 1: Yk = 4: Hy = 1

Print Tab(6); "Y"; Tab(16); "X"; Tab(26); "Z"

Print

For y = Yn To Yk Step Hy

For x = Xn To Xk Step Hx

z = 0.5 * x ^ 2 + 5 * y ^ 2

Print Tab(5); y; Tab(15); x; Tab(25); z

Next x

Next y

End Sub

4. Введення програми

5. Налагодження та одержання результату (див. рис. 8.4)

Рисунок 8.2 -Блок – схема алгоритму табулювання функції двох змінних

Рисунок 8.3 - Інтерфейс лабораторної роботи №8

Рисунок 8.4 - Результат рішення задач до лабораторної роботи №8