Вычислить значение выражения - VB (59253)
Формулировка задачи:
Объясните ,что тут делать , я без понятия ..Если напишите буду очень благодарен ,Visual Basic
Решение задачи: «Вычислить значение выражения»
textual
Листинг программы
Private Sub Command1_Click() Dim x As Single, xn As Single, dx As Single, xk As Single Dim a As Single, z As Single, k As Integer, s As String Dim P As Double, Sum As Double, F As Double xn = Val(Replace(InputBox("Введите начало отрезка (xn)", "Ввод данных", 2), ",", ".")) xk = Val(Replace(InputBox("Введите конец отрезка(xk)", "Ввод данных", 6), ",", ".")) dx = Val(Replace(InputBox("Введите шаг (dx)", "Ввод данных", 0.2), ",", ".")) a = Val(Replace(InputBox("Введите значение коэффициента a", "Ввод данных", "0.9"), ",", ".")) P = 1 For x = xn To xk Step dx z = 5 * (x ^ 2) + (a ^ (1 / 3)) * Sqr(a ^ 5 + 3.8 * 10 ^ 6) P = P * z Sum = Sum + z s = s & "x = " & Round(x, 2) & vbTab & "z = " & Round(z, 2) & vbCrLf Next x F = P + Sum MsgBox s MsgBox "F = " & F End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д