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

outtextxy (270,155,'2. НАГЛЯДНОЕ ПРЕДСТОВЛЕНИЕ ПК');

outtextxy (270, 205,'3. ИНФОРАЦИОННЫЙ МАТЕРИАЛ ');

outtextxy (270,255,'4. РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ');

setcolor(red);

outtextxy (290,305,' 5. ВЫХОД');

gETfILLpattern(oldpattern);

setcolor (blue);

setfillpattern(oldpattern,blue);

circle (565,300,60);

floodfill(565,300,blue);

setcolor(green);

setfillpattern(oldpattern,green);

circle (565,300, 20);

floodfill(565,300,green);

SETCOLOR(RED);

settextstyle(4,0,2);

outtextxy (530,266,'ESPERANZA');

outtextxy (510,300,'CD-R');

end;

PROCEDURE COMP;

var

i: integer;

BEGIN

INIT;

setBkcolor(11);

settextstyle(6,0,3);

setcolor (red);

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

outtextxy (30,465,'ENTER-ВОЗВРАТ В ОСНОВНОЕ МЕНЮ');