вычислить сумму ряда Опции

[dimon85]

Первый раз увидел паскаль, и тут сразу сабж: ln(x)=(x-1)^1/1-(x-1)^2/2+(x-1)^3/3-(x-1)^4/4+... с точностью eps; 0<x<=1/2. Хелп плиз....сдавать лабу как-то надо....

[LinkIn]

Раз никто не пробует, попробую я...
Я так понимаю, что 1,2 и 3 после дроби это факториалы? Тогда попробуй так:

Код

program Linkin;
var n,f,z:integer; ln1,x,eps:real;
begin
writeln('Введите x,eps');
readln(x,eps);
n:=2;
f:=2;
z:=-1;
ln1:=x-1;
while (ln1>eps) do begin
ln1:=ln1+(z*(exp(n*ln(x-1))))/f;
z:=z*(-1);
f:=f*(f+1);
n:=n+1;
end;
writeln('Сумма ряда равна ',ln1);
end.

Но я не большой специалист в этом деле! Может кто-нибудь улучшит программу...

Сообщение отредактировано: volvo - 17.12.2004 19:23