Вычислить сумму ряда с заданной точностью

@morlok · Регистрация: 06.10.2012

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

составить программу вычисления суммы ряда с точностью до $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon=10^{-4}$ :

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{\infty} \frac{2^n+5^k}{n+k}$

@BumerangSP · 06.10.2012, 19:12

morlok, этот ряд точно сходится?

@morlok · 06.10.2012, 20:17 **[ТС]**

так в задание было написано!!!

@BumerangSP · 06.10.2012, 21:23

Хм, значения каждый раз были разными (например, при k=1). Хотя я вродь отдельно проверял. И если он правда расходится, то решить задание невозможно.

@morlok · 07.10.2012, 19:15 **[ТС]**

так никто и не поможет?

(((

@BumerangSP · 07.10.2012, 19:54

А в чем смысл помощи, если задание некорректно? Я могу дать код, но для этого примера он не сработает.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var k,s,s2,s1: real;
    n: integer;
begin
 readln(k);
 s:=k;
 s2:=k;
 n:=1;
 repeat
   s1:=s;
   s:=(exp(ln(2)*n)+exp(ln(5)*k)) /(n+k); //очередной член ряда
   s2:=s2+s;
   inc(n);
 until (abs(s1-s)<0.0001);
  writeln('Сумма = ',s2:5:4);
 readln;
end.

@morlok · 07.10.2012, 20:06 **[ТС]**

дело в том что задание с точностью было переписано и книги так что.....все что могу!

(((

@BumerangSP · 07.10.2012, 20:15

Пример выглядит так? k задается с клавиатуры?
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{\propto}\frac{{2}^{n}+{5}^{k}}{n+k}$

@morlok · 07.10.2012, 21:53 **[ТС]**

да так оно выглядит!Я наверное его не так написал?

@droider · 07.10.2012, 22:07

Подобные темы на форуме рассматривались не раз! Даже сегодня это уже не первая тема. Поиск в помощь. Суть одна во всех подобных задачах - меняйте формулы!

Предлагаю такой вариант

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
k, n:integer;
f, sum:real
const e=0.0001
begin
k:=strtoint(edit1.text);
sum:=0; n:=1;
repeat
f:=((exp(n*ln(2))+exp(k*ln(5)))/(n+k);
sum :=sum+f;
n := n+1;
until f<=e;
ShowMessage('Сумма ряда равна '+floattostr(sum));
end;

@morlok · 07.10.2012, 22:09 **[ТС]**

Спасибо конечно, но мне в паскале надо,а в нем я вообще не понимаю!!!

@morlok · 07.10.2012, 22:12 **[ТС]**

Спасибо конечно но мне в паскале надо а в нем я вообще не понимаю!

@BumerangSP · 07.10.2012, 22:14

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

Предлагаю такой вариант

Это копия моего кода, только в делфи, да еще и в оконном, да еще и с ошибками синтаксиса, да еще и непроверенный на работоспособность. И выдавать он также будет ошибку переполнения, потому что как я уже писал, ряд не сходится.

@droider · 07.10.2012, 22:34

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
k, n:integer;
f, sum:real;
const e=0.0001;
begin
Readln(k);
sum:=0; n:=1;
repeat
f:=((exp(n*ln(2))+exp(k*ln(5)))/(n+k);
sum :=sum+f;
n :=n+1;
until f<=e;
Writeln('Сумма ряда равна', sum);
Readln;
end;

Подправил код. Забыл, что Pascal.
Вот подобная тема за сегодня: Найти сумму ряда с заданной точностью.
Удачи!

Добавлено через 5 минут
BumerangSP, где ты видишь копию? 1. Формула в любом случае одна, 2. Проверено, 3. написал в Delphi, т.к. не заметил раздела и исправился. Успокойся! Не нервничай))

@morlok · 07.10.2012, 22:37 **[ТС]**

Спасибо!!! И давайте не будем ругаться!!!

@droider · 07.10.2012, 22:43

Так не будешь обвинять в копировании?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
k, n:integer;
f, sum:real;
const e=0.0001;
begin
Readln(k);
sum:=0; n:=1;
while f<=e do
begin
f:=((exp(n*ln(2))+exp(k*ln(5)))/(n+k);
sum :=sum+f;
n :=n+1;
end;
Writeln('Сумма ряда равна', sum);
Readln;
end;

@BumerangSP · 07.10.2012, 22:43

droider, возможно, я где-то ошибаюсь, но у тебя вышел корректный ответ по этому примеру?

@droider · 07.10.2012, 22:45

Ругаться я и не собираюсь. Просто объяснил. Успехов!

@morlok · 07.10.2012, 22:46 **[ТС]**

Так у кого же все таки правильно?

@BumerangSP · 07.10.2012, 23:02

morlok, стоит просто запустить код.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@morlok 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 28

	Вычислить сумму ряда с заданной точностью 06.10.2012, 18:52. Показов 5431. Ответов 26 Метки нет (Все метки) составить программу вычисления суммы ряда с точностью до $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon=10^{-4}$ : $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{\infty} \frac{2^n+5^k}{n+k}$ 0

@BumerangSP 4311 / 1423 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	06.10.2012, 19:12
	morlok, этот ряд точно сходится? 0

@morlok 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 28
	06.10.2012, 20:17 [ТС]
	так в задание было написано!!! 0

@BumerangSP 4311 / 1423 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	06.10.2012, 21:23
	Хм, значения каждый раз были разными (например, при k=1). Хотя я вродь отдельно проверял. И если он правда расходится, то решить задание невозможно. 0

@morlok 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 28
	07.10.2012, 19:15 [ТС]
	так никто и не поможет? ((( 0

@morlok 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 28
	07.10.2012, 20:06 [ТС]
	дело в том что задание с точностью было переписано и книги так что.....все что могу!((( 0

@BumerangSP 4311 / 1423 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	07.10.2012, 20:15
	Пример выглядит так? k задается с клавиатуры? $https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{n=1}^{\propto}\frac{{2}^{n}+{5}^{k}}{n+k}$ 0

@morlok 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 28
	07.10.2012, 21:53 [ТС]
	да так оно выглядит!Я наверное его не так написал? 0

@morlok 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 28
	07.10.2012, 22:09 [ТС]
	Спасибо конечно, но мне в паскале надо,а в нем я вообще не понимаю!!! 0

@morlok 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 28
	07.10.2012, 22:12 [ТС]
	Спасибо конечно но мне в паскале надо а в нем я вообще не понимаю! 0

@morlok 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 28
	07.10.2012, 22:37 [ТС]
	Спасибо!!! И давайте не будем ругаться!!! 0

@BumerangSP 4311 / 1423 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	07.10.2012, 22:43
	droider, возможно, я где-то ошибаюсь, но у тебя вышел корректный ответ по этому примеру? 0

@droider 4888 / 2822 / 865 Регистрация: 04.10.2012 Сообщений: 10,264
	07.10.2012, 22:45
	Ругаться я и не собираюсь. Просто объяснил. Успехов! 0

@morlok 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 28
	07.10.2012, 22:46 [ТС]
	Так у кого же все таки правильно? 0

@BumerangSP 4311 / 1423 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	07.10.2012, 23:02
	morlok, стоит просто запустить код. 1