Правильно ли решена задача на нахождение суммы ряда?

@Дмитрий999 · Регистрация: 07.02.2015

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

Правильно ли я написал? Если нет, то исправьте.

ЗаданиеНайти сумму ряда с точностью $https://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon =10^{-4}$ , общий член которого $https://www.cyberforum.ru/cgi-bin/latex.cgi?a_n=\frac{(-1)^{n-1}}{(n!)^2}$

Pascal

program i2;
var sum,an:real;
    n:integer;
begin
 sum:=0;    
 an:=1;
 n:=1;
 while an>0.0001 do
  begin
  sum:=sum+an;
  n:=n-1;
  an:=an*(-1)/(2*n+2);
  end;
 writeln('Сумма равна =',sum:7:6);
end.

@saden · 13.02.2015, 14:09

n надо не уменьшать, а увеличивать

@Дмитрий999 · 13.02.2015, 14:22 **[ТС]**

А остальное правильно?

@saden · 13.02.2015, 14:25

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\left(n! \right)^2$ предусматривает домножение на 1/n дважды:

Pascal

1 2	n:=n+1; an:=an*(-1)/n/n;

@Puporev · 13.02.2015, 14:53

Pascal

program i2;
var sum,an:real;
    n:integer;
begin
n:=1;
an:=1;
sum:=an;
while abs(an)>0.0001 do
 begin
  n:=n+1;
  an:=-an/sqr(n);
  sum:=sum+an;
 end;
writeln('Сумма=',sum:0:4);
end.

@Cyborg Drone · 13.02.2015, 16:58

an:=-an/sqr(n) - есть вероятность целочисленного переполнения в результате вычисления n*n.

an:=-an/n/n - вот так целочисленного переполнения не возникнет вообще.

Добавлено через 10 минут
В жертву приносятся производительнось и размер екзешника.

@Puporev · 13.02.2015, 17:15

Сообщение от Cyborg Drone

есть вероятность целочисленного переполнения в результате вычисления n*n.

Да при точности 0.0001 n=5

@saden · 13.02.2015, 21:30

Сообщение от Cyborg Drone

В жертву приносятся производительнось и размер екзешника.

еще плюс вызов функции, передача аргумента по копированию, возможность переполнения....

@Cyborg Drone · 15.02.2015, 18:59

saden, спасибо, что уточнили, почему понижается производительность и увеличивается объём экзешника. Я полагал, что это очевидно.
- согласен, функция преобразование целого в вещественное,
- ну, фактически я про это и писал (да, откуда такое определение? Обычно говорят: по значению),
- не согласен, если до этой строчки переполнения не было, то на ней и не возникнет, здесь возможно лишь антипереполнение, от которого программа застрахована конструкцией abs(an)>0.0001. Утверждаете, переполнение возможно? Пример выложите.

Puporev, лучше перебдеть, чем недоспать. Ну да, этот ряд быстро сходится... Да и, если честно, это всё - дело вкуса и стиля, делить там, умножать... Я вот предпочитаю целые числа, если возможно, не перемножать и в степень не возводить, от этого трудновылавливаемые ошибки случаются.

@saden 183 / 167 / 53 Регистрация: 27.01.2013 Сообщений: 788
	13.02.2015, 14:09	2
	n надо не уменьшать, а увеличивать 0

@Дмитрий999 1 / 1 / 4 Регистрация: 07.02.2015 Сообщений: 221
	13.02.2015, 14:22 [ТС]	3
	А остальное правильно? 0

@Cyborg Drone Модератор 9714 / 5054 / 3284 Регистрация: 17.08.2012 Сообщений: 15,601
	13.02.2015, 16:58	6
	an:=-an/sqr(n) - есть вероятность целочисленного переполнения в результате вычисления nn. an:=-an/n/n - вот так целочисленного переполнения не возникнет вообще. Добавлено через 10 минут* В жертву приносятся производительнось и размер екзешника. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	13.02.2015, 17:15	7
	Сообщение от Cyborg Drone есть вероятность целочисленного переполнения в результате вычисления n*n. Да при точности 0.0001 n=5 1

@saden 183 / 167 / 53 Регистрация: 27.01.2013 Сообщений: 788
	13.02.2015, 21:30	8
	Сообщение от Cyborg Drone В жертву приносятся производительнось и размер екзешника. еще плюс вызов функции, передача аргумента по копированию, возможность переполнения.... 0

@Cyborg Drone Модератор 9714 / 5054 / 3284 Регистрация: 17.08.2012 Сообщений: 15,601
	15.02.2015, 18:59	9
	saden, спасибо, что уточнили, почему понижается производительность и увеличивается объём экзешника. Я полагал, что это очевидно. - согласен, функция преобразование целого в вещественное, - ну, фактически я про это и писал (да, откуда такое определение? Обычно говорят: по значению), - не согласен, если до этой строчки переполнения не было, то на ней и не возникнет, здесь возможно лишь антипереполнение, от которого программа застрахована конструкцией abs(an)>0.0001. Утверждаете, переполнение возможно? Пример выложите. Puporev, лучше перебдеть, чем недоспать. Ну да, этот ряд быстро сходится... Да и, если честно, это всё - дело вкуса и стиля, делить там, умножать... Я вот предпочитаю целые числа, если возможно, не перемножать и в степень не возводить, от этого трудновылавливаемые ошибки случаются. 0

Опции темы