Определить , лежит ли точка 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 без всяких других а именно через кейс
218
318
Ответы на вопрос:
парабола 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.
на знаки подчеркивания _ не обращай внимания, это для выравнивания.
там пробелы должны быть, но сайт их съедает.
Популярно: Информатика
-
01lina1012.12.2022 07:57
-
стланка11.08.2022 21:27
-
Kurolama07.08.2020 04:01
-
RasDua27.01.2021 07:02
-
denishr0604.04.2021 20:04
-
alonsoqureaz16.03.2020 21:47
-
Makc45721423.08.2020 20:26
-
NikitaAadvanser05.06.2022 22:13
-
tsudakatyap0bt0w26.10.2021 16:13
-
Boxing1247410.11.2020 00:23