левого верхнего угла квадрата
{ Вычерчивает узор из квадратов
Uses Graph;
var
grDriver:integer;
grMode:integer;
grPath:string;
ErrCode:integer;
x,y: integer; { коорд. левого верхнего угла квадрата }
d: integer; { длина с ;тороны квадрата }
n: integer; { кол-во квадратов в ряду }
1: integer; { расстояние между квадратами }
i,j: integer; ( счетчики циклов }
begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:='e:\tp\bgi';
InitGraph (grDriver, grMode grPath);
ErrCode:=GraphResult
if ErrCode <> grOK then begin
writeln ('Ошибка инициализации графического режима.');
writeln ('Для завершения работы нажмите <Enter>');
readln;
Halt (1); end; y:=100; d:=30;
for i:=l to 5 do begin
if ((i mod 2) = 1)
then begin { нечетный ряд }
n:=5; { пять квадратов в ряду } х:=100; end
else begin { четный ряд } п:=4;
x:=100+Round(d/2+l/2); end;
for j : =1 to n do begin
Rectangle(x,y,x+d,y+d); x:=x+d+l; end;
y:=y+Round(d/2+l/2) ; end; readln; end.
