Page 52 - 6370

end;
7. Запускають прикладну програму (рисунок 34) і
переконуються у дієвості коду опрацювання події OnPaint
.

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

8. Користуючись виразами (9),(10),(11),(12)
встановлюють залежність координати X3 від
координати Y3 і навпаки у вигляді коду подій:

procedure TForm3.SpinEdit5Change(Sender:
TObject);
begin

X3:=SpinEdit5.Value; // X3-це координата Х
переміщеної точки В – тобто Xb 1
if y3>y1 then // y3 - це координата Y
переміщеної точки В – тобто Yb 1
Y3:=y1+round(sqrt(abs(sqr(y1-
y2)+sqr(x2-x1)-sqr(x3-x1)))) ;

if y3<y1 then
Y3:=y1-round(sqrt(abs(sqr(y1-
y2)+sqr(x2-x1)-sqr(x3-x1)))) ;
if radiobutton1.Checked =true then
SpinEdit6.Value:=y3;

54