Вычислить сумму первых п членов ряда

@саша 1.9.9.4 · Регистрация: 17.05.2011

Author24 — интернет-сервис помощи студентам

Написать программу, которая вычисляет сумму первых п членов ряда 1, 3, 5, 7, .... Количество суммируемых членов ряда задается во время работы программы.

@Казанский · 02.10.2011, 22:39

Visual Basic

Sub Макрос1()
Dim n&, s#
For n = Val(InputBox("Введите число членов ряда")) * 2 - 1 To 1 Step -2
    s = s + n
Next
MsgBox "Сумма ряда " & s
End Sub

@Belthazor4 · 03.10.2011, 11:51

Visual Basic

1
2
3

Sub Макрос2()
MsgBox "Сумма ряда " & Val(InputBox("Введите число членов ряда"))^2
End Sub

@Казанский · 03.10.2011, 12:04

Belthazor4
Да, я в курсе: сума S(n)= 1+3+5...+(2n+1)

Но в теме написано решить задачу через оператор For

@Belthazor4 · 03.10.2011, 12:14

=) не смотрел название темы, тупо пост прочитал

@саша 1.9.9.4 5 / 5 / 0 Регистрация: 17.05.2011 Сообщений: 53
		1
	Вычислить сумму первых п членов ряда 02.10.2011, 21:41. Показов 1785. Ответов 4 Метки нет (Все метки) Написать программу, которая вычисляет сумму первых п членов ряда 1, 3, 5, 7, .... Количество суммируемых членов ряда задается во время работы программы. 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	03.10.2011, 12:04	4
	Belthazor4 Да, я в курсе: сума S(n)= 1+3+5...+(2n+1) Но в теме написано решить задачу через оператор For 0

@Belthazor4 245 / 55 / 6 Регистрация: 05.08.2010 Сообщений: 222
	03.10.2011, 12:14	5
	=) не смотрел название темы, тупо пост прочитал 0

Вычислить сумму первых п членов ряда

Решение