создать приложение для расчета функции
y = sqrt(x) + sqrt(x-1)

Текст файлов .cpp:
//-----------------  proba.cpp   --------------------------------
#include <vcl.h>
#pragma hdrstop

#include "proba.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <math.h>
#include <stdlib.h> 
#include "soob.h" 

TForm1 *Form1;
//--------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//--------------------------------------------------------------------------

void __fastcall TForm1::btnCalcClick(TObject *Sender)
{
float x,y;

 //преобразование строки AnsiStirng в вещественное число
x=StrToFloat(edX->Text);
if (x>=1)
 {  y=sqrt(x)+sqrt(x-1);
    //преобразование вещественного числа в  строку AnsiStirng
  edY->Text=FloatToStr(y);
  }
  else
   {
      Form2->Visible=true;
      edY->Text=" Ошибка  ";
    }

}
//---------------------------------------------------------------------------
//--------------  soob.cpp  -------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "soob.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
 Form2->Visible = false;        
}
//---------------------------------------------------------------------------