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

outtextxy (410,465,'F2-ВЫХОД ИЗ ПРОГРАММЫ');

{------------------------------------------------РИСУЕМ СИСТЕМНЫЙ БЛОК-----}

setfillstyle(1,8);

bar3d(180,100,400,300, 20,TRUE);

LINE (410,280,460,280);

outtextxy (461,280,'СИСТЕМНЫЙ БЛОК');

line(410,270,440,270);

outtextxy (441,270,'СИГНАЛ РАБОТЫ ПРОЦЕССОРА');

gETfILLpattern(oldpattern);

r: =2;

setcolor (blue);

setfillpattern(oldpattern,blue);

circle (410,270,r*2);

floodfill(410,270,blue);

setcolor(green);

setfillpattern(oldpattern,green);

circle (410,270,r*1);

floodfill(410,270,green);

{---------------------------------------------рисуем материнскую плату------}

setcolor(red);

setfillstyle(1,10);

bar (190,160,340,290);

LINE (330, 200,440, 200);

outtextxy (440, 200,'МАТЕРИНСКАЯ ПЛАТА');

{----------------------------рисуем жесткий диск----------------------------}

setfillstyle(1,7);

bar3d(195,165,230,175,3,TRUE);

line (200,170,145,170);

outtextxy (45,166,'ЖЕСТКИЙ ДИСК');