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

var str:string;

exit:boolean;

i,j,maxx,xcur,ycur:integer;

begin

exit:=false;

maxx:=getmaxx;

setfillpattern (full, black);

setcolor (green);

bar (11,11,maxx-21,264);

bar3d (10,250,maxx-20,265,0,topon);

setcolor (11);

str:='Умова задачi:';

outtextxy (200,40,str);

setcolor (white);

str:='На квадратному аркушi клiтчатого паперу розмiром 8х8 клiток намальовано';

outtextxy (35,60,str);

str:='декiлька прямокутникiв, кожен прямокутник складаеться iз клiток. Рiзнi';

outtextxy (35,75,str);

str:='прямокутники не накладаються один до одного i не доторкаються. Дана';

outtextxy (35,90,str);

str:='цiлочисельна квадратна матриця 8-го порядку, де елемент = 0 - якщо вiд-';

outtextxy (35,105,str);

str:='повiдна клiтка належить деякому прямокутнику, i вiдмiнний вiд 0 - якщо';

outtextxy (35,120,str);

str:='елемент не належить жодному прямокутнику.';