//--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" #include //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- struct punkt { float X; float Y; }; //--------------------------------------------------------------------------- float dystans(punkt a, punkt b) { float dx = a.X - b.X; float dy = a.Y - b.Y; return sqrt(dx*dx + dy*dy); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { punkt A; A.X = 1.0; A.Y = 1.0; punkt B; B.X = 2.0; B.Y = 2.0; float q = dystans(A, B); Label1->Caption = FloatToStrF(q, ffNumber, 12, 2); } //---------------------------------------------------------------------------