Page 60 - 6370

if ((yc>ya)and (xc>xa)) then
beta:=trunc(abs(arctan((yc-ya)/(xc-
xa)))*180/pi)+90;
if ((yc>ya)and (xc<xa)) then
beta:=trunc(abs(arctan((xc-xa)/(yc-
ya)))*180/pi)+180 ;
if ((yc<ya)and (xc<xa)) then
beta:=360-trunc(abs(arctan((xc-xa)/(yc-
ya)))*180/pi);
// Додаткові умови для уникнення ділення на число 0
if ((xc>xa)and(yc=ya)) then beta:=90;
if ((xc<xa)and(yc=ya)) then beta:=270;

if ((xc=xa)and(yc>ya)) then beta:=180;
if ((xc=xa)and(yc<ya)) then beta:=0;

// Можна вивести значення

SpinEdit11.Value:=beta;
// Визначення довжини відрізка АС згідно з формулою (16)
dovgyna_ac :=trunc(sqrt(sqr(xc-
xa)+sqr(yc-ya)));

// Можна вивести значення |АС|
SpinEdit12.Value:=dovgyna_ac;

// Визначення величини кута для точки С 1 за
формулою (15)
gama:=alfa+beta;

// Можна вивести значення кута точки С 1
SpinEdit13.Value:= gama;
// Визначення величини координат точки С 1 за формулами
(16), (17) і (18)

If ( (yc1> ya) and (xa<xc1)) then
62