Question

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

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.