Page 72 - 6370

procedure figure_point(Sender:TObject;
a,b,n: integer; x: array of integer;

y: array of integer);
var i:integer;

begin
with (Sender as TImage).Canvas do

begin
moveto(a,b);
for i := 0 to n do

lineto(x[i],y[i]);
lineto(a,b);

end;
end;

15. Процедуру Button4Click переписують, так щоб була
застосована нова сигнатура , тобто вказана кількість точок
– вершин багатокутника n. Згідно з вище показаним кодом
число n – це загальна кількість вершин мінус перша точка
з координатами a,b і мінус перший, тобто нульовий член
масиву.

procedure TForm3.Button4Click(Sender:
TObject);

const
L: array [0..3] of integer=(171,87,45,78)
;

// координати Х чотирьох наступних вершин
t: array [0..3] of integer=(24,167,34,90)
;
// координати Y чотирьох наступних вершин
74