Завдання для самостійної роботи

1. На формі Form3 власного проекту розташувати три командні кнопки згідно з рисунком 6.1, при натисканні на які повинен бути отриманим результат рішення задач.

2. Виконати індивідуальні завдання згідно з варіантом (див табл. 6.1, 6.2 ) на використання операторів If..Then – рядок, If…Then – блок та Select Case.

3. Зробити звіт з виконаної роботи. Варіанти щодо виконання лабораторної роботи

Таблиця 6.1

№	І ндивідуальні завдання
1	y= a = 0,31 b = -2,7
2	g= a = 3,2 b = 4,2
3	f= a = 2,3 b = -1,8
4	y = a = -2,3 b = 0,8
5	w = a = -2,4 b = 0,2
6	v= a = -2,4 b = 0,2
7	u = a=2,3 b=-1,4
Продовження таблиці 6.1
8	y = a=1,5 b=-0,3
9	f = a=1,2 b3,1
10	p = a=0,2 b=3,2
11	q = a=0,2 b=-1,327
12	r = a = 0,3 b =-2,6
13	u = a=0,2 b=-1,2
14	v = a=1,2 b=1,3
15	s = a=0,2 b= -1,3
16	t = a=1,2 b=-0,3

Таблиця 6.2

№ п/п	Індивідуальні завдання.
1	2x-a; x ≤ 0 z = ex-b; 0<x<3 x-3; x ≥ 3 a = 1,2 b = -5,2
2	a-x2; x ≤ 1 y = ; 1< x ≤ 2 ex; x > 2 a = 6,3 b = 1,2
3	7x-a2; x < 0 z = cos bx; 1 ≤ x ≤2 ; x > 2 a = 8,4 b = 4,4
4	cos x; x < 1 y = 2x – b; 1 ≤ x <3 cos 3ax; x ≥ 3 a = 4,2 b = -1,8
5	e2 +bx; x ≤ 1 z = 2x; 1 < x ≤ 2 sin3ax; x > 2 a = 3,2 b = 0,2
6	sin (ax); x ≤ 0 y = x2 + 2ab; 0 < x < 1 b3 + x; x ≥ 1 a = 0,4 d = -0,3
7	ctg (bx); x ≤ 2 z = a2 – bx; 2< x ≤ 3 x3 + a; x > 3 a = 2,7 b = 2,9
Продовження таблиці 6.2
8	ln (a + x); x < 4 y = 2a + bx; 4 ≤ x <5 bx; x ≥ 5 a = 1,6 b = - 3,8
9	, y = , , a = 1,2 b = -3,21
10	, z = , , a = 0,2 b = -1,2
11	, y = , , a = 2,1 b = 4,2
12	, z = , , a = 1,8 b = 3,1
13	, y = , , a = 4,5 b = 6,8
14	, z = , , a = 1,8 b = -3,1
Продовження таблиці 6.2
15	, y = , , a = 3,2 b = 5,3
16	, z = , , , a = 8,4 b = -1,3

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

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

2. Які бувають оператори для умовних виразів?

3. Назвіть типи даних.

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

5. У чому полягає відмінність оператора If...Then...Else від If...Then ?

6. У яких випадках доцільно застосовувати оператор Select Case?

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

Тема: Циклічні процеси, конструкція For…Next.

Мета: Навчитися використовувати конструкції For…Next щодо розв’язання задач.

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

У програмах Visual Basic для виконання повторюваних дій використовуються цикли. Вони бувають наступних типів:

For...Next

For Each...Next

Do...Loop

Розглянемо деякі з них.

Цикл із використанням конструкції For...Next

Конструкція For...Next виконує послідовність команд визначене число разів. Таку конструкцію називають циклом, а виконувані нею програмні коди — тілом циклу.

Синтаксис конструкції For.. .Next наступний:

For лічильник = почЗначення То кінЗначення [Step крок] конструкції

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

Перший аргумент конструкції — лічильник визначає ім'я змінної, котра буде "рахувати" кількість виконань циклу. Параметр почЗначення вказує числове значення, що привласнюється змінній - лічильникові перед першим проходом циклу. Цикл виконується доти, поки значення лічильника не перевищить кінцевого значення, зазначеного після ключового слова То. Після кожного проходу циклу значення лічильника змінюється на величину крок, зазначену за ключовим словом Step. Ключове слово Next позначає кінець тіла циклу і є обов'язковим.

П еред кожним проходом циклу Visual Basic порівнює значення лічильника й аргументу кінЗначення. Якщо значення лічильника не перевищує встановленого значення кінЗначення, виконуються конструкції тіла циклу. У противному випадку керування переходить до наступній за Next конструкції.

Приклад 7.1 Знайти суму ряду вигляду

Рішення

1. Створити командну кнопку на формі.

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

3. Програмний код

Private Sub Command1_Click()

Dim a As Currency, x As Currency

Dim n As Integer, u As Currency

Dim s As Double

a = 3.1: x = 0.8: n = 8:s=0

For i = 1 To n

u = Sin(2 * a * x - i)

s = s + u

Рисунок 7.1 - Блок – схема алгоритму

Next

jj = MsgBox("S=" & s, , "Відповідь")

End Sub

4. Введення програми до комп’ютеру.

5. Налагодження та одержання результату

(див. рисунок 7.2)

Рисунок 7.2 - Результат виконання циклічної конструкції For...Next щодо пошуку суми

Приклад 7.2. Знайти добуток ряду вигляду

Рішення

1. С творити командну кнопку на формі.

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

3. Програмний код

P rivate Sub Command1_Click()

Dim a As Currency

Dim x As Currency

Dim n As Integer

D im u As Currency

D im s As Double

a = 0.2: x = 0.2: n = 8

p = 1

F or i = 1 To n

u = Cos(a - k * x)

p = p * u

N ext

Рисунок 7.3 - Блок – схема алгоритму

jj = MsgBox("P=" & p, , "Відповідь")

End Sub

4. Введення програми до комп’ютера

5. Налагодження та отримання результату

Приклад 3. Знайти подвійну суму кінцевого ряду

Рішення

1. Створити командну кнопку на формі.

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

3. П рограмний код

Private Sub Command1_Click()

Dim a As Currency

Dim b As Currency

Dim c As Currency

Dim n As Integer

Dim m As Integer

Dim u As Currency

Dim s As Double

a = 10.2: b = -1.302: c = 1.3: n = 5: m = 5

s = 0

For i = 1 To n

For j = 1 To m

u = (a ^ 2 - 3 * a * b + c ^ (2 * i)) /

(a * i - b - c)

s = s + u

Next j, i

jj = MsgBox("S=" & s, , "Відповідь")

End Sub

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

5. Налагодження та одержання результату.

Рисунок 7.4 - Блок – схема алгоритму