Курсовая работа: Разработка информационно-справочной системы "Устройство персонального компьютера"

outtextxy(460,340,'БУЛАВИН АЛЕКСАНДР');

readkey;

end;

procedure WorSpece;

begin

setcolor(15);

setfillstyle(1,9);

bar3d(0,0,getmaxX,getmaxY,0,true);

setfillstyle(1,7);

setcolor(0);

bar3d(15,15,getmaxX-15,getmaxY-15,0,true);

setcolor(4);

setfillStyle(1,8);

bar3d(16,16,getmaxX-16,30,0,true);

setcolor(0);

line(17,32,17,getmaxY-17);

line(17,32,getmaxX-17,32);

line(getMaxX-17,32,getmaxX-17,getmaxY-17);

line(17,getmaxY-17,getmaxX-17,getmaxY-17);

setcolor (2);

settextstyle(9,0,15);

bar3D (0,460,210,477,0,FALSE);

outtextxy (40,465,'F2-ВЫХОД');

bar3D (400,460,638,477,0,FALSE);

outtextxy (400,465,'ВВЕРХ-возврат в основное меню');

end;

procedure colo;

var

m: integer;