Задача 64687 Написать программу, которая по...

Юлия_642181751

19 мая 2022 г. в 20:15

Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

Удачник66

19 мая 2022 г. в 21:12

★

Формула функции такая, кусочно–непрерывная:
Если x ∈ [–10; –6], то это полуокружность с центром (–8, –2) и R=2:
(x + 8)² + (y + 2)² = R² = 4. Отсюда:
y1 = √4 – (x + 8)² – 2
Если x ∈ (–6; 2], то это прямая через точки (–2; 0) и (2; 2):
(x + 2)/(2+2) = (y – 0)/(2 – 0)
(x + 2)/4 = y/2
y2 = (x + 2)/2 = 0,5x + 1
Если x ∈ (2; 6], то: y3 = 0
Если x ∈ (6; 8], то: y4 = (x – 6)²
Соответственно, и надо писать условия.
На Quick Basic это будет примерно так:
Sub Grafik
Dim x As Single, y As Single
M1 : x = Input "Введите x от –10 до 8:"
If (x >= –10) And (x <= –6) Then
y = √4 – (x + 8)² – 2 : Print y
ElseIf (x > –6) And (x <= 2) Then y = 0,5x + 1 : Print y
ElseIf (x > 2) And (x <= 6) Then y = 0 : Print y
ElseIf (x > 6) And (x <= 8) Then y = (x – 6)² : Print y
Else Print "Введен неправильный x" : Goto M1
End If
End Sub