Найти сумму ряда - VB (60426)
Формулировка задачи:
Добрый день! Прошу помочь с решением следующей задачи:
Дано число X типа Single . Необходимо разработать фрагмент программы вычисления следующего выражения:
5X^4 – 7X^3 + 3X^2 – 2X + 6
Для вычисления в данном алгоритме используйте цикл и только один цикл.
Решение задачи: «Найти сумму ряда»
textual
Листинг программы
Module Module1 Sub Main() Dim sngRes, sngX As Single Dim intS, intC, intN As Integer 'задаем знак, коэффициент и степень sngRes = 0 sngX = InputBox("Ждем от вас число") intS = 1 'чередуем знака -/+ intN = 5 'Переменная степени (end-start)\step+1 For intC = 2 To 6 'Цикл для множителя intN = intN - 1 'Степень уменьшается sngRes = sngRes + intS * intC * sngX ^ intN 'Формула для каждого слагаемого в выражении intS = -intS Next MsgBox(sngRes) End Sub End Module
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д