End Sub. Пример 11. Определить, попадает ли точка с координатами под кривую функции , заданную в интервале .

Пример 11. Определить, попадает ли точка с координатами под кривую функции , заданную в интервале .

Sub Primer()

Dimx0As Single,x_radianAs Double

Dimy0As Double,yAs Double

x0 = InputBox("Введите х координату точки от 0 до 360 градусов", "Запрос задачи на попадание")

If x0 < 0 Or x0 > 180 Then

x0 = InputBox("Вы ввели неверное число. Повторите ввод", "Повторный запрос")

End If

y0 = InputBox("Введите у координату точки", "Повторный запрос")

' перевод х из градусов в радианы

x = x0 * 4 * Atn(1) / 180

' вычисляем значение функции

y = Sin(x_radian)

If y > y0 Then

MsgBox "Точка лежит под кривой", , "Ответ"

ElseIf y = y0 Then

MsgBox "Точка лежит на кривой", , "Ответ"

ElseIf y < y0 Then

MsgBox "Точка лежит над кривой", , "Ответ"

End If