Page 56 - 6370

edit2.Text:=INTTOSTR
(trunc(abs(arctan((x3-x1)/(y3-
y1)))*180/pi)+180) ;

if ((y3<y1)and (x3<x1)) then
edit2.Text:=INTTOSTR (360-
ROUND(abs(arctan((x3-x1)/(y3-
y1)))*180/pi));

if ((x3>x1)and(y3=y1)) then
edit2.Text:='90';
if ((x3<x1)and(y3=y1)) then
edit2.Text:='270';
if ((x3=x1)and(y3>y1)) then
edit2.Text:='180';
if ((x3=x1)and(y3<y1)) then
edit2.Text:='0';
alfa:=strToInt(edit2.text)-
StrToInt(edit1.Text) ;
edit3.Text:=InttoStr(alfa)

end;
14.Запускають програму, щоб переконатись у її
дієздатності (рисунок 39).Для цього вводять координати
X1,X2,Y1,Y2, далі клацають по кнопці Button1 і
отримують значення кута b. Наступним кроком за
допомогою прокрутки вводять значення координати Y3,
якщо активною є радіокнопка поруч, в противному
випадку за допомогою прокрутки вводять значення
координати Х3.Після цього клацають по кнопці Button2 і
отримують значення кутів a і g у відповідних полях
редагування.

58