С заданной точностью нужно найти корни уравнение методом хорд.
e^-x+sqrt(x+1)-4=0

Написал код , но не могу понять в чем тут ошибка
Нажмите на изображение для увеличения
Название: ***1057;***1085;***1080;***1084;***1086;***1082;..jpg
Просмотров: 10
Размер:	9.5 Кб
ID:	385760 вот пример

program c1;
uses crt;
var
i,j,k,n:integer;
sum,s,x,l:real;
begin
clrscr;
writeln('Введите элементы k,n ');
readln(k);
readln(n);
x:=3;
l:=1;
s:=0;
sum:=0;
for k:=2 to n do begin
sum:=sum+s;
for i:=0 to k do begin
if i=0 then x:=1
else
x:=x*3;
if i=0 then l:=1
else
l:l-1)*i;
s:=s+x/l;
writeln(s);
end;
writeln(sum);
end;
readln;
readln
end.