Вычислить сумму ряда.

  • Автор темы Koraelstraz
  • Дата начала
Статус
Закрыто для дальнейших ответов.
K

Koraelstraz

#1
Посмотреть вложение _______.doc.doc
DSC00224.jpg
Я сделал но не правильно, подскажите в чём ошибка??
Код:
uses crt;
var x,u,un,e,t:real;
n:integer;
begin
clrscr;
write('x=');
readln(x);
repeat
write('Точность (10^-4,10^-3) e=');
readln(e);
until(e>0.0001)and(e<0.001);{типа 0.0005}
n:=1;
t:=x;{первое слагаемое}
un:=x;{первая сумма}
u:=0;{итоговая сумма}
while abs(u-un)>=e do
begin
n:=n+1;
u:=un;{предыдущая сумма}
t:=-t/((2*n-1)*(2*n-2));{очередной член ряда}
un:=un+t;{новая сумма}
end;
write('U(n)=',u:0:5,' U(n-1)=',un:0:5,' Toчность=',abs(u-un):0:5);
readln
 

Вложения

Статус
Закрыто для дальнейших ответов.