16 lines
338 B
ObjectPascal
16 lines
338 B
ObjectPascal
// Вложенные циклы for. Сетка из квадртов
|
|
uses GraphABC;
|
|
|
|
const
|
|
sz = 35;
|
|
zz = 5;
|
|
|
|
begin
|
|
var h := sz+zz;
|
|
for var nx:=0 to Window.Width div h - 1 do
|
|
for var ny:=0 to Window.Height div h - 1 do
|
|
begin
|
|
Brush.Color := clRandom;
|
|
Rectangle(zz+nx*h,zz+ny*h,zz+nx*h+sz,zz+ny*h+sz);
|
|
end;
|
|
end. |