Question

Составте программу изображения поля "в полоску ".Для этого нарисуйте разноцветные прямоугольники толщиной 20 пикселей, расположенные друг под другом. СРОЧНО!!!!! 10БАЛЛОВ

Answer 1

uses graphABC;

var

 x1, y1, x2, y2: integer;

begin

 x1 := 1;

 y1 := 1;

 x2 := 800;

 y2 := 20;

 Window.SetSize(800, 600);

 for var i := 1 to 30 do

 begin

   SetBrushColor(clRandom);

   FillRect(x1, y1, x2, y2);  

   y1 := y1 + 20;

   y2 := y2 + 20;

 end;

end.