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

outtextxy (35,105,str);

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

outtextxy (35,120,str);

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

outtextxy (35,135,str);

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

outtextxy (30,255,str);

readkey;

setcolor (green);

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

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

setcolor (white);

str:='Enter - пiдрахунок прямокутникiв. Esc - вихiд.';

outtextxy (30,255,str);

str:=#27#24#25#26' - перемiщення курсора по матрицi.';

outtextxy (230,55,str);

str:='Space - поставити/зтерти сегмент.';

outtextxy (230,70,str);

setcolor (red);

str:='Умова: прямокутники повиннi бути правильнoi форми,';

outtextxy (150,150,str);

str:='i не повиннi доторкатись один до одного!!!';

outtextxy (160,165,str);

for i:=1 to 8 do for j:=1 to 8 do matr [i,j]:=1;

printmatrix;

xcur:=1;

ycur:=1;

curpos (xcur,ycur,xcur,ycur);

repeat

case readkey of