1 курс. Pascal

[Надпись]

Пожалуйста, помогите
Составить программу расчета суммы ряда s=x - x^2/2 + x^3/3 - x^4/4 ...
(an) для заданного x и с точностью eps. Результат сравнить с ln(1+x).
(an)Крайний срок - завтра 7 утра

Comments

[Vj_o-oy]

и в чем затык с программой, какие уже есть наработки и т.п.?

[Надпись]

Да я даже чего от меня требуется не пойму. Яв все тему проболела. Подруга к преподавателю подошла. Она мне задание написала.. Я вообще ничего не пойму)

у когото проблемы с матаном?))

[Надпись]

Я биолог. У меня высшая математика высшей только называется

[Надпись]

Помогите, прошу)
Может есть у кого-нибудь написанная похожая задача... Я хоть посмотрю как делается

[Татик.]

у меня была вроде похожая на delphi... Вводится точность e. Вычислить сумму ряда 1-1/(3*3)+1/(5*32)-1/(7*33)+... Вычисления продолжать до тех пор, пока очередное слагаемое не станет меньше e. ...

[Виталька]

Пожалуйста, помогите
Составить программу расчета суммы ряда s=x - x^2/2 + x^3/3 - x^4/4 ...
(an) для заданного x и с точностью eps. Результат сравнить с ln(1+x).
(an)

на паскале давно не писал, но что то такое, отлаживать и доделывать надо



step,x,eps,s,delta:real;

вводим x
вводим eps

s:=0;
r:=x;
step:=1;
while (r>eps) do
begin
r:=(x^step)/step;
if(step/2=Abs(step/2)) then s=s-r; else s=s+r;
step=step+1;
end;

delta=ord(s-ln(1-x));

[Надпись]

спасибо большое

[Надпись]

А вот такой вариант правильный?
uses crt;
var x,an,s,eps,t:real;
n:longint;
begin
clrscr;
write('x=');readln(x);
write('eps=');readln(eps);
s:=x;t:=x;n:=1;an:=t/n
while abs(an)>=eps do
begin
s:=s+an;
n:=n+1;

t:=t*(-x);

an:=t/n;
end;
writeln('s=',s:0:6);
write('ln(1+x)=',ln(1+x):0:6);
readln
end.

[Виталька]

Надпись Можно и так, только так более все неявно, программа становится менее понятной при таком подходе, хотя тоже вариант.