Составте программу изображения поля "в полоску ".Для этого нарисуйте разноцветные...

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.