Методика підрахунку прямокутників різної форми

setcolor (0);

rectangle (xc,yc,xc+10,yc+10);

xc:=40+x*10;

yc:=40+y*10;

setcolor (10);

rectangle (xc,yc,xc+10,yc+10);

end;

{******************** Печать исходной матрицы к зад. №1 ******************}

procedure printmatrix;

var i,j,x,y:integer;

begin

setcolor (12);

rectangle (49,49,131,131);

for i:=1 to 8 do

begin

for j:=1 to 8 do

begin

x:=41+i*10;

y:=41+j*10;

if matr [i,j]=0 then

setfillpattern (full,white)

else setfillpattern (full,black);

bar (x,y,x+8,y+8);

end;

end;