РЕФЕРАТ
Пояснительная записка:
Данный программный продукт, выданный как тема для курсового проекта, представляет собой реализацию информационно-обучающей системы предназначенной для ознакомления и обучения пользователей основных устройств персонального компьютера. . В программном продукте реализованы следующие возможности:
предоставление справки о разработчике системы;
наглядное представление основных устройств персонального компьютера; справка об определенных устройствах персонального компьютера;
предоставление справки по работе с программой;
Эта программа удобна в использовании, так как имеет простой и интуитивно-понятный графический интерфейс.
Перспективами дальнейшей разработки программного продукта являются: оптимизация графических возможностей наглядного изображение персонального компьютера, увеличение объема информации о устройствах.
КОМПЬЮТЕР, СИСТЕМНЫЙ БЛОК, ЖЕСТКИЙ ДИСК, БЛОК ПИТАНИЯ, СЛОТЫ ПАМЯТИ, ВИДЕОКАРТА, ЗВУКОВАЯ КАРТА, СD-ROM, ПРОЦЕССОР, МАТЕРИНСКАЯ ПЛАТА.

СОДЕРЖАНИЕ
  ВВЕДЕНИЕ. 3
1. ПОСТАНОВКА ЗАДАЧИ.. 5
1.1. Цель разработки. 5
1.2. Функциональные требования. 5
1.3. Информационные потоки программы.. 6
2. ОПИСАНИЕ И ОБОСНОВАНИЯ МЕТОДА РЕШЕНИЯ.. 8
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ.. 9
3.1. Словесное описание алгоритма программы.. 9
3.2.Алгоритм программы.. 10
4. ПРОЕКТИРОВАНИЕ ИНТЕРФЕЙСА.. 14
4.1. Обоснования выбранного вида интерфейса. 14
4.2. Особенности организации выбранного графического режима. 15
5. ОПИСАНИЕ ПРОГРАММНОЙ РЕАЛИЗАЦИИ.. 16
5.1. Функционально-логическая схема. 16
5.2. Описание структур и форматов. 17
5.3. Основные процедуры.. 17
5.4. Схема взаимодействия подпрограмм. 18
5.2. Порядок установки. 20
5.3. Запуск программного продукта. 20
6. АНАЛИЗ ЭФФЕКТИВНОСТИ.. 21
ВЫВОДЫ.. 22
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ.. 23
Приложение А.. 24
Приложение Б. 26
Приложение В.. 27
Приложение Г. 43

ВВЕДЕНИЕ

На сегодняшний день, разнообразные информационно-обучающие системы являются, наряду с компьютерными играми, пожалуй, одним из самых популярных и востребованных видов программного обеспечения. Их назначение – помощь в процессе приобретения и накопления пользователем знаний и навыков в узких предметных областях. Спектр применения информационно-обучающих систем достаточно широк, и это обусловливает высокий потребительский спрос на программные продукты подобного типа, что в свою очередь способствует дальнейшему их развитию, и появлению все новых и новых видов обучающих систем. Практически на каждом персональном компьютере можно встретить хотя бы одну такую программу. Их надежность и высокие показатели эффективности привели к тому, что информационно-обучающие системы стали широко применяться во многих школах и вузах. А использование ими новейших достижений в области мультимедиа позволяет использовать такие системы даже в процессе так называемого дистанционного обучения.
Стоит отметить, что, некоторые обучающие системы позволяют так же моделировать на экране ситуации, близкие к реальным. И это обусловливает еще одну возможность применения информационно-обучающих систем, а именно, их использование в качестве тренажеров – симуляторов при подготовке и переподготовке специалистов самых различных уровней в самых различных областях знаний.
Лет пятнадцать назад, фантазия причислить компьютер к "бытовым" устройствам могла возникнуть лишь в очень умной – и слегка нездоровой голове. В самом деле, серьезное вычислительное устройство, орудие для настоящих профессионалов, а не для "бытовых нужд" человечества. Но уходящая история взяла свое и уже в наше время персональный компьютер – это устройство повседневной жизни. И я думаю, что с маленьких лет, человек должен понимать внутреннее содержимое компьютера, а не только быть лишь пользователем этого удивительного устройства.
Данная информационно-справочная система позволяет эффективно хранить необходимую пользователю информацию и осуществлять быструю навигацию по накопленному в базе материалу.
Таким образом, простота обращения с информационно-обучающими системами, их доступность и понятность широкому кругу пользователей, полнота и структурированность изложенной в них информации, возможность выбора наиболее подходящего для каждого конкретного пользователя метода обучения способствуют все большему и большему росту их популярности. Компьютер, снабженный информационно-обучающей системой становиться не просто машиной для проведения сложных расчетов, но и активным помощником в процессе приобретения и накопления новых знаний.

1. ПОСТАНОВКА ЗАДАЧИ

1.1. Цель разработки

Целью разработки данного программного продукта является создание узкоспециализированной информационно-обучающей системы предназначенной для ознакомления и обучения широкого круга пользователей, которых интересует внутреннее содержимое компьютера.

1.2. Функциональные требования

Поскольку основной задачей данного программного продукта является обучение, то необходимой является его ориентация именно на пользователей. Необходимо создать условия, при которых эффект от процесса обучения был бы максимальным. То есть необходимо создание простого, понятного, функционального и привлекательного пользовательского интерфейса, а так же удобных инструментов, которые позволили бы использовать возможности информационно-обучающей системы в полной мере.
С этой точки зрения оптимальным является графический интерфейс. Он удобен и практичен в использовании, а так же является интуитивно-понятным, что в нашем случае является не менее важным.
Управление основными возможностями системы должно быть организовано с посредством системы раскрывающихся меню, доступ к которым должен обеспечиваться непосредственным выбором.
Справочная система должна содержать информацию о способе навигации в системе, функциональных клавишах, информацию о разработчике программного продукта и основных возможностях которыми располагает данная система.
Система обучения должна обеспечивать простоту доступа пользователя к необходимой ему информации, а это предоставляет простой графический интерфейс, и кнопка выбора определенного пункта.

1.3. Информационные потоки программы

Блок информационных материалов

Блок заставки

Блок руководства пользователя

Вывод информационных материалов

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

Блок экранного приветствия

Графический вывод экранного приветствия

Графический лист информации выполнения (титульный лист)

Информация по руководству пользователя

Блок изображения устройств компьютера

Графический вывод устройств компьютера

Файлы с текстовой информацией

Данный подраздел содержит схему информационных потоков, которые фигурируют в программе.
Рисунок 1.1. - Схема информационных потоков
Данная схема предоставляет основные информационные потоки данного программного продукта. Цилиндр показывает данные, хранящиеся на жестком диске компьютера. Прямоугольник изображает данные, которые выводятся на экран.
Стрелками указаны движение информации в блоках.
Программа.
- данные, хранящиеся на диске;
- данные, выводимые на экран;
Данный продукт разбит на пять блоков, за которыми закреплена определенная информация:
- за блоками экранного приветствия, изображения устройств компьютера, заставки закреплена определенная информация, выводимая на экран монитора с помощью программного кода продукта;
-за блоками информационных материалов и руководства пользователя закреплена информация в виде файлов, которые находятся на жестком диске.
- за блоками информационных материалов и руководства пользователя закреплена информация в виде файлов, которые находятся на жестком диске.

2. ОПИСАНИЕ И ОБОСНОВАНИЯ МЕТОДА РЕШЕНИЯ

Главными задачами, поставленные перед программой были: создание информационной базы материала, вывод из этой базы необходимого файла и наглядное предоставление пользователю внутреннего устройства компьютера. Программа представляет из себя комплекс процедур и функций, предназначенных для решения вышеуказанных задач. При запуске программы, происходит начало диалога пользователя с программой, который реализован при помощи графических пользовательских меню. Эти меню являются чем-то вроде посредника между пользователем и информационно-справочной системой. При необходимости пользователь может воспользоваться необходимым пунктом в меню и тем самым запустить какой-то процесс.
Каждый пункт в меню реализован в виде отдельной процедурой. Это позволяет легко ориентироваться в написанном коде и при надобности вносить необходимые корректировки и изменения.

3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ

3.1. Словесное описание алгоритма программы

Структура программы представляет собой комплекс процедур и функций. Этот комплекс подпрограмм составляет общую функциональность всей программы в целом.
После запуска программы на экране происходит очистка его, а затем, выполнение процедуры, которая отображает экранную заставку, содержащую информацию, которая содержит значение этого программного продукта. В случае нажатие кнопки продолжения пользователь автоматически переходит к главному меню. Затем выполняется другая процедура, которая выводит специально разработанный интерфейс программы, затем выполняется процедура, отвечающая за работу главного меню. Далее выполняется процедура, которая отслеживает нажатие клавиш, предусмотренных в теле данной подпрограммы. При нажатии соответствующей клавиши эта процедура производит запуск соответствующей процедуры. Далее передвигаясь по экранному меню, пользователь останавливается на определенном пункте, для которых заранее предусмотрены процедуры, отвечающие за каждый пункт. Экранное меню, разработанное в графическом режиме, содержит пять пунктов: о программе, наглядное представление ПК, информационный материал, руководство пользователя выход.
В случае выбора процедуры "о программе" на экран выводится графический интерфейс, предоставляющий пользователю информацию о разработчике.
В случае выбора пункта "наглядное представление ПК" на экран выводится графический пример изображения персонального компьютера.
В случае выбора пункта "информационный материал" пользователь получает доступ еще к одному меню, который содержит девять пунктов: системный блок, материнская плата, процессор, видеокарта, звуковая карта, блок питания, слоты памяти, cd-rom, выход. Каждому пункту меню соответствует свой текстовый файл, хранящийся на жестком диске. Пункт "выход" завершает программу.
В случае выбора пункта "руководство пользователя" пользователь имеет право ознакомиться с программой в целом. Данный пункт содержит специальный файл, который также хранится на жестком диске.
В случае выбора пункта "Выход" пользователь автоматически завершает работу с программой.
Для вывода имеющегося материала в информационно-справочной базе запускается отдельная процедура, которая инициализирует и читает текстовый файл с информацией о имеющихся информационных файлах и путь к ним на диске.

 

3.2.Алгоритм программы

При создании данного программного продукта использовался принцип нисходящего программирования, т.е. задача разбивалась на некоторые подзадачи, каждая из которых в свою очередь снова детализировалась, пока не достигались, простые задачи. В первую очередь были выделены и решены следующие четыре основные подзадачи:
- организация пользовательского интерфейса;
- организация изображения компьютера;
- организация меню информации устройств;
- организация изображения титульного листа.
Следует отметить, что система была реализована таким образом, что в каждый конкретный момент времени ее состояние могло измениться только в результате некоторых действий пользователя. Поэтому система использует только так называемый последовательный процесс, при котором все действия выполняются строго последовательно. На рисунке 2.1. представлен алгоритм работы основной программы. Заметим, что структурной основной единицей процесса работы программы является процесс обработки команды пользователя. Ему принадлежит основной приоритет.

Инициализация программы

3) Обработка команды  пользователя

2) Прорисовка приветствия

1) Начало

 

Нет                                                                                                 Да

4) Прорисовка рабочего меню

 

5) Обработка команды пользователя

6) Прорисовка изображения компьютера

14)Конец

 

8) Прорисовка титульного листа

 

7) Обработка команды пользователя

9) Прорисовка меню информации устройств

12) Прорисовка руководства пользователя

11) Завершающие действия (закрытие файлов и т.д.)

10) Обработка команды пользователя

13) Обработка команды пользователя

 

Рисунок 3.1. – Алгоритм работы программы

Рисунок 3.1. показывает алгоритм данного программного продукта. Его действие обусловлено следующими шагами, которые с легкостью управляются пользователем:
На начальном этапе работы программы необходима ее инициализация;
2) После этого прорисовывается экранное приветствие, которое задает пользователю вопрос о продолжении работы программы;
3) Происходит обработка команды пользователя. В случае отказа работы и нажатия кнопки завершения, программа завершает свою работу;
4) В случае продолжения пользователь попадает на следующий уровень программы, которая прорисовывает рабочее меню, состоящее из пяти пунктов, которым соответствует определенные процедуры. Двигаясь по меню пользователь делает выбор;
5) После этого происходит обработка команды пользователя, которое завершается или 6), или 8), или 9), или 14), или 12) уровнем;
6) Прорисовывает изображение компьютера. После нажатия управляющей клавиши, 6) - ой уровень переходит в 7);
7) Уровень обработки команды пользователя, завершающийся или 4) уровнем,
или 14);
8) Уровень прорисовки титульного листа, инцидентный 6) – переходит в 7) - ой;
9) Уровень прорисовки информации устройств, который с помощью управления пользователя переходит в 13) уровень;
10) Уровень обработки команды пользователя завершается или 11), или 14) уровнем;
11) Уровень завершающий действия (закрывает файлы) и возвращает на 7) уровень;
12) Уровень прорисовки руководства пользователя, завершающийся 10);
13) Уровень закрытия информационных файлов, в случае пункта выхода уровень переходит на уровень 14), иначе возвращает значение на уровень 9).

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

Приложение В

Листинг программы
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);
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 Вид окна в режиме открытого файла