Также следует дополнительные достоинства: это возможность пополнения базы новыми информационными материалами.

В будущем, возможна модернизация программы в следующих направлениях:

- сделать программу более удобной при чтении материала из информационной базы;

- сделать программу под более современную операционную систему;

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. "Программирование в среде Turbo Pascal 7.0", А.И. Марченко; 1998

2. Конспект лекций по предмету "ОП и АЯ"

3. Энциклопедия современного персонального компьютера Москва 2005г.

4. Ресурс в сети Интернет:

5. http: // garbo. umasa. fi/pc/turboobj. html

6. http: // garbo. umasa. fi/pc/turbopas. html

7. http: // infobase. hypermart. net/pascal/programs. html

8. http: // infocity. kiev. ua/

9. Самоучитель Turbo Pascal О.А. Меженный Киев 2004.

Приложение А

ТЕХНИЧЕСКОЕ ЗАДАНИЕ НА ПРОЕКТИРУЕМЫЙ ПРОГРАММНЫЙ ПРОДУКТ

А.1 Общие сведения

Полное название программного продукта: "Разработка информационно-справочной системы "Устройство персонального компьютера". Ее условное обозначение "ОППК". Работа выполнена студентом 1-го курса Донецкого государственного института искусственного интеллекта (ДонГИИИ), факультета современных компьютерных информационных технологий, группы СУА-05, Булавиным Александром Николаевичам.

Основанием для разработки "ОППК" является задание, выданное кафедрой Программного обеспечения интеллектуальных систем (ПОИС).

Плановый срок начала работы: 17.02.06.

Дата защиты работы: 22.05.06.

Курсовая работа выполняется согласно графику, приведенному в таблице А.1.

А.2 Назначения создания программы ведения

Программа предназначена для обучения пользователя основных устройств персонального компьютера

А.3 Требования к программе

А.3.1. Требования к программе в целом

В целом к программе предъявляются следующие требования:

удобный и простой для пользования графический интерфейс;

удобный способ ввода-вывода данных;

контроль действий пользователя, связанные с работой программы;

хранение информации во внешнем источнике данных;

- наличие справочной информации

А.3.2. Требования к задачам и функциям программного продукта

Программа должна реализовать следующие функции:

удобный доступ к информационно-справочному материалу;

вывод легко доступной для восприятия справочной информации;

А.3.3. Требования к программному обеспечению

Программа будет реализована на языке Turbo Pascal 7.0 и для ее работы необходимо наличие операционной системы MS-DOS 5.0 и выше.

А.3.4. Требования к техническому обеспечению

Для корректной работы программы необходимы:

IBM – совместимый ПК с процессором не ниже 80386;

VGA монитор.

А.4 Стадии разработки программы:

Таблица А.1 – Стадии разработки программы

Приложение Б

РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ

Помощь при работе с информационно-справочной системой

- О программе

Отображает реквизиты.

- Наглядное представление персонального компьютера.

Отображает наглядную информацию основных устройств

персонального компьютера

- Информационный материал

Отображает список доступных для рассмотрения тем. Выбрав этот пункт в меню появится окно с названием основных устройств персонального компьютера. . Используя клавиши "вверх","вниз" и "enter" вы можете выбрать устройство, которое вас интересует.

- Руководство пользователя

Без комментариев.

- Выход

Используя этот пункт вы можете выйти из программы.

Приложение В

Листинг программы

USES GRAPH,CRT;

var

ch: char;

s,k,r: integer;

st: string;

com: char;

OldPattern: FillPatternType;

procedure init; {iniciiryet grafiky}

var gd,gm: integer;

begin

gd: =Detect;

initgraph(gd,gm,'');

if GraphResult <> grok then

begin

writeln ('ОШИБКА! ГРАФИЧЕСКИЙ РЕЖИМ НЕ ИНИЦИАЛИЗИРОВАЛСЯ'); {PROVERKA NA INICIACIY}

END;

end;

PROCEDURE MAINMENU(i: integer);

var

m: integer;

begin

CLEARDEVICE; {O4ISTKA EKRANA}

{----------------------РИСУЕМ ДИСКЕТУ--------------------------------------}

setfillstyle(1,9);

BAR (100,100, 200, 200);

setfillstyle(1,8);

BAR (105,105,110,110);

BAR (190,105, 195,110);

setfillstyle(1,8);

BAR (130,100,170,140);

setfillstyle(1,15);

BAR (120,150,180,180);

line (130,155,170,155);

line (130,160,170,160);

line (130,165,170,165);

line (130,170,170,170);

outtextxy (120, 190,'SUMSUNG');

{------------------------РИСУЕМ CD----------------------------------------}

setBkcolor(10);

setcolor (15);

setfillstyle(1,6);

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,14); {wablon zapolnenij i cvet}

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

setcolor(8); {cvet wrifta}

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

outtextxy (270,105,'1. О ПРОГРАММЕ');

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-ВОЗВРАТ В ОСНОВНОЕ МЕНЮ');

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

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,'ЖЕСТКИЙ ДИСК');

{---------------------------------------------рисуем процессор--------------}

SETCOLOR(6);

setfillstyle(1,6);

for i: =1 to 30 do

circle (280,220,25-i);

line (280,220,440,220);

outtextxy (440,220,'ПРОЦЕССОР');

{-------------------------------------------РИСУЕМ ВИДЕОКАРТУ---------------}

setfillstyle(10,6);

BAR (180, 200,220,215);

line (185, 205,122, 205);

outtextxy (40, 203,'ВИДЕОКАРТА');

{-------------------------------------------РИСУЕМ ЗВУКОВУЮ КАРТУ------------}

setfillstyle(7,7);

BAR (180,240,215,250);

LINE (190,250,155,250);

outtextxy (40,249,'ЗВУКОВАЯ КАРТА');

{------------------------------------------РИСУЕМ БЛОК ПИТАНИЯ---------------}

setfillstyle(10,8);

BAR (185,105,245,140);

outtextxy (187,120,'3 0 0 W');

LINE (185,110,140,110);

outtextxy (40,106,'БЛОК ПИТАНИЯ');

{----------------------------------------РИСУЕМ СЛОТЫ ПАМЯТИ-----------------}

setfillstyle(2,2);

BAR (260,260,270,280);

BAR (280,260,290,280);

LINE (265,270,140,270);

LINE (285,277,140,270);

outtextxy (40,267,'CЛОТЫ ПАМЯТИ');

{---------------------------------------РИСУЕМ CD-ROM------------------------}

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

fillellipse (320,240,60, 20);

setcolor (15);

settextstyle (4,0,30);

outtextXY (295,235,'S V E N');

line (250,180,390,180);

line (320,180,320,100);

{-----------------------------------------------------------------------}

SETFILLSTYLE (1,15);

setcolor (black);

settextstyle(9,0,15);

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

outtextxy (40,465,'ENTER-возврат в основное меню');

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

outtextxy (420,465,'F2-выход из программы');

setcolor (10);

outtextxy (120, i,'ДОНЕЦКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ ИСКУССТВЕННОГО ИНТЕЛЛЕКТА');

delay (200);

outtextxy (140, i+40,'КАФЕДРА ПРОГРАММНОГ ОБЕСПЕЧЕНИЯ ИНТЕЛЛЕКТУАЛЬНЫХ СИСТЕМ');

delay (200);