Page 65 - 6370
P. 65
X – масив координат х усіх точок фігури;
Y - масив координат y усіх точок фігури;
3. Описують тіло процедури у розділі implementation .
unit Unit_N;
interface
uses ExtCtrls;
procedure figure_point (Sender:TObject;
a,b: integer; x:array of integer; y:array
of integer);
implementation
procedure figure_point (Sender: TObject;
a,b:integer;x: array of integer;y: array
of integer);
begin
with (Sender as TImage).Canvas do
begin
moveto(a,b); // перша точка трикутника
lineto(x[0],y[0]); // перша точка масиву
(друга точка трикутника)
lineto(x[1],y[1]); // друга точка масиву
(третя точка трикутника)
lineto(x[a],y[b]); //повернення у першу точку
масиву (перша точка трикутника)
end;
end;
67
