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

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

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

Дело в том что только начал учиться на заочном и толком ничего не объяснили и дали сделать лабу. Кто может помочь подробно объяснить что и как делать. Дана формула (смотри вложение) далее надо задать начальные и конечные значения для переменных, шаг. Прошу прощения конечно за такие тупые вопросы но ни разу с подобным не сталкивался а толком не объяснили.

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

textual
Листинг программы
Private Sub Command1_Click()
Dim х_начальное As Double
Dim х_конечное As Double
Dim х_текущее As Double
Dim шаг As Double
Dim значение_функции As Double
 
х_начальное = InputBox("введите х_начальное", "ввод х_начальное", 0)
х_конечное = InputBox("введите х_конечное", "ввод х_конечное", 1)
шаг = InputBox("введите шаг", "ввод шаг", 0.1)
 
If шаг > 0 Then
   
   For х_текущее = х_начальное To х_конечное Step шаг
       значение_функции = х_текущее - х_текущее ^ 3 / 3 + х_текущее ^ 5 / 5
       Print х_текущее; vbTab; Round(значение_функции, 4)
   Next х_текущее
 
Else
   MsgBox "некорректное значение шага!", vbExclamation
End If
End Sub

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


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

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

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