Question

Программа в Pascal ABC.а) треугольник с вершинами (100. 100), (150. 100). (30,170); б) прямоугольник с вершинами (80. 30). (170. 30). (170.150). (80.150): в) пятиугольник с вершинами (100. 100). (150. 100). (170. 120). (150. 140), (100. 140), (80. 120): г) шестиугольник с вершинами (120. 100). (140.120). (140,140),(120.160), (100.140), (100.120):

Answer 1

В в чуть больше точек, чем необходимо для построения пятиугольника
Решение в приложении, я сначала сделал двумерный массив, но его заполнять оказалось менее удобно, чем одномерный, посему исправил программу... Алгоритм везде универсальный, так что, если нужны одинаковые программы, просто возьмите тот, который больше понравится, и измените значения массива:)

Answer 2

Для решения данной задачи нарисования геометрических фигур в Pascal ABC, вы можете использовать следующий код:

program DrawFigures;
uses Graph;

var
  gd, gm: Integer;

procedure DrawTriangle;
begin
  Line(100, 100, 150, 100); // Соединяем точки
  Line(150, 100, 130, 170);
  Line(130, 170, 100, 100);
end;

procedure DrawRectangle;
begin
  Line(80, 30, 170, 30);
  Line(170, 30, 170, 150);
  Line(170, 150, 80, 150);
  Line(80, 150, 80, 30);
end;

procedure DrawPentagon;
begin
  Line(100, 100, 150, 100);
  Line(150, 100, 170, 120);
  Line(170, 120, 150, 140);
  Line(150, 140, 100, 140);
  Line(100, 140, 80, 120);
  Line(80, 120, 100, 100);
end;

procedure DrawHexagon;
begin
  Line(120, 100, 140, 120);
  Line(140, 120, 140, 140);
  Line(140, 140, 120, 160);
  Line(120, 160, 100, 140);
  Line(100, 140, 100, 120);
  Line(100, 120, 120, 100);
end;

begin
  gd := Detect;
  InitGraph(gd, gm, '');

// Отрисовка фигур
  DrawTriangle;
  DrawRectangle;
  DrawPentagon;
  DrawHexagon;

ReadLn;
  CloseGraph;
end.

Программа использует модуль Graph для отображения фигур на экране. Переменные `gd` и `gm` используются для инициализации графического режима. Каждая фигура представлена отдельной процедурой, которая использует функцию `Line` для рисования отрезков между точками.

После отрисовки всех фигур, программа ожидает ввода с клавиатуры и закрывает графический режим.

Вы можете скопировать и вставить этот код в среду разработки Pascal ABC и запустить программу для отображения треугольника, прямоугольника, пятиугольника и шестиугольника с заданными вершинами.