Вот что я нарешал.. .
PROGRAM Ex1;
Uses CRT;
Const
eps1=0.01;
eps2=0.001;
eps3=0.0001;
a=-0.6;
b=0.05;
N=20;
Var
k1, k2, k3, i: Integer;
f1, f2_1, f2_2, f2_3, step, slag, x:real;
Begin
ClrScr;
writeln('_________________________________________________');
writeln('| | | e=0.01 | e=0.001 | e=0.0001 |');
writeln('| x | f1(x) |________|_________|__________|');
writeln('| | |f2(x)|N |f2(x) |N | f2(x) |N |');
writeln('|_____|___________|_____|__|______|__|_______|__|');
x:=a;
for i:=1 to N do
begin
f1:=((1-x)/x)*ln(1/(1-x));
step:=x;
f2_1:=0;
k1:=0;
repeat
inc(k1);
if (x<0) then step:=(-1)*exp(ln(abs(x))*k1);
if (k1=0) then step:=1;
step:=exp(ln(abs(x))*k1);
slag:=step/(k1*(k1+1));
f2_1:=f2_1+slag;
until abs(slag)<=eps1;
f2_2:=f2_1;
k2:=k1;
repeat
inc(k2);
step:=step*x;
slag:=step/(k2*(k2+1));
f2_2:=f2_2+slag;
until abs(slag)<=eps2;
f2_3:=f2_2;
k3:=k2;
repeat
inc(k3);
step:=step*x;
slag:=step/(k3*(k3+1));
f2_3:=f2_3+slag;
until abs(slag)<=eps3;
writeln('|',x:5:2,'|',f1:1:9,'|',f2_1:5:2,'|',k1:2,'|',f2_2:6:3,'|',k2:2,'|',f2_3:7:4,'|',k3:2,'|');
x:=x+b;
end;
writeln('|_______________________________________________|');
ReadKey
END.
Подскажите пожалуйста где и в чем моя ошибка
