на скорую руку, сам не проверял как работает.
Код
var
f:real;//значение функции
d:real;// очередное слагаемое - дробь
ch:real;//числитель
zn:real;//знаменатель
x:real;
const
e=0.00000001; //точность
begin
writeln("vvedite x");
readln(x);
ch:=x;
zn:=1;
d:=ch/zn;
f:=d;
if d<0
then d:=d+(-d)+(-d);// вместо фуннции abs при отрицательном значении дроби
while d>e do
begin
ch:=ch*(-1)*x;// + - будут чередоваться
zn:=zn+1;
d:=ch/zn;
f:=f+d;
if d<0
then d:=d+(-d)+(-d);
end;
writeln("результат ", f);
readln;
end.
Сообщение отредактировал H@ns - Суббота, 15 Июля 2006, 23:37
Я не люблю тех, кто не любил ни когда...