Геометрическая прогрессия - VB
Формулировка задачи:
Имеется задача , помогите решить, задание курсовой работы )
Бесконечно убывающая геометрическая прогрессия .
пусть b>0 , 0<g<1 , где n целое положительное число
найти сумму ряда
b, bg, bg^2 , bg^3, bg^4 , .......... , bg^n
для n= 20, 40,100
показать что для любого n сумма ряда не больше , чем b/(1-g)
Решение задачи: «Геометрическая прогрессия»
textual
Листинг программы
S(10)=b * (q ^ 10 - 1) / (q - 1) S(20)=b * (q ^ 20 - 1) / (q - 1) 'S(n)=b * (q ^ n - 1) / (q - 1)