- •Набережные Челны
- •Введение
- •Алгоритмы
- •Лабораторная работа№1
- •Варианты заданий для лабораторной работы №1
- •Лабораторная работа № 2.
- •Варианты заданий для лабораторной работы№2
- •Лабораторная работа №3
- •Варианты заданий для лабораторной работы №3
- •Лабораторная работа №4
- •Варианты заданий для лабораторной работы №4
- •Контрольные вопросы
- •Содежание
Варианты заданий для лабораторной работы№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