2015-12-28 14:25:15 +03:00
|
|
|
// Вложенные циклы for. Сетка из квадртов
|
2015-05-14 22:35:07 +03:00
|
|
|
uses GraphABC;
|
|
|
|
|
|
|
|
|
|
const
|
|
|
|
|
sz = 35;
|
|
|
|
|
zz = 5;
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
var h := sz+zz;
|
|
|
|
|
for var nx:=0 to Window.Width div h do
|
|
|
|
|
for var ny:=0 to Window.Height div h do
|
|
|
|
|
begin
|
|
|
|
|
Brush.Color := clRandom;
|
|
|
|
|
Rectangle(zz+nx*h,zz+ny*h,zz+nx*h+sz,zz+ny*h+sz);
|
|
|
|
|
end;
|
|
|
|
|
end.
|
