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