48569 (Разработка информационно-справочной системы "Устройство персонального компьютера"), страница 4

2016-07-30СтудИзба

Описание файла

Документ из архива "Разработка информационно-справочной системы "Устройство персонального компьютера"", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48569"

Текст 4 страницы из документа "48569"

outtextxy (230, i+80, ' КУРСОВАЯ РАБОТА');

delay (200);

outtextxy (170,210,' ПО ДИСЦИПЛИНЕ: "АЛГОРИТМИЧЕСКИЕ ЯЗЫКИ И ПРОГРАММИРОВАНИЕ"');

delay (200);

outtextxy (120,260,'ТЕМА: "РАЗРОБОТКА ИНФОРМАЦИОННО-СПРАВОЧНОЙ СИСТЕМЫ"');

delay (200);

outtextxy (160,280,'"УСТРОЙСТВО ПЕРСОНАЛЬНОГО КОМПЬЮТЕРА"');

delay (200);

outtextxy (480,300,'ВЫПОЛНИЛ: ');

delay (200);

outtextxy (460,320,'СТ. ГР. СУА-05: ');

delay (200);

outtextxy(460,340,'БУЛАВИН АЛЕКСАНДР');

readkey;

end;

procedure WorSpece;

begin

setcolor(15);

setfillstyle(1,9);

bar3d(0,0,getmaxX,getmaxY,0,true);

setfillstyle(1,7);

setcolor(0);

bar3d(15,15,getmaxX-15,getmaxY-15,0,true);

setcolor(4);

setfillStyle(1,8);

bar3d(16,16,getmaxX-16,30,0,true);

setcolor(0);

line(17,32,17,getmaxY-17);

line(17,32,getmaxX-17,32);

line(getMaxX-17,32,getmaxX-17,getmaxY-17);

line(17,getmaxY-17,getmaxX-17,getmaxY-17);

setcolor (2);

settextstyle(9,0,15);

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

outtextxy (40,465,'F2-ВЫХОД');

bar3D (400,460,638,477,0,FALSE);

outtextxy (400,465,'ВВЕРХ-возврат в основное меню');

end;

procedure colo;

var

m: integer;

n: fillpatterntype;

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');

readkey;

end;

procedure read(name: string);

var fname: text;

s: string;

y: Integer;

pos: longint;

begin

assign(fname,name);

reset(fname);

while not eof(fname) do

begin

y: =30; setcolor(0);

for pos: =1 to 40 do

begin

y: =y+10;

readln(fname,s);

outtextXY(30,y,s);

end;

com: =readkey;

readkey;

if com=#60 then break

else mainmenu(90);

end;

end;

Procedure fajl;

PROCEDURE proff(i: integer);

var

k: integer;

begin

CLEARDEVICE; {O4ISTKA EKRANA}

setBkcolor(12);

setcolor (2);

setfillstyle(1,14);

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

outtextxy (40,465,'ENTER-ВЫБРАТЬ');

bar3D (210,460,400,477,0,FALSE);

outtextxy (240,465,'ВВЕРХ-ДВИЖЕНИЕ ВВЕРХ');

bar3D (420,460,638,477,0,FALSE);

outtextxy (460,465,'ВНИЗ-ДВИЖЕНИЕ ВНИЗ');

SETLINESTYLE(SOLIDLN,0,3); {risuet liniu}

setcolor(12);

setfillstyle(9,9); {wablon zapolnenij i cvet}

bar3d(220, i,500, i+40,0,false); {risuem paralelepiped 1,2,3,4-koordinati; 0-glubina,fals-otobragenie grani}

setcolor(15); {cvet wrifta}

settextstyle(6,0,3); {vivod texsta; 4-kod wrifta; 0-kod napravlenij; 3-kod razmera}

outtextxy (260,50, '1. ЖЕСТКИЙ ДИСК');

outtextxy (260,90,'2. МАТЕРИНСКАЯ ПЛАТА');

outtextxy (260,140,'3. ПРОЦЕССОР');

outtextxy (260, 190,'4. ВИДЕОКАРТА');

outtextxy (260,240,'5. ЗВУКОВАЯ КАРТА');

outtextxy (260,290,'6. БЛОК ПИТАНИЯ');

outtextxy (260,340,'7. СЛОТЫ ПАМЯТИ');

outtextxy (260,390,'8. CD-ROM');

outtextxy (265,440,'9. ВЫХОД');

end;

BEGIN

INIT;

k: =35;

proff(35);

repeat

repeat

ch: =readkey;

until (ch=#13) or (ch=#80) or (ch=#72) or (ch=#60);

begin

if ch=#60 then

begin

CLOSEGRAPH;

break; {ostanovka proceduru}

end;

if (ch=#80) and (k>=35) and (k<435) then

begin

k: =k+50;

proff(k);

end;

if (ch=#72) and (k>35) and (k<=435) then

begin

k: =k-50;

proff(k);

end;

if ch=#13 then

begin

if k=435 then

begin

CLOSEGRAPH;

break;

end;

if k=35 then

begin

CLRSCR;

WorSpece;

read('c: \infa\GEST. txt');

end;

if k=85 then

begin

CLRSCR;

WorSpece;

read('c: \infa\mat. txt');

end;

if k=135 then

begin

CLRSCR;

WorSpece;

read('c: \infa\proc. txt');

end;

if k=185 then

begin

CLRSCR;

WorSpece;

read('c: \infa\video. txt');

end;

if k=235 then

begin

CLRSCR;

WorSpece;

read('c: \infa\zvuk. txt');

end;

if k=285 then

begin

CLRSCR;

WorSpece;

read('c: \infa\blok. txt');

end;

if k=335 then

begin

CLRSCR;

WorSpece;

read('c: \infa\slot. txt');

end;

if k=385 then

begin

CLRSCR;

WorSpece;

read('c: \infa\cd. txt');

end;

end

else

proff (k);

end;

until ch=#60;

end;

BEGIN

INIT;

colo;

k: =90;

MAINMENU(90);

repeat

repeat

ch: =readkey;

until (ch=#13) or (ch=#80) or (ch=#72) or (ch=#60);

begin

if ch=#60 then

begin

CLOSEGRAPH;

break; {ostanovka proceduru}

end;

if (ch=#80) and (k>=90) and (k<290) then

begin

k: =k+50;

MAINMENU(k);

end;

if (ch=#72) and (k>90) and (k<=290) then

begin

k: =k-50;

MAINMENU(k);

end;

if ch=#13 then

begin

if k=290 then

begin

CLOSEGRAPH;

break;

end;

if k=90 then

begin

titl;

end;

if k=140 then

begin

comp;

end;

if k=240 then

begin

CLRSCR;

WorSpece;

read('c: \infa\help. txt');

end;

if k=190 then

begin

fajl;

end

else

mainmenu (k);

end;

end;

until ch=#60;

END.

Приложение Г

ЭКРАННЫЕ ФОРМЫ

Рисунок Б.1 Экран приветствия

Рисунок Б.2 Вид главного меню

Рисунок Б.3 Вид окна о программе

Рисунок Б.4 Вид окна наглядного представления персонального компьютера

Рисунок Б.5 Вид окна информационно-справочного материала

Рисунок Б.6 Вид окна в режиме открытого файла

Свежие статьи
Популярно сейчас
А знаете ли Вы, что из года в год задания практически не меняются? Математика, преподаваемая в учебных заведениях, никак не менялась минимум 30 лет. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4123
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее