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

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

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

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

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

textual
Листинг программы
  1. Private Sub Command1_Click()
  2. Dim х_начальное As Double
  3. Dim х_конечное As Double
  4. Dim х_текущее As Double
  5. Dim шаг As Double
  6. Dim значение_функции As Double
  7.  
  8. х_начальное = InputBox("введите х_начальное", "ввод х_начальное", 0)
  9. х_конечное = InputBox("введите х_конечное", "ввод х_конечное", 1)
  10. шаг = InputBox("введите шаг", "ввод шаг", 0.1)
  11.  
  12. If шаг > 0 Then
  13.    
  14.    For х_текущее = х_начальное To х_конечное Step шаг
  15.        значение_функции = х_текущее - х_текущее ^ 3 / 3 + х_текущее ^ 5 / 5
  16.        Print х_текущее; vbTab; Round(значение_функции, 4)
  17.    Next х_текущее
  18.  
  19. Else
  20.    MsgBox "некорректное значение шага!", vbExclamation
  21. End If
  22. End Sub

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


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

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

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

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

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

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