9142890756

void_fastcall FormCreate(TObject *Sender);

void_fastcall WypelnijClick(TObject *Sender);

// sekcja private - deklaracje użytkownika

private: // User declarations

int m, n;

int tN[NMAX];

double tX[NMAX], tY[NMAX], tDX[NMAX], tDY[NMAX], tD[NMAX], tA[NMAX]; // Sekcja public

public:    // User declarations

_fastcall TForml(TComponent* Owner);

// Definicja funkcji dl() - obliczenie długości z przyrostów dx, dy double dl(double dx, double dy)

t

return sqrt(dx*dx+dy*dy);

}

};

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

extern PACKAGE TForml *Forml;

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

#endif plik P_AzDCBl.cpp

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

//Projekt - plik P_AzDCB 1 .cpp

// azymut i długość ze współrzędnych - wersja C++ Builder // Program główny

#include <vcl.h>

#pragma hdrstop

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

USEFORM("azdlCBl.cpp", Forml);

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

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(_classid(TForm 1), &Form 1);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

catch (...)

{

try

throw Exception("");

}

catch (Exception &exception)

{

Application->ShowException(&exception);

return 0;

//-