Отладить программу

@Xo6ut · Регистрация: 04.11.2011

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

Помогите отдалить программу. Составить алгоритм и программу нахождения суммы ряда с заданной точностью Е. Использовать рекуррентные соотношение при вычислении очередного члена ряда. Для оценки правильности решения, предусмотреть вычисление по контрольной формуле.
Вычисление суммы заканчивается, если модуль очередного слагаемого оказывается меньше заданного значения точности (Е) , причем для этих рядов( $https://www.cyberforum.ru/cgi-bin/latex.cgi?\left|X \right|<1$ ) абсолютная величина всех отброшенных членов ряда, при этом оказывает меньше E
Вот собственно ряд:
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{3}\left(\frac{1}{1!}+\frac{1}{3!} \right)-{x}^{5}\left(\frac{1}{2!}+\frac{1}{5!} \right)+{x}^{7}\left(\frac{1}{3!}+\frac{1}{7!} \right)-.....\pm {x}^{2i+1}\left(\frac{1}{i!}+\frac{1}{2i+1}i \right)\mp ....$
И контрольная формула:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?2x-x{e}^{{-x}^{2}}-\sin x$
Вот сама задача:

Код

uses crt;
var x,e,s,t,z1,z2:real;
    i:longint;
begin
clrscr;
repeat
write('|x|<1 x=');
readln(x);
until abs(x)<1;
e:=0.0001;
z1:=1;
z2:=6;
t:=x*x*x;
s:=t*(1/z1+1/z2);
i:=1;
while abs(t*(1/z1+1/z2))>e do
 begin
  i:=i+1;
  z1:=z1*i;
  z2:=z2*2*i*(2*i+1);
  t:=-t*x*x;;
  s:=s+t*(1/z1+1/z2)
 end;
writeln('S=',s:0:4);
writeln('F=',2*x-x*exp(-x*x)-sin(x):0:4);
readln
end.

По идее, значения должны отличаться на заданную величину E, но они либо не отличаются друг от друга, либо отличаются на большую величину. И составьте пожалуйста рекурентную формулу этого ряда.

Добавлено через 42 минуты
Знает кто, в чем ошибка?

@Samhain · 30.10.2013, 15:22

Xo6ut,

Pascal

const e=0.0001;
var x,s,t,z1,z2:real;
    i:integer;
begin
  repeat
    write('|x|<1 x=');
    readln(x);
  until abs(x)<1;
  z1:=1;z2:=1;
  t:=-x;
  s:=0;
  i:=0;
  while abs(t*(z1+z2))>e do
    begin
      inc(i);
      z1:=z1/i;
      z2:=z2/(2*i*(2*i+1));
      t:=-t*x*x;;
      s:=s+t*(z1+z2);
    end;
  writeln('S = ',s:0:4,', 2x-x*exp(-x^2)-sin(x) = ',2*x-x*exp(-x*x)-sin(x):0:4);
  readln
end.

@Xo6ut · 30.10.2013, 15:24 **[ТС]**

Тоже самое получается

@Samhain · 30.10.2013, 15:48

Xo6ut, просто в выводе возьмите больше знаков после запятой (например 6, вместо 4) и увидите, что они отличаются.

@Xo6ut · 30.10.2013, 16:05 **[ТС]**

Да, но ведь не на указанное значение е....
И не могли бы вы написать рекурентную формулу этого ряда?

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
		1
	Отладить программу 30.10.2013, 14:25. Показов 498. Ответов 4 Метки нет (Все метки) Помогите отдалить программу. Составить алгоритм и программу нахождения суммы ряда с заданной точностью Е. Использовать рекуррентные соотношение при вычислении очередного члена ряда. Для оценки правильности решения, предусмотреть вычисление по контрольной формуле. Вычисление суммы заканчивается, если модуль очередного слагаемого оказывается меньше заданного значения точности (Е) , причем для этих рядов( $https://www.cyberforum.ru/cgi-bin/latex.cgi?\left\|X \right\|<1$ ) абсолютная величина всех отброшенных членов ряда, при этом оказывает меньше E Вот собственно ряд: $https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}^{3}\left(\frac{1}{1!}+\frac{1}{3!} \right)-{x}^{5}\left(\frac{1}{2!}+\frac{1}{5!} \right)+{x}^{7}\left(\frac{1}{3!}+\frac{1}{7!} \right)-.....\pm {x}^{2i+1}\left(\frac{1}{i!}+\frac{1}{2i+1}i \right)\mp ....$ И контрольная формула: $https://www.cyberforum.ru/cgi-bin/latex.cgi?2x-x{e}^{{-x}^{2}}-\sin x$ Вот сама задача: Код uses crt; var x,e,s,t,z1,z2:real; i:longint; begin clrscr; repeat write('\|x\|<1 x='); readln(x); until abs(x)<1; e:=0.0001; z1:=1; z2:=6; t:=xxx; s:=t(1/z1+1/z2); i:=1; while abs(t(1/z1+1/z2))>e do begin i:=i+1; z1:=z1i; z2:=z22i(2i+1); t:=-txx;; s:=s+t(1/z1+1/z2) end; writeln('S=',s:0:4); writeln('F=',2x-xexp(-xx)-sin(x):0:4); readln end. По идее, значения должны отличаться на заданную величину E, но они либо не отличаются друг от друга, либо отличаются на большую величину. И составьте пожалуйста рекурентную формулу этого ряда. Добавлено через 42 минуты* Знает кто, в чем ошибка? 0

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
	30.10.2013, 15:24 [ТС]	3
	Тоже самое получается 0

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	30.10.2013, 15:48	4
	Xo6ut, просто в выводе возьмите больше знаков после запятой (например 6, вместо 4) и увидите, что они отличаются. 0

@Xo6ut 103 / 90 / 75 Регистрация: 04.11.2011 Сообщений: 1,820
	30.10.2013, 16:05 [ТС]	5
	Да, но ведь не на указанное значение е.... И не могли бы вы написать рекурентную формулу этого ряда? 0