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

LINE (400,140,420,125);

LINE (400,160,420,145);

line(405,145,415,138);

LINE (410,140,460,140);

circle (410,148,2);

setcolor (red);

outtextxy (461,140,'CD-ROM');

{-------------------------------------РИСУЕМ флопик-------------------------}

line (415, 195,460, 195);

outtextxy (461, 190,'ФЛОППИ-ДИСК');

line (405, 200,415, 193);

line (405,210,415, 203);

line (405, 200,405,210);

line (415, 193,415, 203);

setlinestyle (1,2,2);

line (407, 205,413, 201);

readkey;

end;

PROCEDURE TITL;

VAR

I,k,j: integer;

BEGIN

INIT;

CLEARDEVICE;

i: =60;

{---------------------------рисуем мышь--------------------------------}

setfillstyle (1,4);

fillellipse (320,240,80,140);

setfillstyle (1,1);