Question

Задание на фото. Написать программу, которая рисует 3 квадрата.( Pascal abc

Answer 1

                                            PascalABC.NET

Так как фото нету, значит надо просто нарисовать 3 квадрата - сделал 2 варианта.

1)

uses GraphABC;

begin

 for var i := 1 to 3 do begin

   Brush.Color := clrandom;

   rectangle(50*i,50*i,150*i,150*i)

   end;

end.

2)

uses GraphABC;

begin

 var x := 0;

 for var i := 1 to 3 do begin

   brush.Color := clrandom;

   rectangle(50+x,50,150+x,150);

   x +=150;

   end;

end.

Answer 2

Конечно! Вот пример программы на языке Pascal ABC, которая рисует 3 квадрата:

pascalCopy code
program DrawSquares;
uses GraphABC;

procedure DrawSquare(x, y, size: integer);
begin
  Rectangle(x, y, x + size, y + size);
end;

begin
  SetWindowSize(400, 400); // Устанавливаем размер окна
  
  // Рисуем первый квадрат
  DrawSquare(50, 50, 100);
  
  // Рисуем второй квадрат
  DrawSquare(150, 150, 100);
  
  // Рисуем третий квадрат
  DrawSquare(250, 250, 100);
end.

Программа использует графическую библиотеку GraphABC для рисования на экране. Она начинается с определения процедуры DrawSquare, которая принимает координаты верхнего левого угла квадрата (x и y) и его размер (size). Внутри процедуры используется функция Rectangle для рисования квадрата.

Затем программа устанавливает размер окна с помощью SetWindowSize и вызывает DrawSquare три раза, передавая разные параметры для координат и размеров квадратов.

После компиляции и запуска этой программы должны появиться окно с тремя нарисованными квадратами.