Вычислить f(x) по приложенному заданию - VB
Формулировка задачи:
помогите плиз))
Решение задачи: «Вычислить f(x) по приложенному заданию»
textual
Листинг программы
Option Explicit
Dim X As Single
Function F(ByRef X As Single) As Single
If X <= 4 Then
F = 2 / Sqr(1 + X ^ 2)
Else
F = 10 ^ ((Log(Abs(X)) / Log(10)) / 3)
End If
End Function
Private Sub Command1_Click()
X = InputBox(" X = ", , 3.2)
MsgBox "X = " & X & " F(x) = " & F(X)
End Sub