Question

СРОЧНО!PascalABC! Создайте программу, которая вычерчивает 5 прямоугольников,расположенные внутри друг друга.

Answer 1

Ответ:

Объяснение:

uses GraphABC;

const a=10;

var

i:integer;

begin

for i:=1 to 5 do

Rectangle(50+a*i,50+a*i,300-a*i,200-a*i);

end.

Answer 2

Для создания программы на PascalABC, которая будет рисовать 5 прямоугольников, расположенных внутри друг друга, можно использовать библиотеку GraphABC. Ниже приведен код программы, который реализует данную задачу:

pascalCopy code
uses GraphABC;

procedure DrawNestedRectangles;
var
  Width, Height, Left, Top, i: Integer;
begin
  Width := 600; // Общая ширина окна
  Height := 400; // Общая высота окна

  SetWindowSize(Width, Height); // Установка размеров окна

  // Задаем параметры прямоугольников
  Left := 50;
  Top := 50;

  for i := 1 to 5 do
  begin
    Rectangle(Left, Top, Width - Left, Height - Top); // Рисуем прямоугольник
    Left := Left + 50; // Уменьшаем координаты следующего вложенного прямоугольника
    Top := Top + 50;
    Width := Width - 50 * 2; // Уменьшаем ширину и высоту для следующего вложенного прямоугольника
    Height := Height - 50 * 2;
  end;
end;

begin
  DrawNestedRectangles;
end.

При выполнении данной программы на экране появится окно с 5 прямоугольниками, расположенными внутри друг друга. Первый прямоугольник будет иметь размер 600x400, а каждый следующий прямоугольник будет вложен в предыдущий и иметь на 50 пикселей меньше по каждой стороне.