Page 59 - 6370

2. Розміщають на вікні форми додаткову кнопку TButton і
створюють процедуру опрацювання події клацання по ній
(рисунок 41):

Рисунок 41 – Дизайн застосунка для встановлення
координат точок А,В,С, для визначення кутів a b,g, і

координат точки В 1, для визначення кутів і
координат для точкиі С 1, а також довжини відрізка АС.

procedure TForm3.Button3Click(Sender:
TObject);
VAR xc1,yc1,xc,yc:integer;
dovgyna_ac,beta,gama:integer;
begin
// Надання значень координат точки С.
xc:=SpinEdit7.Value;
yc:=SpinEdit8.Value;
// координати точки А у розділі глобальних оголошень – це
y1,x1.
ya:=y1; xa:=x1;

// Визначення величини кута згідно з формулами (13 ) і
(14)
if ((yc<ya)and (xc>xa)) then
beta:=trunc(abs(arctan((xc-xa)/(ya-
yc)))*180/pi);
61