Сумма ряда, найти ошибки

@lika777 · Регистрация: 29.10.2016

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

Необходимо вычислить значение суммы ряда с заданной точностью
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{x}{3}+(\frac{x}{3}){}^{3}\frac{1}{3!}+...+(\frac{x}{3}){}^{2n-1}\frac{1}{(2n-1)!}+...$
Вот что получилось, но программа почему-то не выдает ответ. Подскажите, пожалуйста, где ошибка?

Pascal

Program q; 
Var x, e, a, s:real; 
n:byte;
Begin
writeln('Введите x, e'); 
readln(x,e);
n:=0; s:=0; a:=x; 
while abs(a)>e do
begin 
s:=s+a; 
n:=n+1; {Hомер члена ряда}
a:=a*(power(x/3,2*n-1))/((2*n-2)*(2*n-1));  
end;
writeln('cумма членов ряда=', s:2:4);
end.

@Puporev · 22.03.2018, 18:55

Pascal

var x, e, a, s:real;
    n:integer;
begin
repeat
write('Введите х<>0 x=');
readln(x);
until x<>0;
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
n:=1;
a:=x/3;
s:=a;
while abs(a)>e do
 begin
  n:=n+1;
  a:=a*sqr(x/3)/(2*n)/(2*n+1);
  s:=s+a;
 end;
writeln('сумма членов ряда=', s:0:4);
end.

@lika777 · 23.03.2018, 11:51 **[ТС]**

Puporev, спасибо большое! Только я вот не пойму, при вводе х=3, е=0,001 получается ответ 1.0512, а в качестве точного значения в условии задано sh(x/3), а это 1,175... Почему так получается?

@Puporev · 23.03.2018, 12:00

Нужно исправить

Pascal

1	a:=asqr(x/3)/(2n-2)/(2*n-1);

Сумма ряда, найти ошибки

Решение

Решение

@lika777 0 / 0 / 0 Регистрация: 29.10.2016 Сообщений: 26
	23.03.2018, 11:51 [ТС]	3
	Puporev, спасибо большое! Только я вот не пойму, при вводе х=3, е=0,001 получается ответ 1.0512, а в качестве точного значения в условии задано sh(x/3), а это 1,175... Почему так получается? 0

	23.03.2018, 12:00