Составить программу вычисления суммы бесконечного ряда

@sibex11 · Регистрация: 20.11.2016

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

Составить программу вычисления суммы бесконечного ряда с точность EPS.
Значение EPS вводится с клавиатуры.

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{n=1}^{\infty}\frac{(-1)^{n+1}}{{2\cdot n}^2+3}<br />$

@Фонарик · 24.02.2017, 13:24

Pascal

const eps=1e-5;{точность}
 
var
  n,z: integer;
  s: real;
 
begin
  s:=0;
  z:=1;{знак числителя}
  n:=1;
  repeat
  begin
     s:=s+z/(2*n*n+3);
     z:=z*(-1);{смена знака числителя}
     n:=n+1;
  end
  until 1/(2*n*n+3)<eps; {условие остановки}
 
  writeln('Summ = ', s);
 
end.

@Puporev · 24.02.2017, 13:29

Pascal

var eps,t,s:real;
    n:integer;
begin
repeat
write('Введите точность 0<eps<1 eps=');
readln(eps);
until(eps>0)and(eps<1);
n:=0;
t:=-1;//значение числителя ряда при n=0
s:=0;
while abs(t)/(2*n*n+3)>eps do
 begin
  n:=n+1;
  t:=-t;
  s:=s+t/(2*n*n+3);
 end;
write('S=',s:0:4)
end.

@sibex11 · 24.02.2017, 13:44 **[ТС]**

А почему во free pascal выдает неверный результат?

@Puporev · 24.02.2017, 13:46

А какой верный? И как Вы это узнали?

@sibex11 · 24.02.2017, 13:51 **[ТС]**

В паскале ABC,верный у вас обоих,а вот во free pascal только у вас,посчитал в калькуляторе онлайн.

@Puporev · 24.02.2017, 13:57

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

а вот во free pascal только у вас

Ну значит у меня написано правильно...

@sibex11 · 24.02.2017, 13:59 **[ТС]**

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

@Puporev · 24.02.2017, 14:07

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

А то та программа по проще будет

Чем?

Добавлено через 6 минут
С точностью до 4 знака ответы сходятся, ну а дальше каждая IDE для каждого кода по своему считает.

@Фонарик · 24.02.2017, 14:12

мой вариант считает что если слагаемое стало равно eps, то его еще считаем в сумму, в варианте Puporev такое слагаемое не попадает в сумму, больше отличий нет

@Фонарик 28 / 28 / 15 Регистрация: 18.11.2012 Сообщений: 79
	24.02.2017, 14:12	10
	мой вариант считает что если слагаемое стало равно eps, то его еще считаем в сумму, в варианте Puporev такое слагаемое не попадает в сумму, больше отличий нет 1

Составить программу вычисления суммы бесконечного ряда

Решение

Решение

@sibex11 10 / 10 / 0 Регистрация: 20.11.2016 Сообщений: 81
		1
	Составить программу вычисления суммы бесконечного ряда 24.02.2017, 12:59. Показов 1835. Ответов 9 Метки нет (Все метки) Составить программу вычисления суммы бесконечного ряда с точность EPS. Значение EPS вводится с клавиатуры. $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> \sum_{n=1}^{\infty}\frac{(-1)^{n+1}}{{2\cdot n}^2+3}<br />$ 0

@sibex11 10 / 10 / 0 Регистрация: 20.11.2016 Сообщений: 81
	24.02.2017, 13:44 [ТС]	4
	А почему во free pascal выдает неверный результат? 0

@Puporev Почетный модератор 64304 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	24.02.2017, 13:46	5
	А какой верный? И как Вы это узнали? 0

@sibex11 10 / 10 / 0 Регистрация: 20.11.2016 Сообщений: 81
	24.02.2017, 13:51 [ТС]	6
	В паскале ABC,верный у вас обоих,а вот во free pascal только у вас,посчитал в калькуляторе онлайн. 0

@Puporev Почетный модератор 64304 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	24.02.2017, 13:57	7
	Сообщение было отмечено sibex11 как решение Решение Сообщение от sibex11 а вот во free pascal только у вас Ну значит у меня написано правильно... 0

@sibex11 10 / 10 / 0 Регистрация: 20.11.2016 Сообщений: 81
	24.02.2017, 13:59 [ТС]	8
	а в чем отличия тогда,чтобы разобраться?А то та программа по проще будет.Странно ,что в паскале ABC одинаково,а во free разное... 0

@Puporev Почетный модератор 64304 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	24.02.2017, 14:07	9
	Сообщение от sibex11 А то та программа по проще будет Чем? Добавлено через 6 минут С точностью до 4 знака ответы сходятся, ну а дальше каждая IDE для каждого кода по своему считает. 1