проверьте программу

[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('Kakim metodom reshati?');
writeln('1:Metod hordi');
writeln('2:metod kasatelinih');
readln(i);
if i=1 then K  else H;
readkey;
end.

ПРОВЕРЬТЕ ПРОГРАММУ ПЛИЗ , ЗАДАНИЕ РЕШИТЬ ФУНКЦИЮ ДВУМЯ СПОСОБАМИ , ПРОГРАММА РЕШАЕТ НО КОРНИ РАЗНЫЕ ПОЛУЧАЮТСЯ А ДОЛЖНЫ БЫТЬ ОДИНАКОВЫЕ , ОШИБКА ГДЕ-ТО Я ТАК ДУМАЮ ЧТО ОШИБКА В ПРОИЗВОДНЫХ , ПОМОГИТЕ ИСПРАВИТЬ ОШИБКУ ПОЖАЛУЙСТА !!!!

[now2]

никто не знает как исправить ошибку ??????????????????????????????????? ?????????????????????????????????

[now2]

ребятки !!!!!!!!!!!!!!!!!!!!!!срочно помощь нужна что так трудно помочь

[Stilet]

Ай ай... Это в каком захолустье такими методами учат программы писать?

Procedure H;
begin

while abs(b-a)>e do begin
        a := b - (b - a) * f(b)/(f(b) - f(a));
        b := a - (a - b) * f(a)/(f(a) - f(b));
end;
writeln('From Wikipedia: koren=',b:5:5);

end;

Procedure K;
begin
  b:=a-(f(a)/df(a));
  // поиск корня

  while abs(a-b)>e do
  begin
    a:=b;
    b:=a-(f1(a)/f2(a));
    inc(i);
  end;
writeln('From http://www.programmersforum.ru/showthread.php?t=225940: koren=',a:5:5);

end;

И я не проверял.

[now2]

Сообщение от Stilet

Ай ай... Это в каком захолустье такими методами учат программы писать?

Procedure H;
begin

while abs(b-a)>e do begin
        a := b - (b - a) * f(b)/(f(b) - f(a));
        b := a - (a - b) * f(a)/(f(a) - f(b));
end;
writeln('From Wikipedia: koren=',b:5:5);

end;

Procedure K;
begin
  b:=a-(f(a)/df(a));
  // поиск корня

  while abs(a-b)>e do
  begin
    a:=b;
    b:=a-(f1(a)/f2(a));
    inc(i);
  end;
writeln('From http://www.programmersforum.ru/showthread.php?t=225940: koren=',a:5:5);

end;

И я не проверял.

программа вообще то написана двумя способами 1 метод хорд 2 метод касательных , и если Вы не знаете условие этих двух методов то уж извините , ошибка в производных а не то что Вы написали

"спасибо"ничего то что Вы написали не работает вообще-то проверять надо

указывает на ошибку в конце программы где readkey;
end.

[Vanta11a]

Ну так исправьте. Если код Ваш - проблем не будет. А если код не Ваш - какого черта Вы предъявляете другим людям за свое желание халявы?

[Stilet]

и если Вы не знаете условие этих двух методов то уж извините , ошибка в производных а не то что Вы написали

"спасибо"ничего то что Вы написали не работает вообще-то проверять надо

Хорошо. Можешь не учитывать мой пост. Не буду мешать.

[now2]

Сообщение от Stilet

Хорошо. Можешь не учитывать мой пост. Не буду мешать.

извините...я учитываю , но не работает ничего почему - то