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