Вычисление значения функции - VB (60927)

Узнай цену своей работы

Формулировка задачи:

1.Составьте программу вычисления значения функции для любого по желанию пользователя. x2+1, при x<5 y= 1/x-4, при x>=5 это система, скобок мне не написать, x2 - икс в квадрате, 1/x-4 это один относится к x-4 Очень срочно,решите пожалуйста)

Решение задачи: «Вычисление значения функции»

textual
Листинг программы 
Option Explicit
Dim i As Double
Dim y As Double
Dim x As Double
Private Sub Command1_Click()
x = InputBox("ÂÂåäèòå Г§Г*Г*Г·ГҐГ*ГЁГҐ Гµ")
If x < 5 Then y = x ^ 2 + 1
If x >= 5 Then y = 1 / (x - 4)
Print "Г‡Г*Г*Г·ГҐГ*ГЁГҐ ГґГіГ*êöèè  ГЇГ°ГЁ x=" & x; "  y(x)="; Round(y, 2)
End Sub

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

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

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

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