Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
KP1_Денисенко.doc
Скачиваний:
0
Добавлен:
01.07.2025
Размер:
2 Мб
Скачать
☆

ПРиКлад виконання контрольної роботи

Завдання № 1

а)

б)

в)

Завдання № 2

Завдання № 3

x0 = 5,5

х

1

2

3

4

5

6

у

7

9

12

13

14

17

Формули, які були використовані:

C2: = $D$2*A2+$E$2

F2: = СУММКВРАЗН(B2:B7;E2+D2*A2:A7)

D5: = НАКЛОН(B2:B7;A2:A7)

E5: = ОТРЕЗОК(B2:B7;A2:A7)

F7: = ПРЕДСКАЗ(E7;B2:B7;A2:A7)

Завдання № 4

1)

2) У2  Х,

Х2 +У2  1.

Код програми:

‘ опис типу змінних

Dim x As Double

Dim y As Double

Dim z As Double

Dim st As String

‘текст основної програми

Private Sub CommandButton1_Click()

Worksheets("Лист1").Activate

‘ обчислення значень х, y

x = 86.9 ^ (-0.25) + 2 ^ 0.3

y = 49 ^ (1 - Log(2)) + 5 ^ (-Log(4))

Range("B28").Value = CCur(x)

Range("B29").Value = CCur(y)

‘ обчислення значення z

If Abs(x) < Abs(y) Then

z = (3 * x + y) / (x ^ 2 + y ^ 2)

Else

z = x * y

End If

Range("B30").Value = CCur(z)

‘ визначення належності крапки області

If y ^ 2 <= x And x ^ 2 + (y - 1) ^ 2 <= 1 Then

st = "Крапка з координатами х=" & CStr(x) & " , " & "у= " & CStr(y) & " належ. області"

Else

st = "Крапка з координатами х=" & CStr(x) & " , " & "у= " & CStr(y) & " не належ. області"

End If

MsgBox st

End Sub

Результат:

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]