End Sub. MsgBox При x = & x & функция равна & y, , Ответ задачи

End If

Else

y = 0

' выводим ответ

MsgBox "При x = " & x & " функция равна " & y,, "Ответ задачи"

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

Sub Primer()

Dim x0 As Single, x_radian As Double

Dim y0 As Double, y As Double

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

If x0 < 0 Or x0 > 180 Then

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

Дата добавления: 2014-01-04