Написать программу и вычислить в Visual Basic - VB
Формулировка задачи:
Написать программу и вычислить:
Значение X выдать с клавиатуры.
c=1,2; q=7.05
Если
Если X=1,2
Решение задачи: «Написать программу и вычислить в Visual Basic»
textual
Листинг программы
- Option Explicit
- Private Sub Command1_Click()
- Dim x, c, q, lnq, R, DI As Double
- x = 1.2
- c = 1.2
- q = 7.05
- lnq = 1.95302761682418
- x = Val(Replace(InputBox("Введите х", "Ввод данных", 1.2), ",", "."))
- If R = q * (1 + x) ^ 0.5 And R = (c + (lnq) / x) Then
- DI = R ^ 3 - (c / (3 * q)) ^ 0.5
- MsgBox ("Значение функции = " + Str(DI))
- End If
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
