Page 55 - 6370
P. 55
Рисунок 38 – Внесення на форму додаткових полів
редагування для отримання значень кутів , .
13. На вікно форми додають ще одну кнопку і створюють
заготовку події OnClick. В тіло опрацьовувача цієї події,
користуючись формулою (5) додають код для визначення
кута g і відтак користуючись формулою (1) дописують
код визначення кута a.
procedure TForm3.Button2Click(Sender:
TObject);
begin
if ((y3<y1)and (x3>x1)) then
edit2.Text:=INTTOSTR
(ROUND(abs(arctan((x3-x1)/(y1-
y3)))*180/pi));
if ((y3>y1)and (x3>x1)) then
edit2.Text:=INTTOSTR
(trunc(abs(arctan((y3-y1)/(x3-
x1)))*180/pi)+90);
if ((y3>y1)and (x3<x1)) then
57
