Напечатать таблицу значений функции на отрезке [a, b] с шагом h. Найти корень функции на этом интервале.

[GalaiAnton]

function F(x:Real):Real;
begin
  F:=3*sin(Sqrt(x))+0.35*x-3.8;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='2';
Edit2.Text:='3';
Edit3.Text:='0,2';
Memo1.Clear;
Memo1.Lines.Add('Результат выполнения: ');
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,h,x,c,y:Extended;
begin
a:=StrToFloat(Edit1.Text);
Memo1.Lines.Add('a='+Edit1.Text);
b:=StrToFloat(Edit2.Text);
Memo1.Lines.Add('b='+Edit2.Text);
h:=StrToFloat(Edit3.Text);
Memo1.Lines.Add('h='+Edit3.Text);
x:=a;
while x<=b do
begin
y:=3*sin(Sqrt(x))+0.35*x-3.8;
Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,6,2) +' y='+FloatToStrF(y,ffFixed,6,2));
x:=x+h;
end;
c:=sqrt(a+b);
if f(a)*f(c)<0 then b:=c else a:=c;
x:=sqrt(a+b);
Memo1.Lines.Add('Ответ: ='+FloatToStrF(x,ffFixed,5,4));
end;
end.

Не первый день пытаюсь разобрать...
Вычисления производит отлично,а вот корень функции на этом интервале не правильный ответ получается...
Получается ответ 2,2882,а должно быть 2,2985...
Подскажите пожалуйста,может я как - то неправильно вычисляю корень функции на интервале или еще что-то...

[Аватар]

А что такое вообще корень функции на интервале?

[GalaiAnton]

Готовая и рабочая программа,с правильным ответом...

function F(x:Real):Real;
begin
  F:=3*sin(Sqrt(x))+0.35*x-3.8;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='2';
Edit2.Text:='3';
Edit3.Text:='0,2';
Memo1.Clear;
Memo1.Lines.Add('Результат выполнения: ');
end;

procedure TForm1.Button1Click(Sender: TObject);
const e=0.0001;
var a,b,h,x,c,y:Extended;
begin
a:=StrToFloat(Edit1.Text);
Memo1.Lines.Add('a='+Edit1.Text);
b:=StrToFloat(Edit2.Text);
Memo1.Lines.Add('b='+Edit2.Text);
h:=StrToFloat(Edit3.Text);
Memo1.Lines.Add('h='+Edit3.Text);
x:=a;
while x<=b do
begin
y:=3*sin(Sqrt(x))+0.35*x-3.8;
Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,6,2) +' y='+FloatToStrF(y,ffFixed,6,2));
x:=x+h;
end;
repeat
  x:=(a+b)/2;
  if f(a)*f(x) < 0 then b:=x 
                   else a:=x;
until abs(b-a) <= E;
Memo1.Lines.Add('Ответ: ='+FloatToStrF(x,ffFixed,5,4));
end;
end.

[саша40]

Сообщение от Аватар

А что такое вообще корень функции на интервале?

точка пересечения с нулем на данном интервале.

[Аватар]

точка пересечения с нулем на данном интервале.

М-да, чет переклинило, сразу корни квадратные в голову полезли

[саша40]

Сообщение от Аватар

М-да, чет переклинило, сразу корни квадратные в голову полезли

у автора переодическая функция. Достаточно на бумаге вывести формулу корней и дальше выбрать корни принадлежащие промежутку. Шаг h должен быть взять 1*10^-n, где n-степень округления(или количество знаков после запятой после округления).
Мозгов же не хватает, взять лист бумаги, карандаш или ручку и решить уравнение сначала на бумаге, а потом перенасить его в программу.