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