Вычислить значение функции У. Подскажите, какой из вариантов решения правильный? - VBA

Узнай цену своей работы

Формулировка задачи:

Задача такая: Вычислить значение функции У (х ввести с клавиатуры) Посмотрите мои пожалуйста и скажите какой верный или может вообще не так сделал? 1.
2.

Решение задачи: «Вычислить значение функции У. Подскажите, какой из вариантов решения правильный?»

textual
Листинг программы
Sub Denwer()
Dim x As Integer
Dim y As Double
x = Val(InputBox("Введите x"))
If x = 0 Then y = 0 Else y=iif(x>0,sin(x),-1)
MsgBox (" y = " & y)
End Sub

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы