Page 53 - 6370

end;
procedure TForm2.SpinEdit6Change(Sender:
TObject);
begin

Y3:= SpinEdit6.Value;
if x3>x1 then

X3:=x1+trunc(sqrt(abs(sqr(y1-
y2)+sqr(x2-x1)-sqr(y1-y3))));

if x3<x1 then
X3:=x1-trunc(sqrt(abs(sqr(y1-
y2)+sqr(x2-x1)-sqr(y1-y3))));
if radiobutton2.Checked =true then
SpinEdit5.Value:=x3 ;
end;

9. Запускають підпрограму для того, щоб переконатись у
її дієздатності. Для цього слід надати значення змінним
X1,X2,Y1,Y2 ввівши їх у відповідні об’єкти класу TSpiEdit.
Після внесення цих даних слід здійснити підтвердження,
тобто клацнути по кнопці Button1 (рисунок35).

Рисунок 35 – Прикладна програма доповнена можливістю
внесення координат X3,Y3 точки В 1 із визначеним
значенням кута .

10. Шляхом перебору прокрутки (а не шляхом внесення з
клавіатури) надають значення координати Y3, якщо
55