Page 48 - 6370

Пробна програма визначеня кутів , (у градусах) і
координат точки В 1.

1.Створюють для проби нову форму, на якій розміщають
чотири об’єкти класу TSpinEdit, кнопку Button1 і поле
редагування класу TEdit.

2.Створюють процедуру Button1Click, з допомогою якої
за координатами x1,y1 точки A і координатами x2,y2
точки B визначатимуть значення кута у градусах.
Результат обчислення виводитиметься у поле Edit1.

procedure TForm3.Button1Click(Sender:
TObject);
VAR x1,y1,x2,y2: integer;
begin

x1:=SpinEdit1.Value;
x2:=SpinEdit2.Value;

y1:=SpinEdit3.Value;
y2:=SpinEdit4.Value;

if ((y2<y1) and (x2>x1)) then
// верхня ліва ілюстрація на рисунку 32

Edit1.Text:=IntToStr (round
(abs(arctan((x2-x1)/(y1-y2)))*180/pi)); //
з формули (4)
if ((y2>y1) and (x2>x1)) then

// верхня права ілюстрація на рисунку 32

50