Question

Напишите программу в Pascal ABC, которая нарисует любую геометрическую фигуру

Answer 1

uses graphABC;     //библиотека для работы с графикой

begin

 setwindowsize(400,400);    //устанавливаем размер окна

 setbrushcolor(clcyan);     //цвет

 circle(180,180,100);     //рисуем фигуру

end.

Answer 2

Для написания программы, которая будет рисовать геометрическую фигуру, можно использовать графическую библиотеку Pascal ABC. В данном примере я покажу, как нарисовать простой многоугольник (например, треугольник) с помощью этой библиотеки.

Для начала убедитесь, что у вас установлена среда Pascal ABC и графическая библиотека. Если нет, то вы можете установить её из официального источника.

Вот пример программы для рисования треугольника:

pascalCopy code
uses
  GraphABC; // Подключаем графическую библиотеку

procedure DrawTriangle(x1, y1, x2, y2, x3, y3: integer);
begin
  Line(x1, y1, x2, y2);
  Line(x2, y2, x3, y3);
  Line(x3, y3, x1, y1);
end;

begin
  // Инициализация графической библиотеки
  SetWindowSize(400, 400);
  SetWindowCaption('Рисование треугольника');
  ClearWindow;

  // Координаты вершин треугольника
  // Можете менять значения, чтобы изменить размер и положение треугольника
  var x1, y1, x2, y2, x3, y3: integer;
  x1 := 200;
  y1 := 100;
  x2 := 100;
  y2 := 300;
  x3 := 300;
  y3 := 300;

  // Рисуем треугольник
  DrawTriangle(x1, y1, x2, y2, x3, y3);

  // Ждем нажатия клавиши перед закрытием окна
  Readln;
end.

Сохраните код в файл с расширением .pas и скомпилируйте его с помощью Pascal ABC. После запуска программы должно появиться окно с нарисованным треугольником. Вы можете изменять значения координат вершин треугольника или добавить другие графические команды для создания других геометрических фигур.