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

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

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

составить программу вычисления суммы ряда с точностью до ϵ =10 в — 4 степени:
∞ 2ⁿ+5ᵏ
∑ -----------
n=1 (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

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

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

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

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, стоит просто запустить код.

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

@BumerangSP 4299 / 1421 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	07.10.2012, 22:14	13
	Сообщение от droider Предлагаю такой вариант Это копия моего кода, только в делфи, да еще и в оконном, да еще и с ошибками синтаксиса, да еще и непроверенный на работоспособность. И выдавать он также будет ошибку переполнения, потому что как я уже писал, ряд не сходится. 0

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

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

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

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

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

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

@BumerangSP 4299 / 1421 / 463 Регистрация: 16.12.2010 Сообщений: 2,939 Записей в блоге: 3
	07.10.2012, 20:15	8
	Пример выглядит так? 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 [ТС]	9
	да так оно выглядит!Я наверное его не так написал? 0

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

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

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

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

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