вычисление суммы членов бесконечного числового ряда, верно ли я все сделал? необходим взгляд опытного программиста Опции

[dim0n]

Собственно сама задача:
Составить программу вычисления суммы членов бесконечного числового ряда с погрешностью Е=10^-4. Определить количество членов ряда,сравнить полученное значение суммы со значением функции y=Ln(x),x=1.5.

формула суммы ряда фото:
мое творение:

 
Program primer;
{Ln(x)}
var
    a:real; {n-й член ряда}
    b:real; {ошибка}
    n:integer; {число итераций}
    s:real; {сумма ряда}
    x:real; {аргумент}
begin
    write('x=');
    readln(x);
    write('точность e=');
    readln(e);
    s:=0;
    n:=1;
    a:=x; {0й член}
    while abs(a)>e do begin
               s:=s+a;
               n:=n+1;
               a:=(x-1)*n*n/(n*x*n*n);
end;
  writeln('сумма ряда=',s:6:5);
  writeln('точность=',e:6:5);
  writeln('число членов=',n);
  writeln('Ln(',x:6:5,')=',Ln(x):6:5);
  writeln('расхождение=',abs(Ln(x)-s):6:5);
  readln;
end.

гуру гляньте пожалуйста, правильно ли я мыслю?

Сообщение отредактировано: dim0n - 11.06.2011 19:35