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

@Mawa · Регистрация: 06.12.2011

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

Помогите с лабораторной пожалуйста

По заданной формуле члена последовательности с номером k составить две программы:
-программу вычисления суммы первых n членов последовательности (k=1,2,3..,n);
-программу вычисления суммы всех членов последовательности, не меньших заданного числа e.
Название: 2.jpg
Просмотров: 828

Размер: 1.8 Кб

Название: 2.jpg
Просмотров: 828

Размер: 1.8 Кб

@gaw · 06.12.2011, 19:04

Не по теме:

Mawa
есть волшебная кнопочка ПОИСК
не пробовали?
попробуйте, помогает!

Комментарий модератора

Не отсылайте других пользователей в поиск и избегайте ссылок на поисковые системы (Google, Yandex и др.). Самостоятельно найдите ответ на вопрос и разместите его на форуме

@Mawa · 08.12.2011, 12:40 **[ТС]**

Программа 1

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
Picture1.Cls
Sum = 0
n = Val(Text1)
Sum = n * (n + 1) / 2
Picture1.Print Sum
End Sub

Программа 2

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Command2_Click()
Picture2.Cls
k = Val(Text2)
e = Val(Text3)
For k = 1 To n
If k >= e Then Sum = ((-1) ^ k) * k / (Factorial(k)) ^ 2 + Factorial(k + 1)
Next
Picture2.Print Sum
Else
Picture2.Print "Ошибка"
End Sub

Почему-то 2-ая программа не работает

Помогите пожалуйста

@Linoge · 08.12.2011, 13:17

Не работает потому как n вообще не задано.
Да и первая прога считат только выражение Sum = n * (n + 1) / 2

задание 1

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
n = Val(Text1)
Sum = 0
For i = 1 To n
    f = (2 * i + 1) / (2 * i ^ 2 + 3) / i
    Sum = Sum + f
Next
Print Sum
End Sub

задание 2

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command2_Click()
e = CDbl(Text2)
If e > 0 Then
    Sum = 0
    i = 1
    Do
        f = (2 * i + 1) / (2 * i ^ 2 + 3) / i
        Sum = Sum + f
        i = i + 1
    Loop Until f < e
    Print Sum
End If
End Sub

@Апострофф · 08.12.2011, 13:55

Сообщение от Mawa

-программу вычисления суммы первых n членов последовательности (k=1,2,3..,n);

Арифметическая прогрессия: S=(1+n)*n/2
Так что всё правильно было у Мавы!

@Mawa · 08.12.2011, 14:00 **[ТС]**

спасибо большое!

@Linoge · 08.12.2011, 14:53

А причем тут арифметическая прогрессия вообще?

@Апострофф · 08.12.2011, 15:01

Сообщение от vstz

А причем тут арифметическая прогрессия вообще?

А что такое 1,2,3..,n по вашему? Классический пример простейшей АП, ИМХО

@Linoge · 08.12.2011, 15:20

А я понял так, что последовательность для обоих задач одна и та же и представлена на рисунке.

Новые блоги и статьи Все статьи Все блоги /
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .

@Mawa 0 / 0 / 0 Регистрация: 06.12.2011 Сообщений: 3

	Вычисление суммы ряда 06.12.2011, 17:28. Показов 12200. Ответов 8 Метки нет (Все метки) Помогите с лабораторной пожалуйста По заданной формуле члена последовательности с номером k составить две программы: -программу вычисления суммы первых n членов последовательности (k=1,2,3..,n); -программу вычисления суммы всех членов последовательности, не меньших заданного числа e. 0

@Mawa 0 / 0 / 0 Регистрация: 06.12.2011 Сообщений: 3
	08.12.2011, 14:00 [ТС]
	спасибо большое! 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	08.12.2011, 14:53
	А причем тут арифметическая прогрессия вообще? 0

@Linoge 3205 / 1915 / 324 Регистрация: 25.10.2011 Сообщений: 5,564
	08.12.2011, 15:20
	А я понял так, что последовательность для обоих задач одна и та же и представлена на рисунке. 0