Page 49 - 6370

edit1.Text:=IntToStr
(round(abs(arctan((y2-y1)/(x2-
x1)))*180/pi)+90);
if ((y2>y1) and (x2<x1)) then

// нижня ліва ілюстрація на рисунку 32
edit1.Text:=IntToStr
(round(abs(arctan((x2-x1)/(y2-
y1)))*180/pi)+180) ;
if ((y2<y1) and (x2<x1)) then

// нижня права ілюстрація на рисунку 32
edit1.Text:= IntToStr (360 -round
(abs(arctan((x2-x1)/(y2-y1)))*180/pi));
// оскільки ділення на 0 заборонене, то запропоновані
додаткові умови

if ((x2>x1)and(y2=y1)) then edit1.Text:=’
90’;

if ((x2<x1)and(y2=y1)) then
edit1.Text:=’270’;

if ((x2=x1)and(y2>y1)) then
edit1.Text:=’180’;

if ((x2=x1)and(y2<y1)) then
edit1.Text:=’0’; end;

51