Void __fastcall tForm1::pbMainPaint(tObject *Sender)

{

PBMain->Canvas->Ellipse((centr.x-centr.r),(centr.y-centr.r),

(centr.x+centr.r),(centr.y+centr.r));

for (int i=0;i<3;i++)

{

PBMain->Canvas->Pen->Color=clGreen;

PBMain->Canvas->Ellipse((int)xn1[0][i]-2,(int)xn1[1][i]-2,(int)xn1[0][i]+2,(int)xn1[1][i]+2);

}

for (int i=0;i<mn2;i++)

{

PBMain->Canvas->Pen->Color=clRed;

PBMain->Canvas->Ellipse((int)xn2[0][i]-2,(int)xn2[1][i]-2,(int)xn2[0][i]+2,(int)xn2[1][i]+2);

};

}

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

Void __fastcall tForm1::BtWorkClick(tObject *Sender)

{

fFind_X_Y_R();

Label1->Caption="радиус= "+FloatToStr(centr.r)+" x0= "+FloatToStr(centr.x)+" y0= "+FloatToStr(centr.y);

Label3->Color=clMaroon;

Label3->Font->Name="Book Antiqua";

if (fCheckOccurence()==true)

{Label3->Caption="Task complete";}

else {Label3->Caption="Task don't complete";}

PBMain->Visible=true;

Label1->Visible=true;

Label3->Visible=true;

Label2->Visible=true;

Button1->Visible=true;

PBMain->Repaint();

}

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

Void __fastcall tForm1::pbMainMouseDown(tObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

Label2->Caption="x= "+IntToStr(X)+"y= "+IntToStr(Y);

}

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

Void __fastcall tForm1::BtAutoVClick(tObject *Sender)

{

randomize;

xn1[0][0]=random(140)+181;

xn1[1][0]=random(82)+80;

xn1[0][1]=random(148)+500;

xn1[1][1]=random(109)+95;

xn1[0][2]=random(134)+291;

xn1[1][2]=random(61)+260;

for (int i=0;i<mn2;i++)

{

xn2[0][i]=random(500)+100;

xn2[1][i]=random(300)+100;

}

for (int i=0;i<3;i++)

{

SGN1->Cells[0][i+1]=IntToStr(xn1[0][i]);

SGN1->Cells[1][i+1]=IntToStr(xn1[1][i]);

}

for (int i=0;i<mn2;i++)

{

SGN2->Cells[0][i+1]=IntToStr(xn2[0][i]);

SGN2->Cells[1][i+1]=IntToStr(xn2[1][i]);

}

BtWork->Visible=true;

}

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

Void __fastcall tForm1::Button1Click(tObject *Sender)

{

BtWork->Visible=false;

PBMain->Visible=false;

Label1->Visible=false;

Label3->Visible=false;

Label2->Visible=false;

GBkt->Enabled=true;

GBKoor->Visible=false;

Button1->Visible=false;

}

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