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

Тема в разделе "Pascal and Delphi", создана пользователем Koraelstraz, 17 янв 2010.

Статус темы:
Закрыта.
  1. Koraelstraz

    Koraelstraz Гость

    Посмотреть вложение _______.doc.doc
    DSC00224.jpg
    Я сделал но не правильно, подскажите в чём ошибка??
    Код (Text):
    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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей