Вычислить 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
