§ 2. Контрольна робота. Процеси, що розгалужуються
Постановка задачі № 2. Дано система рівнянь. Скласти алгоритм та написати програму для обчислення виразу на Visual Basic.
Варіанти подані у таблиці 1, а формули подані у таблиці 2, а ескіз екранної форми на рис. 2.
Таблиця 1.
Вибір варіантів задачі № 2
Початкова літера прізвища |
Остання цифра навчального шифру студента |
|||||||||
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
|
А, Б |
15 |
13 |
6 |
4 |
2 |
8 |
27 |
22 |
30 |
23 |
В, Г, Д |
12 |
11 |
13 |
15 |
23 |
16 |
29 |
25 |
19 |
20 |
Е, Є, Ж, З |
25 |
3 |
10 |
14 |
5 |
30 |
26 |
21 |
12 |
3 |
І, Ї, Й, К |
28 |
9 |
3 |
5 |
30 |
24 |
12 |
8 |
9 |
4 |
Л, М, Н |
22 |
24 |
1 |
13 |
20 |
29 |
2 |
17 |
6 |
16 |
О, П |
21 |
23 |
12 |
26 |
9 |
15 |
18 |
17 |
18 |
19 |
Р, С, Т, У |
1 |
10 |
22 |
5 |
6 |
21 |
7 |
8 |
7 |
28 |
Ф, Х, Ц |
11 |
17 |
13 |
14 |
12 |
16 |
29 |
18 |
19 |
27 |
Ч, Ш, Щ |
20 |
15 |
12 |
14 |
13 |
11 |
19 |
24 |
16 |
29 |
Ю, Я |
1 |
6 |
21 |
4 |
23 |
5 |
29 |
7 |
10 |
9 |
Задачі завдання 2
|
Формула |
|
Формула |
1 |
|
11 |
|
2 |
|
12 |
|
3 |
|
13 |
|
4 |
|
14 |
|
5 |
|
15 |
|
6 |
|
16 |
|
7 |
|
17 |
|
8 |
|
18 |
|
9 |
|
19 |
|
10 |
|
20 |
|
21 |
|
22 |
|
23 |
|
24 |
|
25 |
|
26 |
|
27 |
|
28 |
|
29 |
|
30 |
|
Методичні рекомендації
Р
озглянемо
приклад створення аналогічної програми
розрахунку формули:
Спочатку розробляємо ескіз розрахунку (рис. 2.) у такій послідовності:
1) вставляємо елементи керування Text1, Text2,…,Text4;
2) встановлюємо елемент керування кнопки Command1;
3) встановлюємо останні елементи керування Text5 та Label1,…, Label5.
Ця послідовність потрібна тоді, коли ми намагаємось спочатку в кожному об’єкті елементів керування автоматично встановити відповідні значення властивостей TabIndex. Коли цього спочатку не зробити, то значення властивостей TabIndex треба встановлювати потім вручну.
Програмний код має такий вигляд:
Private Sub Command1_Click()
Dim A1 As Single
Dim A2 As Single
Dim A3 As Single
Dim X As Single
A1 = Val(Text1.Text)
A2 = Val(Text2.Text)
A3 = Val(Text3.Text)
X = Val(Text4.Text)
If X < 7 Then
Text5.Text = A1 + 100
ElseIf X > 7 Then
Text5.Text = A2 + 200
ElseIf X = 7 Then
Text5.Text = A3 + 300
End If
MsgBox "Формула має такий вигляд: при Х = " + Str(X) + "Результат дорівнює " + Str(Text5.Text)
End Sub
Результат обчислення має такий вигляд (рис. 3):
ЗАВДАННЯ 3