метод дихотомии

#include <vcl.h>
#include <math.h>
#pragma hdrstop
#include "sourcecode.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
 
double f(double x)
{
    return pow(x,2)-4*x-10;
}
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
double a,b,c,eps;
a = Edit1->Text.ToDouble();
b = Edit2->Text.ToDouble();
eps = Edit3->Text.ToDouble();
 
while (fabs(a-b)>=eps){
    c=(a+b)/2;
    if(f(b) * f(c) < 0)
    a = c;
    else
    b = c;
}
Edit4->Text = (a + b) / 2;
}

Edit4->Text = FloatToStr((a + b) / 2);

double f(double x0)
{
    return 0.6*pow(1.5,x0)-2.25*x0;
}
    double xp=NRxp->Text.ToDouble();
    double xk=NRxk->Text.ToDouble();
    double E=NRe->Text.ToDouble();
    y0 = f(xp);
    y = y0;
    while(fabs(y) > E)
    {
        x = (xp + xk) / 2;
        y = f(x);
        if(y * y0 > 0)
        {
            xp = x;
        }
        else
        {
            xk = x;
        }
    }
    Memo1->Lines->Add(x);