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