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

SETCOLOR(6);

setfillstyle(1,6);

for i: =1 to 30 do

circle (280,220,25-i);

line (280,220,440,220);

outtextxy (440,220,'ПРОЦЕССОР');

{-------------------------------------------РИСУЕМ ВИДЕОКАРТУ---------------}

setfillstyle(10,6);

BAR (180, 200,220,215);

line (185, 205,122, 205);

outtextxy (40, 203,'ВИДЕОКАРТА');

{-------------------------------------------РИСУЕМ ЗВУКОВУЮ КАРТУ------------}

setfillstyle(7,7);

BAR (180,240,215,250);

LINE (190,250,155,250);

outtextxy (40,249,'ЗВУКОВАЯ КАРТА');

{------------------------------------------РИСУЕМ БЛОК ПИТАНИЯ---------------}

setfillstyle(10,8);

BAR (185,105,245,140);

outtextxy (187,120,'3 0 0 W');

LINE (185,110,140,110);

outtextxy (40,106,'БЛОК ПИТАНИЯ');

{----------------------------------------РИСУЕМ СЛОТЫ ПАМЯТИ-----------------}

setfillstyle(2,2);

BAR (260,260,270,280);

BAR (280,260,290,280);

LINE (265,270,140,270);

LINE (285,277,140,270);

outtextxy (40,267,'CЛОТЫ ПАМЯТИ');