Програмування Pascal, Детальна інформація

outtextxy (330,60,st);

setcolor (green);

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

setcolor (white);

st:='Натиснiть любу клавiшу.';

outtextxy (30,255,st);

end;

{***************** Основная процедура задания №1 **************}

procedure zad1;

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д-';