Составьте программу, которая рисует план комнаты (несложную) PascalAbc

Предыдущий
вопрос Следующий
вопрос

Пример программы на PascalABC:

Program DrawRoom;
Uses GraphABC;
var
width, height: integer;
begin
width := 800;
height := 600;
// Устанавливаем размер холста
SetWindowSize(width, height);
// Рисуем стены комнаты
Pen.Color := clBlack;
Rectangle(50, 50, 750, 550);
// Рисуем дверь
Pen.Color := clGray;
Brush.Color := clGray;
Rectangle(300, 50, 400, 150);
// Рисуем окно
Pen.Color := clBlue;
Brush.Color := clSkyBlue;
Rectangle(600, 100, 750, 250);
end.

Эта программа создает простой план комнаты с одной дверью и одним окном. Используя функции GraphABC, мы можем легко рисовать геометрические фигуры на холсте.