Напишите программу решения уравнений методом бисекции с наперед заданной точностью / PascalABC.NET

[now2]

задание
I. Напишите программу решения уравнений методом
бисекции с наперед заданной точностью.
II. Используя метод бисекции найдите с наперед заданной
точностью E одни из корней уравнения.
функция 5. tg 0,5x + 0,1 = x^2, E = 0,0001.

решение:

program b1;
uses crt;
var a,b,c,e,d,h:real;
label 1;
function F(x:real):real;
begin
F:=(sin(d*x+h)/cos(d*x+h))/sqr(x);
end;
begin
writeln('d and h');
readln(d,h);
writeln('a and b');
readln(a,b);
writeln('e');
readln(e);
1:if F(a)=0 then writeln('koren=', a) else if F(b)=0 then writeln('koren=', b) else
if F(a)*F(b)<0 then begin
c:=(a+b)/2; if F(c)=0 then writeln('koren =', c) else
if (abs(a-b)<2*e) or (abs(a-c)<e) then writeln('koren =', c) else
if F(a)*F(c)<0 then begin b:=c; goto 1; end else  if F(b)*F(c)<0 then begin
a:=c; goto 1; end; end;
readkey;
end.

ПРОВЕРЬТЕ ПОЖАЛУЙСТА ПОЧЕМУ ТО КОГДА ДАННЫЕ ВВОДИШЬ НИЧЕГО НЕ ВЫВОДИТ , КОРНИ НЕ ВЫВОДИТ. и еще надо построить график по функции , как его сделать в матлабе. помогите пожалуйста!!!!!!!!

[Vanta11a]

Все программа выводит. Может пределы задаете не те, и она тупо циклится? Какие исходные данные вбиваете?

[now2]

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

Все программа выводит. Может пределы задаете не те, и она тупо циклится? Какие исходные данные вбиваете?

вбиваю: 0.5 и 0.1 это d и h
и ввожу точность = 0.0001
а вот интервал(a ,b) не знаю какой брать , его надо как то по графику определить а я не знаю как(((((

[Vanta11a]

Постройте этот график в excel`е да посмотрите, где он ось Х пересекает. Вот +/- сколько-то и вводите.

[now2]

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

Постройте этот график в excel`е да посмотрите, где он ось Х пересекает. Вот +/- сколько-то и вводите.

как в exele построить график функции
такой функции

вот график получился

какие значения брать когда обе пересекают

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

Постройте этот график в excel`е да посмотрите, где он ось Х пересекает. Вот +/- сколько-то и вводите.

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

[Vanta11a]

10 и 1
0 и 10
0.01

Вроде так.

[now2]

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

10 и 1
0 и 10
0.01

Вроде так.

спасибо все получилось)