Вычислить значение функции - VB (171791)
Формулировка задачи:
Вычислить значение функции у:
В остальных случаях остановить вычисления. Значение х вводится с клавиатуры.
Решение задачи: «Вычислить значение функции»
textual
Листинг программы
Private Sub Form_Load()
x = Val(InputBox("Ââåäèòå x:"))
If x >= 0 And x <= 1 Then
y = Cos(x ^ 3 + Atn(x))
ElseIf x > 1 Then
y = Sin(5 * x) + x * Log(x) - 10.2 / (1 - x) ^ 4 + 7
End If
MsgBox "y = " & y
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д