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

begin

setcolor (red);

settextstyle(3,0,1);

outtextxy (240,50,'Приготовьте мне, пожалуйста, на завтра');

outtextxy (240,57,'компьютер, но я не знаю, какой ');

outtextxy (240,64,'конфигурации... ');

setcolor (14);

outtextxy (280,71,'Звонок клиента в компьютерную фирму');

setcolor (13);

for m: =1 to 60 do

ellipse (300,240,180-4*m,0+4*m,100+6*m,30+2*m);

setfillstyle(1,7);

bar (190,150,410,350);

setfillstyle(1,11);

bar (205,160,395,340);

setcolor (0);

setfillpattern(fillpatterntype(n),7);

fillellipse (300,370,40, 20);

setfillstyle(10,10);

bar (110, 200,140,340);

bar (440, 200,470,340);

SETCOLOR (RED);

outtextxy (205,170,'К О М П Ь Ю Т Е Р-ЭТО... ');

outtextxy (230, 190,' ХОТИТЕ В ЭТОМ ');

outtextxy (250,210,'РАЗОБРАТЬСЯ... ');

outtextxy (255,230,'ЖМИТЕ ENTER!!! ');

SETCOLOR (0);

outtextxy (205,260,'ЧТОБЫ ВЫЙТИ ИЗ ПРОГРАММЫ');

outtextxy (270,280,'ЖМИТЕ F2');