И-12б(8) / 1 / Unit1

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

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

#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)
{
double a = StrToFloat(Edit1->Text);
double v = M_PI*a*a*a/3;
double s = M_PI*a*a + M_PI*a*a;
double kr = M_PI*a*a + 2*a;
Edit2->Text = FloatToStr(v);
Edit3->Text = FloatToStr(s);
Edit4->Text = FloatToStr(kr);


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