РГР и Лабы разных вариантов (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








Случайные файлы

Файл
63482.rtf
лекции.doc
28377.rtf
10959.rtf
15125.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.