02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / лабы / Zadanie_4

Задание 4

Вариант 6

Вычисление суммы числового ряда

Постановка задачи

Найти сумму ряда для двух вариантов исходных данных.

1)h=1; x=2,3; m=15;

2)h=2; x=1,1; m=21.

Блок-схема алгоритма решения задачи

начало

f(x;n)=(x^2+n^2)/((n+1)*SQR(x*n+1))

k=1,2,1

конец

ввод

h, x, m

S=0

n=1,m,h

вывод

k, h, x, m, s

S = S + f(x;n)

Программный код

Dim h As Integer, x As Single, m As Integer, n As Integer, k As Integer

Dim S As Single

Private Sub Command1_Click()

For k = 1 to 2

h=val(InputBox(“введи h”,”ввод”))

x=val(InputBox(“введи x”,”ввод”))

m=val(InputBox(“введи m”,”ввод”))

S=0

For n = 1 to m Step h

S = S + (x^2+n^2)/((n+1)*SQR(x*n+1))

Next n

List1.AddIteam Str(k)

List2.AddIteam Str(h)

List3.AddIteam Str(x)

List4.AddIteam Str(m)

List5.AddIteam Str(S)

Next k

End Sub