Т.С.П.П / Махинации с ТСПП / Махинации с ТСПП / ТСПП / 1Л.р / 2 задание / 2 / Unit1

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

#include <vcl.h>
#pragma hdrstop
#include<math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a,S,h,R,r;
a=StrToInt(Edit1->Text);
S=((a*a)*sqrt(5)/4);
h=((a*sqrt(3))/2);
R=((a*sqrt(3))/3);
r=((a*sqrt(3))/6);
Memo1->Lines->Add("Площа=" + FloatToStrF(S,ffFixed,7,3));
Memo1->Lines->Add("высота=" + FloatToStrF(h,ffFixed,7,3));
Memo1->Lines->Add("радиус впыс.кола=" + FloatToStrF(r,ffFixed,7,3));
Memo1->Lines->Add("радиус оппыс.кола=" + FloatToStrF(R,ffFixed,7,3));
}
//---------------------------------------------------------------------------