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

setBkcolor(12);

setcolor (2);

setfillstyle(1,14);

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

outtextxy (40,465,'ENTER-ВЫБРАТЬ');

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

outtextxy (240,465,'ВВЕРХ-ДВИЖЕНИЕ ВВЕРХ');

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

outtextxy (460,465,'ВНИЗ-ДВИЖЕНИЕ ВНИЗ');

SETLINESTYLE(SOLIDLN,0,3); {risuet liniu}

setcolor(12);

setfillstyle(9,9); {wablon zapolnenij i cvet}

bar3d(220, i,500, i+40,0,false); {risuem paralelepiped 1,2,3,4-koordinati; 0-glubina,fals-otobragenie grani}

setcolor(15); {cvet wrifta}

settextstyle(6,0,3); {vivod texsta; 4-kod wrifta; 0-kod napravlenij; 3-kod razmera}

outtextxy (260,50, '1. ЖЕСТКИЙ ДИСК');

outtextxy (260,90,'2. МАТЕРИНСКАЯ ПЛАТА');

outtextxy (260,140,'3. ПРОЦЕССОР');

outtextxy (260, 190,'4. ВИДЕОКАРТА');

outtextxy (260,240,'5. ЗВУКОВАЯ КАРТА');

outtextxy (260,290,'6. БЛОК ПИТАНИЯ');

outtextxy (260,340,'7. СЛОТЫ ПАМЯТИ');

outtextxy (260,390,'8. CD-ROM');

outtextxy (265,440,'9. ВЫХОД');

end;

BEGIN

INIT;

k: =35;

proff(35);