Определить , лежит ли точка a в области , ограниченной параболой y=2-x^2 и осью абсцисс. ответ вывести в виде сообщения. параметры: 1)x=3,5; y=7,2 2)x=-0,5; y=1,2 3)x=0,72; y=-3,12 , нужно решить через оператор case без всяких других а именно через кейс

Парабола y=2-x^2=(√2+x)(√2-x) пересекает ось абсцисс в точках x1=-√2; x2=√2.

Поэтому нужно проверять два условия: (x1 ≤ x ≤ x2) и (0 ≤ y ≤ 2-x^2)

С операторами Select Case это будет так:

x = InputBox ("Введите x")

y = InputBox ("Введите y")

Select Case x

Case -Sqrt(2) To Sqrt(2)

_ _ Select Case y

_ _ Case 0 To (2 - x^2) : MsgBox ("Попадает!")

_ _ Case Else : MsgBox ("Y не попадает")

_ _ End Select

Case Else : MsgBox ("X не попадает")

End Select

Только проверь, как в твоей версии VB пишется функция квадратного корня. В некоторых версиях бывает Sqr вместо Sqrt.

На знаки подчеркивания _ не обращай внимания, это для выравнивания.

Там пробелы должны быть, но сайт их съедает.