Разроботать проект, позволяющий вычислить значение функции у в зависимости от ввееденного значения переменной x/ - VB
Формулировка задачи:
13. Разработать проект, позволяющий вычислить значение функции у в зависимости от введенного значения переменной х.
Y= 1+x^2,…x≥1
1-x,…x<1
Решение задачи: «Разроботать проект, позволяющий вычислить значение функции у в зависимости от ввееденного значения переменной x/»
textual
Листинг программы
Private Sub Command1_Click()
Dim y As Single, x As Single
If IsNumeric(Text1) = False Then
MsgBox ("Vvedite 4islo!")
Exit Sub
End If
x = Text1
If x < 1 Then
y = 1 - x
Else
y = 1 + x ^ 2
End If
MsgBox (y)
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д