Question

Составить программу с среде программирования PascalABC, чтобы на экране был квадрат, а в его углах по окружности.

Answer 1

Uses graphabc;
begin
rectangle(100,100,400,400);
circle(100,100,50);
circle(400,100,50);
circle(100,400,50);
circle(400,400,50);
end.

Answer 2

Для того, чтобы составить программу в среде программирования PascalABC.NET, которая рисует на экране квадрат и окружности в его углах, вам нужно знать основы работы с графическими примитивами в этой среде. Вы можете ознакомиться с ними в учебном пособии [Основы программирования в среде PascalABC.NET](https://elar.urfu.ru/bitstream/10995/28702/1/978-5-7996-1260-3_2014.pdf) или в интерактивном курсе [PascalABC.NET: современный код](https://stepik.org/course/91781/promo). В качестве примера, я попробую написать такую программу и показать вам результат.

Программа может выглядеть так:

uses GraphABC;

const
  a = 200; // сторона квадрата
  r = 50; // радиус окружности
  x0 = 300; // координата x центра квадрата
  y0 = 200; // координата y центра квадрата

begin
  // рисуем квадрат
  Rectangle(x0 - a div 2, y0 - a div 2, x0 + a div 2, y0 + a div 2);
  // рисуем окружности в углах квадрата
  Circle(x0 - a div 2, y0 - a div 2, r);
  Circle(x0 + a div 2, y0 - a div 2, r);
  Circle(x0 - a div 2, y0 + a div 2, r);
  Circle(x0 + a div 2, y0 + a div 2, r);
end.

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