О.О.П / LR8 / Unit1

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include<math.h>

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sRadioButton"
#pragma link "sCheckBox"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{Memo1->Clear();
}
//---------------------------------------------------------------------------

long double xnminus1(double xn )
{long double xnm,a,y;
a=StrToFloat(Form1->Edit1->Text);
if(xn<=0)
{return xn=((1/2)*(1+a));}
if (xn>0)
{return ((1/2)*(xnminus1(xn-1)+(a/xnminus1(xn-1))));}}

void __fastcall TForm1::Button1Click(TObject *Sender)
{long double a,x,xn,y;
a=StrToFloat(Edit1->Text);
if (CheckBox1->Checked==1)
{y=sqrt(a);
ShowMessage("Рекурсивно"); }
else
y=sqrt(a);
Memo1->Lines->Add(FloatToStr(y));}





//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if (Key>='0' && Key <='9' || Key==VK_RETURN)
return ;
else
Key=0;

}
//---------------------------------------------------------------------------