Пример 9

Разработать информационную технологию, позволяющую вычислить сумму степенного ряда: 0,5+ х + х ²/2+ х ³/3+… Количество членов степенного ряда, для которых необходимо вычислить сумму, задаётся вводом.

Входные данные: k – количество членов ряда, целое число;

х – вещественное число.

Выходные данные: s – значение искомой суммы, вещественное число.

Математическая модель:

Схема алгоритма:

Код приложения:

Private Sub Command1_Click()

Dim x As Single, k As Byte, s As Double, i As Integer

k=InputBox(“Введите количество членов степенного ряда”)

x=InputBox(“Введите значение х”)

s=0.5

For i=1 To k

s=s+x^ i/i

Next i

MsgBox “Сумма членов степенного ряда =” & s

End Sub

3.2. Производная алгоритмическая структура Произведение

Производная алгоритмическая структура Произведение используется для вычисления различных типов произведений. Особенности алгоритма аналогичны производной алгоритмической структуре Сумма, но дополнительной переменной присваивается начальное значение, равное 1, а итерационная формула имеет вид:

<Доп. переменная>=<Доп. переменная > × <Элемент массива>