6. В массивах X и Y хранятся координаты точек. Постройте многоугольник, заданный этими координатами. Запросите у пользователя номера двух точек и постройте диагональ многоугольника, соединяющую эти точки.

Нарисуем многоугольник с помощью процедуры LineTo(). Затем запросим у пользователя номера двух точек и нарисуем линию по координатам с указанными номерами.

uses graphABC;
var p1, p2: integer;
const X: array[1..5] of integer = (40,180,180,120,80);
      Y: array[1..5] of integer = (120,120,40,60,40);
begin
  SetWindowSize(600, 450);
  SetPenColor(clGreen); //Цвет линий
  SetPenWidth(1); //Толщина линий
  MoveTo(X[1], Y[1]);
  for var i := 1 to 5 do
    LineTo(X[i], Y[i]);
  LineTo(X[1], Y[1]);
  writeln('Укажите номера двух точек:');
  readln(p1);
  readln(p2);
  LineTo(X[p1], Y[p1]);
  LineTo(X[p2], Y[p2]);
end.
Другие задания