9142890758

tN[i]= StrToInt (Dane->Cells[0][i]); tX[i]= StrToFloat(Dane->Cells[ 1 ] [i]); tY[i]= StrToFloat(Dane->Cells[2] [i]); )

for (int i=0; i<n-l; i++)

{

// przyrosty

tDX[i]= StrToFloat(Dane->Cells[l][i+l])-StrToFloat(Dane->Cells[l][i]); tDY[i]= StrToFloat(Dane->Cells[2][i+l])-StrToFloat(Dane->Cells[2][i])

d=dl(tDX[i],tDY[i]); // dlugosc azgl=az2(tDX[i], tDY[i]); // azymut w grad tD[i]=d; // dlugosc do tabeli tA[i]=azgl;

degree=azg 1*0.9; // azymut w stopniach i dzies. stopnia azg2=az2(-tDX[i], -tDY[i]); //azymut odwrotny w [grad]

// wypełnienie tabeli na ekranie Dane->Cells[3] [i]=tDX[i];

Dane->Cells[4][i]=tDY[i];

Dane->Cells[5] [i]=d;

Dane->Cells[6] [i]=azg 1;

Dane->Cells[7] [i]=degree;

Dane->Cells[81[il=grad2dg(azgl);

Dane->Cells[9] [i]=grad2min(azg 1);

Dane->Cells[ 101[i]=grad2sek(azg 1);

Dane->Cells[ 11 ][i]=azg2;

// W ostatniej linii wypełnienie pustymi elemantami for (int j=0; j<=l 1; j++)

Dane->Cells[j][n]="";

} // for

)

//-.................................................................

// po utworzeniu formularza

void_fastcall TForml::FormCreate(TObject *Sender)

(

int const NK=12;

Dane->ColCount=NK;

Dane->RowCount=2;

n=2;

m=12;

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

// wypełnienie danymi tabeli ekranowej

void_fastcall TForml::WypelnijClick(TObject *Sender) for (int i=0; i<=n; i++)

f

for (int j=0; j<=2; j++) Dane->Cells[j][i]=0;

}

)

liii Funkcje - definicje

// obliczenie azymutu z atan2(dy,dx) double az2(double dx, double dy)