Вычислить 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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