Задача 64687 Написать программу, которая по...
Условие
Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. 
Решение
Если x ∈ [-10; -6], то это полуокружность с центром (-8, -2) и R=2:
(x + 8)^2 + (y + 2)^2 = R^2 = 4. Отсюда:
y1 = sqrt(4 - (x + 8)^2) - 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)^2
Соответственно, и надо писать условия.
На 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 = sqrt(4 - (x + 8)^2) - 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)^2 : Print y
Else Print "Введен неправильный x" : Goto M1
End If
End Sub