Вычислить значение выражения - VB (59253)

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

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

Объясните ,что тут делать , я без понятия ..Если напишите буду очень благодарен ,Visual Basic

Решение задачи: «Вычислить значение выражения»

textual
Листинг программы
  1. Private Sub Command1_Click()
  2.    Dim x As Single, xn As Single, dx As Single, xk As Single
  3.    Dim a As Single, z As Single, k As Integer, s As String
  4.    Dim P As Double, Sum As Double, F As Double
  5.    xn = Val(Replace(InputBox("Введите начало отрезка (xn)", "Ввод данных", 2), ",", "."))
  6.    xk = Val(Replace(InputBox("Введите конец отрезка(xk)", "Ввод данных", 6), ",", "."))
  7.    dx = Val(Replace(InputBox("Введите шаг (dx)", "Ввод данных", 0.2), ",", "."))
  8.    a = Val(Replace(InputBox("Введите значение коэффициента a", "Ввод данных", "0.9"), ",", "."))
  9.    P = 1
  10.    For x = xn To xk Step dx
  11.        z = 5 * (x ^ 2) + (a ^ (1 / 3)) * Sqr(a ^ 5 + 3.8 * 10 ^ 6)
  12.        P = P * z
  13.        Sum = Sum + z
  14.        s = s & "x = " & Round(x, 2) & vbTab & "z = " & Round(z, 2) & vbCrLf
  15.    Next x
  16.    F = P + Sum
  17.    MsgBox s
  18.    MsgBox "F = " & F
  19. End Sub

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


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

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

8   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут