Question

Написать программу в ПАСКАЛЕ которая закрасит экран графического редактора прямоугольниками заданного размера

Answer 1

program PaintRectangles;

uses graph;

var

 gd, gm, x, y, size, rows, cols, i, j: integer;

begin

 gd := Detect;

 InitGraph(gd, gm, '');

 size := 50; // Размер прямоугольника

 rows := GetMaxX div size; // Количество строк

 cols := GetMaxY div size; // Количество столбцов

 for i := 0 to rows do

 begin

   for j := 0 to cols do

   begin

     x := i * size;

     y := j * size;

     Rectangle(x, y, x + size, y + size);

   end;

 end;

 Readln;

 CloseGraph;

end.