|
1 2 3 4 5 6 7 8 9 |
// funkcja zwraca *całkowitą* odleglosc 2 punktow od siebie function PointsDist(P1, P2: TPoint): Integer; begin Result := Round(Sqrt(Sqr(P1.X - P2.X) + Sqr(P1.Y - P2.Y))); end; |
Autor: Kkkas
|
1 2 3 4 5 6 7 8 9 |
// funkcja zwraca *całkowitą* odleglosc 2 punktow od siebie function PointsDist(P1, P2: TPoint): Integer; begin Result := Round(Sqrt(Sqr(P1.X - P2.X) + Sqr(P1.Y - P2.Y))); end; |