Варианты заданий для лабораторной работы№2
1.
,
2.
,
3.
,
4.
,
5.
,
6.
,
7.
,
8.
,
9.
,
10.
,
11.
,
12.
,
13.
,
14.
,
15.
,
16.
,
17.
,
18.
,
1
9.
,
20.
,
21.
,
22.
,
23.
,
24.
,
25.
,
2
6.
,
27.
,
2
8.
,
2
9.
,
30.
,
Лабораторная работа №3
Логические функции
Пример3. Дан график (рис. 4) и точка R(x;y). Определить, принадлежит ли точка заштрихованной области.
B
A
Рис. 4
Фигура S состоит из двух областей A и B.
О
бласть
A ограничена осью абсцисс
и кривой x2+y2=1.
Область B ограничена осью
абсцисс, осью ординат и прямой
,
следовательно:
Так как S=A+B, то
Таким образом, решение задачи сводится к подстановке значений x и y точки R(x;y).
Блок-схема алгоритма решения задачи приведена на рис.4
да
нет
Рис. 4
Решение на Excel.
|
A |
B |
1 |
х= |
-1 |
2 |
у= |
-1 |
3 |
|
|
4 |
A= |
ЛОЖЬ |
5 |
B= |
ИСТИНА |
6 |
|
|
7 |
S= |
ИСТИНА |
8 |
Точка принадлежит фигуре |
|
Ввод формул в ячейки:
B4: =И(B2>=0;(B1^2+B2^2)<=1)
B5: =И(B2>=-2/3*B1-2;B2<=0;B1<=0)
B7: =ИЛИ(B4;B5)
A8: =ЕСЛИ(B7;"точка принадлежит фигуре";"точка не принадлежит фигуре")
Решение на VBA.
Sub Пример6()
Dim x As Single, y As Single
Dim A As Boolean
Dim B As Boolean
Dim S As Boolean
Dim TEXT1 As String
Dim TEXT2 As String
TEXT1 = "Точка принадлежит области"
TEXT2 = " Точка не принадлежит области "
x = InputBox("x=", "ввод x")
y = InputBox("y=", " ввод y")
A = (y >= 0) And (x ^ 2 + y ^ 2 <= 1)
B = (y >= -2 * x / 3 - 2) And (x <= 0) And (y <= 0)
S = A Or B
If S Then
MsgBox TEXT1
Range("A8").Value = TEXT1
Else
MsgBox TEXT2
Range("A8").Value = TEXT2
End If
Range("A1").Value = "x="
Range("B1").Value = x
Range("A2").Value = "y="
Range("B2").Value = y
Range("A4").Value = "A="
Range("B4").Value = A
Range("A5").Value = "B="
Range("B5").Value = B
Range("A7").Value = "S="
Range("B7").Value = S
End Sub
Варианты заданий для лабораторной работы №3
