PascalABC.Net

[now2]

program b1;
uses crt;
var a,b,c,e,i,d:real;
function F(x:real):real;
begin
F:=(sin(0.5*x+0.1)/cos(0.5*x+0.1))/sqr(x);
end;
function F1(x:real):real;
begin
F1:=0.5/(sqr(cos(0.5*x+0.1)))-2*x;
end;
function F2(x:real):real;
begin
F2:=0.5*cos(0.5*x+0.1)*sin(0.5*x+0. 1)-2;
end;
Procedure K;
label 3;
begin
if F(a)*F2(a)>0 then begin c:=b; d:=a; end else begin c:=a; d:=b; end;
3:if abs(f(c))<e then writeln('koren =', c:5:5) else begin
c:=c-((c-d)/(f(c)-F(d)))*F(c); goto 3; end;
end;
Procedure H;
label 4;
begin
if f(a)*f2(a)>0 then c:=a else c:=b;
4:if abs(f(c))<e then writeln('koren=',c:5:5) else begin
c:=c-(f(c)/f1(c));
goto 4; end;
end;
begin
writeln('a and b');
readln(a,b);
writeln('e');
readln(e);
writeln('Каким методом решать?');
writeln('1:Метод хорд');
writeln('2:Метод касательных');
readln(i);
if i=1 then K else H;
readkey;

end.
РЕБЯТ НА МОГУ НАПИСАТЬ ПРАВИЛЬНО ПРОИЗВОДНУЮ ПРОГРАММА РАБОТАЕТ , РАБОТАЕТ ОБА МЕТОДА , НО КОРНИ ПОЛУЧАЮТСЯ РАЗНЫЕ, А ДОЛЖНЫ ОДИНАКОВЫЕ ПРОВЕРЬТЕ ПЛИЗ ПРОИЗВОДНЫЕ , ГДЕ ОШИБКА

[Streletz]

НАПИСАТЬ ПРАВИЛЬНО ПРОИЗВОДНУЮ

Сперва её надо найти. как это делать, написано в любом учебнике по мат.анализу.

ПРОВЕРЬТЕ ПЛИЗ ПРОИЗВОДНЫЕ

Исхъодное задание в студию!

[now2]

tg 0,5x + 0,1 = x^2
исходное уравнение