Лабораторні роботи
При підготовці до кожної лабораторної роботи необхідно:
1. Ознайомитися зі змістом лабораторної роботи.
2. Проробити теоретичний матеріал конспекту лекцій, посилання на який вказано на початку лабораторної роботи.
3. Відповісти на контрольні запитання, наведені наприкінці лабораторної роботи (самоконтроль).
Перед лабораторною роботою і під час ії виконання необхідно:
Одержати допуск до лабораторної роботи, відповівши на контрольні запитання викладача.
Виконати лабораторну роботу й записати її результати в особисту папку на ПК.
Оформити звіт про лабораторну роботу й захистити ії у викладача.
Л а б о р а т о р н а р о б о т а № 1
Лінійні і розгалужені алгоритми та програми
Мета роботи: алгоритмізація і програмування лінійних і розгалужених обчислювальних процесів. При підготовці до роботи вивчити теоретичний матеріал (стор.22- 24).
Завдання 1. Скласти блок-схему та програму для рішення завдань, представлених у таблиці Л1.1.
Таблиця Л1.1.
№ вар |
Умова |
№ вар |
Умова |
1 |
t=max(x+y+z,xy)+min(x,y) |
2 |
z=min[max(a,x),b] |
3 |
c= min(a,b) при a<=0 |
4 |
max(a,b) при a<2 z= min(a,c) при a>=2 |
5 |
Для даних a,b,c перевірити, чи виконується нерівність a<b<c |
6 |
Для даних x,y,z перевірити, чи виконуються одночасно нерівності x>y і y>z |
7 |
z=max[min(a,b),c] |
8 |
t=[min(a,b)]2+[max(b,c)]2 |
9 |
c=max(ab,a+b)+min(a,b) |
10 |
z=max[x+y,max(a,b)] |
11 |
Дано точки (x1,y1) і (x2,y2). Визначити, чи лежать вони на одному колі із центром на початку координат |
12 |
Визначити, чи належить точка (x,y) колу радіуса R із центром на початку координат |
13 |
Визначити, чи лежить точка (x,y) усередині кола із центром у точці (1,1) і радіусом, рівним 5. |
14 |
Визначити, чи належить точка (x,y) відрізку, що з'єднує точки (1,1) і (5,10). |
15 |
Визначити, чи належить точка (x,y) кільцю із центром на початку координат із зовнішнім радіусом 5 і із внутрішнім радіусом 3. |
16 |
Визначити номер четвертині площини, в якій знаходиться точка (x,y). |
17 |
Визначити, чи лежить точка (x,y) усередині еліпса x2/169+y2/25 = 1 |
18 |
Визначити, чи лежить точка (x,y) на прямій ax+by=c |
19 |
Визначити, чи колінеарні вектори a=(a1,a2,a3) і b=(b1,b2,b3) |
20 |
Дано числа a,b,c. Подвоїти ці числа, якщо a>b>c, і замінити їхніми абсолютними значеннями в протилежному випадку |
21 |
z=min(a-b,ab)+max(a,b) |
22 |
z=max(a,b,c) |
23 |
t=max[min(a,b), min(b,c)] |
24 |
z=max(ab,ac)+min(a,c) |
25 |
h=max(a,b+c)+min(ac,bc) |
26 |
g=min[max(xy,x+y), x/y)] |
27 |
|
28 |
|
29 |
|
30 |
|
max(a,b)
при a>0
Приклад 1.1.
Умова. Скласти блок-схему та програму обчислення z=max[min(x,y), a/b)]
Позначення: m=min(x,y).
VBA-програма
Private Sub CommandButton1_Click()
Dim x As Single, y As Single, a As Single, b As Single
Dim m As Single, z As Single
x = Val(InputBox("ввод x="))
y = Val(InputBox("ввод y="))
a = Val(InputBox("ввод a="))
b = Val(InputBox("ввод b="))
If x < y Then m = x Else m = y
If m > a / b Then z = m Else z = a / b
MsgBox "z=" & z
End Sub