Размещено на http://www.allbest.ru/

Разработка программы по учету уголовных дел и правонарушений.

Пояснительная записка к курсовому проекту по дисциплине: Основы алгоритмизации и программирования

ПО 000314.451.КП

СОДЕРЖАНИЕ

Введение

1. Общая часть

1.1 Обзор элементов языка программирования

1.2 Среда программирования Turbo Pascal

2. Специальная часть

2.1 Общая постановка задачи

2.2 Описание программы

2.3 Макроблоксхема программы

2.4 Таблица идентификатора программы

3. Организация производства

3.1 Комплекс технических средств необходимых для решения задач

3.2 Инструкция пользователю по работе с программой

Заключение

Список использованной литературы

Приложение

1. ОБЩАЯ ЧАСТЬ

1.1 Обзор элементов языка программирования

При решении задач выполняется обработка информации различного характера. Это могут быть целые и дробные величины, строки и др. Соответственно константы и переменные должны быть описаны как целые, дробные, строковые и т.д.

Для описания множества допустимых значений величины и совокупности операций, в которых может участвовать данная величина, используется указание ее типа данных. Тип данных - множество величин, объединенных определенной совокупностью допустимых операций.

Каждый тип данных имеет свой диапазон значений и специальное зарезервированное слово для описания. Например, значения 1 и 2 относятся к целочисленному типу, их можно складывать, умножать и выполнять над ними другие арифметические операции.

В языке Паскаль для описания типа в общем случае используется зарезервированное слово type. Формат:

Type

<Имя типа> = <значение типа>;

Все типы данных можно разделить на две группы: скалярные и структурированные (составные). Скалярные типы, в свою очередь, делятся на стандартные и пользовательские.

Стандартные типы предлагаются пользователям разработчиками системы Turbo Pascal. К ним относятся целочисленные, вещественные, литерные, булевские типы данных и указатели.

Пользовательские типы разрабатываются пользователями системы программирования Turbo Pascal.

Программирование циклических и разветвляющихся процессов

Если в программе возникает необходимость неоднократно выполнить некоторые операторы, то используется операторы повтора (цикла). В языке Паскаль различают три вида операторов цикла: while, repeat, for. Они используются для организации циклов различных типов. Выражение, управляющее повторениями, должно иметь булевский тип.

Если число повторений оператора заранее неизвестно, а задано лишь условие его повторения, используются операторы while, repeat. Оператор for используется, если число повторений заранее известно.

Оператор while. Оператор while (пока) часто называют оператором цикла с предусловием за то, что проверка условия выполнения тела цикла производится в самом начале оператора.

Оператор повтора repeat. Оператор повтора repeat аналогичен оператору while, но отличается от него, во-первых, тем, что условие проверяется после очередного выполнения операторов тела цикла (очередной итерации) и таким образом гарантируется хотя бы однократное выполнение цикла, а во-вторых, тем, что критерием прекращения цикла является равенство выражения константе True. За это цикл repeat часто называют цикло с постусловием, или циклом «ДО», так как он прекращает выполняться, как только значение выражения условия, записанного после слова until, равно True (истина).

Оператор повтора for. В случаях, когда число повторений может быть заранее известно, для организации циклической обработки информации применяется оператор повтора for. Часто этот оператор повтора называют оператором цикла с параметром, так как число повторений задается переменной, называемой параметром цикла, или управляющей переменной.

Подпрограммы на языке Паскаль.

За наличие подпрограмм как средства структурирования программ язык программирования Turbo Pascal называется процедурно-ориентированным.

Подпрограммы в Turbo Pascal реализованы посредством процедур и функций. Имея один и тот же смысл и аналогичную структуру, процедуры и функции различаются назначением и способом их использования.

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

Функция аналогична процедуре, но имеются два отличия: функция передает в точку вызова скалярное значение; имя функции может входить в выражение как операнд.

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

Все процедуры и функции языка Turbo Pascal делятся на две группы: встроенные (стандартные) и определенные пользователем. Первые входят в состав языка и вызываются для выполнения по строго фиксированному имени. Вторые разрабатываются и именуются самими пользователями. Все стандартные средства расположены в специальных библиотечных модулях, которые имеют системные имена.

Таблица 1-Основные типы данных

Наименование типа	Диапазон значения	Занимаемая память
Shortint	-128…127	1байт
Integer	-32768-32767	2 байта
Byte	0…255	1 байт
Word	0…65535	2 байта
Longint	-2147483648…+2147483647	4 байта
Real	2,9*10Е-39…1,7*10Е-38	6 байт
Single	1,5*10Е-45…3,4*10Е-38	4байт
Bouble	5,0*10Е-224…1,7*10Е-308	8 байт
Extendead	1,9*10Е-4951…1,1*10Е-498	10 байт
comp	-2Е+63+10…2Е+63-1	8 байт
Boolean	False, true	1 байт
Char	Символьный тип	1 байт
String	255	Max+1байт

Организация циклических и разветвляющих процессов

Для организации циклических процессов необходимо выполнение следующих условии:

-установление начальных значений параметров цикла;

-задать условие выполнения цикла;

-определить выполнение действии в теле данного цикла организации изменения параметров цикла.

На Паскале существует три оператора цикла:

-оператор цикла с параметром;

-оператор цикла с предусловием;

-оператор цикла с постусловием.

-оператор цикла с параметром используется для организации цикла с заранее известным числом повторения. Параметр цикла всегда должен быть целого типа. При down to счетчик изменяется на -1, а при to +1.

Процедурой в Turbo Pascal. Называется особым оформлением фрагмента программы, имеющая собственное имя. Упоминание этого имени в тексте программы приводит к активизаций процедуры (функции), и называется ее вызовом. Сразу после активизаций процедуры начинают выполняться входящие в нее операторы, после их выполнения последнего из них управляющие возвращает обратно в основную программу, и выполняются операторы стоящие непосредственно за оператором вызова программы. Функции отличаются тем, что результат ее работы возникает виде значения этой функции.

Заголовок процедуры:

Procedure (формальные параметры значения, <тип параметра>, var параметры переменной<тип параметра>);

var

Begin

End;

структура процедуры:

Uses CRT;

Label

Const

Type

Var

Procedure (название процедуры);

Begin

End;

заголовок функции:

Function имя функции (входные данные: тип данных): real;

структура функции:

Uses CRT;

Label

Const

Type

Var

Function (имя функции);

Begin

имя функции: = конечный результат;

End;

С примерами процедур и функции мы уже сталкивались - это стандартные процедуры чтения и записи read, readln, write, writeln, ord,chr, математические функции и др. Параметры значения - это входные данные, с помощью которых будет, вычисляется результат. Параметры переменной - конечный результат процедуры, который необходимо получить (описывается в заголовке после служебного слова var). Формальные параметры - это параметры, описываемые в заголовке процедуры. Фактические параметры - это выражения задающимися конкретное значение при обращении к подпрограмме, при выполнений процедуры формальных параметров замещаются фактическими, в результате чего выдается ответ в основную программу.

В любой программе должны быть инструкции обеспечивающие прием исходных данных и выдачу пользовательских результатов программы. В Turbo Pascal в частности нет специальных операторов ввода и вывода. Для обмена информаций с окружающим миром в программе, написанных на языке Turbo Pascal используется специальные, стандартные процедуры. Существует 2 разновидности ввода и 2 разновидности вывода. Это writeln, write, readln, read.

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

Например: а:=6,2161819 Writeln (a:6:2); Необходимо иметь в виду, что в 10 точек также отводится позиций. Если неуклонно количество позиции для дробной части, то результат вывод в эксперименциальном виде. Например: с:=125,64*10-5 Т=223,45 Writeln(c:11,T:11); C:=1.2564T-0.3 - отводится 11 позиций Т:= 2,2345Е+0,3- также отводится 11 позиций. Организация ввода и вывода информации Процедура чтения Read обеспечивает ввод числовых данных, символов, строк и т.д. для последующей их обработки программой.

Формат: Read (X1, X2, …, Xn); или \ Read (FV, X1, X2, …, Xn); где X1, X2, …, Xn - переменные допустимых типов данных; FV - переменная, связанная с файлом, откуда будет выполняться чтение. В данном подразделе рассматривается в основном первый вариант формата. Значение X1, X2, …, Xn набираются минимум через один пробел на клавиатуре и высвечиваются на экране. После набора данных для одной процедуры Read нажимается клавиша ввода Enter. Значения переменных должны вводиться в строгом соответствии с синтаксисом языка Паскаль. Если соответствие нарушено (например, X1 имеет тип integer, а при вводе набирается значение типа char), то возникают ошибки ввода-вывода.

Процедура чтения Readln аналогична процедуре Read, единственное отличие заключается в том, что после считывания последней в списке значения для одной процедуры Readln данные для следующей процедуры Readln будут считываться с начала новой строки. Процедура записи Write производит вывод числовых данных, символов, строк и булевских значений. Формат: Write (Y1, Y2, …, Yn); или Write (FV, Y1, Y2, …, Yn); где Y1, Y2, …, Yn - выражение типа integer, real, char, Boolean и т.д.; FV - имя файла, куда производится вывод. Для вывода на принтер FV равно Lst.

1.2 Среда программирования Turbo Pascal

Язык программирования Паскаль, разработан в 1968-1971 гг. Никлаусом Виртом, профессором, директором Института информатики Швейцарской высшей политехнической школы. Язык Паскаль, созданный первоначально для обучения программированию как систематической дисциплине, скоро стал широко использоваться для разработки программных средств в профессиональном программировании.

Широкой популярности Паскаля среди программистов способствовали следующие причины:

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

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

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

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

-применение языка паскаль значительно подняло «планку» надежности разрабатываемых программ за счет требований паскаля к описанию используемых в программе переменных, проверки согласованности программы при компиляции без ее выполнения;

-использование в паскале простых и гибких структур управления: ветвлений, циклов.

Разработка программ на Паскале включает в себя следующие действия: ввод и редактирование текста программы на языке программирования Паскаль, ее трансляцию, отладку.

Для выполнения каждого этапа применяются специальные средства: для ввода и редактирования текста используется редактор текстов, для трансляции программы - компилятор, для построения, исполняемого компьютером программного модуля с объединением разрозненных откомпилированных модулей и библиотекой стандартных процедур Паскаля - компоновщик (linker), для отладки программ с анализом ее поведения, поиском ошибок, просмотром и изменением содержимого ячеек памяти компьютера - отладчик (debugger).

Для повышения качества и скорости разработки программ в середине 80-х гг. была создана система программирования Turbo Pascal. Слово Turbo в названии системы программирования - это отражение торговой марки фирмы-разработчика Borland International, Inc (США).

Систему программирования Turbo Pascal называют интегрированной средой программирования, так как она объединяет в себе возможности ранее разрозненных средств, используемых при разработке программ: редактора текстов, компилятора, компоновщика, отладчика, и при этом обеспечивает программисту великолепные сервисные возможности. Часто ее кратко называют IDE (Integrated Development Environment - интегрированная среда разработки).

После набора текста программы, ее необходимо откомпилировать для этого надо ее желательно сохранить. А затем нажать F9 или F10-Run-Alt F9 в этом случае произойдет компиляция программы, но программа выполнятся, не будет. Если на каком либо этапе среда выдаст ошибку, она прекращает дальнейшее действия восстанавливает окно редактора и помещает курсор, но ту строку, где была при компиляции или исполнении которой была обнаружена ошибка. При этом в верхней строке редактора появляется диагностическое сообщение о причине ошибки.

Все это позволяет очень быстро отладить программу, т.е. устранить в ней синтаксические ошибки и убедится в правильности ее работы. Если ошибка возникла на этапе прогона программы, простое указание того места, где она обнаружена, может не дать нужной информации, так как ошибка может быть следствием неправильно подготовки данных в предыдущих операторах программы. Строка программы, содержащая этот оператор, будет выделена на экране цветом (красным). У каждой ошибки есть свой код. По коду ошибки можно определить тип ошибки. Для выполнения программ и компиляций используется комбинация клавиш ctrl-F9, загрузить ее в оперативную память и после чего вернется в среду Turbo Pascal.

2. СПЕЦИАЛЬНАЯ ЧАСТЬ

2.1 Общая постановка задачи

Разработать простейшее ИПС «Справочник следователя», которое будет производить различные операции: просмотр, добавление, удаление, поиск и редактирование информации о преступниках, хранимой в текстовом файле.

Данная программа предназначена для хранения информации о преступниках. Структура записи состоит из номера записи, ФИО преступника, даты рождения, рост, статьи. Все данные должны хранится в файле с расширением klm. Неконтрастные цветовые настройки спокойных тонов, интерфейс можно назвать «интуитивно-понятным».

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

На следующем этапе возникла проблема правильного выбора средств реализации поставленной цели. С учетом имеющихся знаний относительно среды программирования Turbo Pascal, было решено создать программный продукт в данной среде программирования.

Базу данных должен заполнять пользователь. Существует возможность добавления, просмотра, удаления, поиска, редактирования записи.

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

-простоту, удобство и дружественность по отношению к пользователю;

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

-компактность размещения и невысокие требования к условиям эксплуатации;

-высокую надежность.

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

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

Организационное обеспечение включает комплекс документов, регламентирующих деятельность специалистов при использовании компьютера на рабочем месте и определяющих функции и задачи каждого специалиста. Специалистом выполняются на ИПС следующие операции:

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

-ввод данных в ПЭВМ с магнитных носителей с других ИПС;

-редактирование данных и манипулирование ими;

-накопление и хранение данных;

-защита данных;

-формирование и передача данных на другие ИПС в виде файлов на магнитных носителях или по каналам связи в вычислительных сетях;

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

2.2 Описание программы

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

Для навигации и работы используется клавиатура и «мышка». В случае ошибки ввода - программа будет ожидать правильного заполнения и пользователю придется повторить ввод данных. Выход из программы осуществляется выбором вкладки «Выход».

Программа имеет титульный лист, на котором указана тема курсового проекта, руководитель курсового проекта и автор. После нажатия любой клавиши на экране появляется основная форма программы. Вид титульного листа представлен ниже на рисунке 2.

программа паскаль поисковый информация



Рисунок 2 - Титульный лист

Далее идет загрузка программы. Вид загрузки представлен ниже рисунок 2.1.

Рисунок 2.1 - Загрузка программы

Работа с главным окном программы легко управляемая. Далее представлены образцы графических окон с подробным описанием элементов. Главное окно программы представляет собой окно с вкладками. На рисунке 2.2 представлено главное окно программы, в котором и выполняются все основные действия с программой (просмотр, добавление, удаление, поиск изменение).



Рисунок 2.2 - Главное окно программы

Добавление записи производится во вкладке «Добавление записи».

На рисунке 2.3 изображена вкладка добавления записи. Здесь нужно выбрать категорию преступления.

Рисунок 2.3-Добавление записи

Выбрав категорию, затем нужно ввести данные преступника (ФИО, рост, дата рождения, национальность, статья). Смотри рисунок 2.4.



Рисунок 2.4-Ввод данных

На рисунке 2.5 представлено окно вкладки, просмотр записей. Просмотр записи производится в таблице, если таблица не будет помещаться на экран, то просмотр производиться в несколько этапов, до тех пор, пока не достигнет конца таблицы. В таблице выводятся данные о преступнике (Фамилия, Имя, Отчество, рост, дата рождения, национальность, статья). Ниже таблицы выводится сообщение, сколько имеется записей в базе данных.

Рисунок 2.5-Просмотр данных

Изменение записи осуществляется с помощью вкладки «Изменение записи». На рисунке 2.6 показана вкладка «Изменение записи».

Рисунок 2.6-Изменение данных

Поиск записи осуществляется с помощью вкладки «Поиск записи». На рисунке 2.7 показано, что нужно ввести фамилию или ее часть для поиска. Поиск записи выводится в таблице, если таблица не будет помещаться на экран, то просмотр производиться в несколько этапов, до тех пор, пока не достигнет конца таблицы. В таблице выводятся данные о преступнике (Фамилия, Имя, Отчество, рост, дата рождения, национальность, статья). Ниже таблицы выводится сообщение, сколько имеется записей в базе данных. Что вернуться в главное меню, нужно нажать «Enter».



Рисунок 2.7-Поиск данных

Нажав «ENTER», мы увидим результаты поиска, на рисунке 2.8.

Рисунок 2.8-Просмотр найденных данных

Так же программа должна быть оснащена параметром удаления, какой- либо записи. Окно удаления данных представлено на рисунке 2.9. Для того, что удалить какую-нибудь запись, нужно ввести порядковый номер записи. Порядковый номер начинается с нуля. После того, как введете порядковый номер записи, нужно нажать «Enter», затем программа выдаст сообщение, что эта запись успешна удалена. Что убрать это сообщение нужно нажать «Enter». После этого программа выйдет в главное меню. Чтобы убедиться, что нужная вам запись была успешно удалена, можно зайти во вкладку просмотр записей, а для удобства, можно ввести фамилию преступника в поиске записей и программа выдаст сообщение, найден или нет преступник.

Рисунок 2.9- Удаление данных

Теперь при нажатии «ENTER», произойдет удаление записи, на рисунке 3 все наглядно показано.

Рисунок 3- Просмотр удаленных данных

Так как удаление базы данных для удобства и для того, чтобы защитить базу данных от случайного удаления, программа должна быть оснащена подтверждением удаления базы данных, а данный программный продукт не является исключением, то при удалении базы данных появляется окно подтверждения удаления, представленное на рисунке 3.1. Для того, что удалить базу данных, нужно нажать «Enter». После того, как вы нажмете «Enter», программа выдаст сообщение, программа успешно удалена. Что убрать это сообщение нужно нажать «Enter». Если не нужно удалять базу данных, нужно нажать «Esc», и программа выйдет в главное меню. После этого программа выйдет в главное меню.

Рисунок 3.1 - Подтверждение удаления базы данных

Для того чтобы получить сведения о программе нужно выбрать «О программе. Появится окно справки. Информация об авторе данного программного продукта. На рисунке 3.2 представлено окно справки.

Рисунок 3.2 - Окно справки

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

Важное место, естественно, в этом плане занимает сама форма, так казать, окно во внешний мир. Именно форма даёт возможность общения пользователя и программиста, место, где происходит обработка событий объектов и обмен информацией.

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

Также привычные элементы «всегда под рукой», такие как меню, панель инструментов. Тут же стоит отметить навигацию в программе. Большей частью я старался предоставить пользователю максимум понятное меню. То есть - интуитивно-понятный интерфейс.

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

2.3 Макроблоксхема программы

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

конец

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Рисунок 1- Блок-схема к процедуре вывода

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

2.4 Таблица идентификатора программы

Предметной областью применения данного проекта предполагается сфера исправительных учреждений. Анализ данной предметной области выявил специфику и особенности разрабатываемой ИПС приспособленной к работе в данной сфере.

Процесс создания компьютерной базы данных это перенос информации с традиционных бумажных документов (картотек, таблиц) на магнитные диски компьютера. Файл базы данных состоит из отдельных записей, каждая из которых содержит информацию, традиционно хранившуюся на отдельной картотеке или в отдельной строке таблицы.

Поля записи содержат данные, которые могут быть отнесены к одному из нескольких возможных типов. Например, поле, хранящее данные о фамилии, имени, отчестве, относятся к типу строковые.

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

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

Термин ведение базы данных характеризует операции, выполняемые над базой данных для поддержания ее в актуальном состоянии. Этот процесс может включать:

-дополнение базы данных новыми документами;

-просмотр базы данных;

-изменение данных в отдельных записях (редактирование);

-удаление существующих документов.

Информационное обеспечение включает в себя следующие виды информации:

-входная информация;

-выходная информация;

-диалоговая информация.

Входная информация включает в себя часто изменяемые и пополняемые данные о заключённых (ФИО, дата рождения, статья, национальность, рост), поэтому был создан раздел редактирования записей, который позволяет очень просто изменить нужную запись. Состав и структура входных данных, для рассматриваемой задачи, приведены в таблице 1.1 постановочной части. Там же в таблице 1.2 и 1.3 представлены выходные данные, полученные в результате обработки входной информации о преступниках. Ниже приведен словарь данных, где описаны все имеющиеся переменные с описанием типа, диапазона, размера в байтах и обозначения.

Таблица 2.1 - Словарь данных

	Обозначение	идентификатор	Тип	Диапазон	Размер, байт
1	фамилия преступника	Fam	string	256	13
2	имя преступника	Ima	string	256	12
3	отчество преступника	Otc	string	256	14
4	рост преступника	Rost	string	256	4
5	дата рождения	DRozh	string	256	15
6	Национальность преступника	Nac	string	256	15
7	статья	Stat	string	256	7

3. ОРГАНИЗАЦИЯ ПРОИЗВОДСТВА

3.1 Комплекс технических средств необходимых для решения задачи

На прилагаемой к курсовому проекту диске, находится программа, и исходные файлы программы.

Для работы программы необходима ЭВМ, отвечающая следующим аппаратно-техническим требованиям:

-процессор 386 (рекомендуется 486 or high);

-материнская плата(canyon cn-910ali 845 pe, ddr333, ata100, lan, atx);

-64мб оперативной памяти;

-2гб жесткого диска;

-видео карта(64мб,128bit);

-клавиатура;

-vga монитор;

-cd-rom;

-наличие установленного пакета turbo Pascal 6.0 или выше.

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

3.2 Инструкция пользователю по работе с программой

Данная программа предназначена для хранения информации о преступниках в базе данных «Справочник следователя». Структура записи состоит из ФИО, даты рождения, рост, статья, национальность.

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

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

Таблица 4.1 Сообщения программисту

	Сообщения	Описание содержания сообщения	Действия
1	Для ввода данных выберите «Добавление записи».	Данная вкладка содержит поля для ввода данных.	Если хотите добавить запись - нажмите кнопку «Enter», затем нужно выбрать категорию добавления записи (например, кража, убийство и так далее).
2	Для просмотра списка всех записей.	Выберите вкладку «Просмотр записей».	Если хотите просмотреть запись - нажмите кнопку «Enter», затем нужно выбрать категорию просмотра записи (например, кража, убийство и так далее). «esc».
3	Для изменения записи.	Выберите вкладку «Изменение записи».	Если хотите изменить запись - нажмите кнопку «Enter», затем нужно выбрать категорию изменения записи (например, кража, убийство и так далее).
4	Для удаления записи.	Выберите вкладку «Удаление записей».	Если хотите удалить запись - нажмите кнопку «Enter», затем нужно выбрать категорию удаления записи (например, кража, убийство и так далее) и выбрать номер удаления.
5	Удаление базы данных.	Выберите вкладку «Удаление базы данных».	Если хотите удалить базу данных - нажмите кнопку «Enter», затем нужно выбрать категорию удаления базы данных (например, кража, убийство и так далее).
6	Поиск записи.	Выберите вкладку «Поиск записи».	Если хотите найти запись - нажмите кнопку «Enter», затем нужно выбрать категорию поиска данных (например, кража, убийство и так далее) и ввести фамилию или часть фамилии преступника.

Результатом данного курсового проекта является разработка программы справочника следователя, формирования и обработки данных о преступниках.

В процессе разработки программы выполнены требования к функциональным характеристикам, условия эксплуатации и требования к операционной и программной совместимости.

База данных «Справочник следователя» была создана для облегчения работы с ведением учёта информации о преступниках.

Критерием качества программы является простота интерфейса, а этот проект не требует от пользователя никаких специальных знаний, кроме навыка работы с клавиатурой и «мышью».

Основной элемент интерфейса - это форма (окно), с помощью которой осуществляется навигация в программе. Кроме того, программа достаточно мобильна, она будет работать во всех операционных средах от DOS до Windows и на любых моделях компьютеров, так как не зависит от архитектуры машины. Она не требует выделения больших объемов ни оперативной памяти, ни дискового пространства, экономя ресурсы компьютера, что позволит работать не только ей, но и другим программам одновременно.

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

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

В заключение хотелось бы отметить достоинства и недостатки программы. Работа в программе проста и удобна. Имеется дружественный интерфейс по отношению к пользователю. Программа обладает компактностью размещения, невысокими требованиями к условиям эксплуатации. Хранит в себе объёмную базу данных, обладает возможностью создания и сохранения базы данных на внешнем носителе. Все недостатки можно доработать, а именно:

усовершенствовать интерфейс;

расширить возможности поиска и редактирования информации;

сделать программу ещё более устойчивой к вводу некорректных данных.

ЗАКЛЮЧЕНИЕ

Результатом данного курсового проекта является разработка программы справочника следователя, формирования и обработки данных о преступниках.

В процессе разработки программы выполнены требования к функциональным характеристикам, условия эксплуатации и требования к операционной и программной совместимости.

База данных «Справочник следователя» была создана для облегчения работы с ведением учёта информации о преступниках.

Критерием качества программы является простота интерфейса, а этот проект не требует от пользователя никаких специальных знаний, кроме навыка работы с клавиатурой и «мышью».

Основной элемент интерфейса - это форма (окно), с помощью которой осуществляется навигация в программе. Кроме того, программа достаточно мобильна, она будет работать во всех операционных средах от DOS до Windows и на любых моделях компьютеров, так как не зависит от архитектуры машины. Она не требует выделения больших объемов ни оперативной памяти, ни дискового пространства, экономя ресурсы компьютера, что позволит работать не только ей, но и другим программам одновременно.

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

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

В заключение хотелось бы отметить достоинства и недостатки программы. Работа в программе проста и удобна. Имеется дружественный интерфейс по отношению к пользователю. Программа обладает компактностью размещения, невысокими требованиями к условиям эксплуатации. Хранит в себе объёмную базу данных, обладает возможностью создания и сохранения базы данных на внешнем носителе. Все недостатки можно доработать, а именно:

расширить возможности поиска и редактирования информации;

сделать программу ещё более устойчивой к вводу некорректных данных.

Список использованной литературы

1. Йенсен К., Вирт Н. Паскаль: Руководство для использования и описания языка. Москва 1982г. Финансы и статистика.

2. Ян Борецкий. Турбо Паскаль с графикой для персональных компьютеров. Москва 1991г. Машиностроение

3. В.Б. Попов. Турбо Паскаль для школьников. Издание 3. Москва 2004г. Финансы и статистика

4. Н. Культин. Самоучитель программирование в Турбо Паскале 7.0 и Делфи (Второе издание) Санкт-Петербург,2004 г. БХВ-Петербург.

5. В.С. Зубов. Программирование на языке Турбо Паскаль. Информационно-издательский дом Филин. Москва 1997г.

6. Самоучитель по Турбо Паскалю в электронном виде Интернет. Поисковые сайты Рамблер и Апорт.

ПРИЛОЖЕНИЕ

Program CORONER;

Uses crt;

Type

PRESTUPNIKI=Record

Fam:String[13];

Ima:String[12];

Otc:String[14];

Rost:String[4];

DRozh,Nac:String[15];

Stat:string[7];

end;

Var

Base:File Of PRESTUPNIKI;

PRESTUPNIK:PRESTUPNIKI;

Vibor:byte;

N:Integer;

Label start;

Function DoLength(St:String;Len:Byte):String;

begin

If Length(st)>Len then begin

Delete(st,Len,Length(st)-len);

end else begin

While length(st)<Len do begin

st:=st+' ';

end;

end;

DoLength:=St;

end;

Procedure titulka;

begin

window(1,1,80,25);textbackground(15);clrscr;

textcolor(1);

writeln(' МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН');

writeln(' Павлодарский Колледж Транспорта и Коммуникации ');

writeln(' ');

writeln('');writeln('');writeln('');

writeln(' КУРСОВОЙ ПРОЕКТ ');

writeln('');

writeln(' По дисциплине: Основы алгоритмизации и программирования');

writeln(' тема работы: База данных следователя ');

gotoxy(45,16);write('Выполнила: уч-ся гр.ПО-314 ');

gotoxy(45,17);write('Сорокина Надежда');

gotoxy(45,18);write('Проверила: ');

gotoxy(45,19);write('Торопова И.И');

gotoxy(32,23);write('Павлодар 2006');

readkey;

end;

Procedure loading;

Var

i:byte;

zagolovok:string;

Begin

textcolor(white);

textbackground(0);

clrscr;

window(1,1,80,1);

textbackground(14);

clrscr;

zagolovok:='* * БАЗА ДАННЫХ СЛЕДОВАТЕЛЯ * *';

gotoxy(40-round(length(zagolovok)/2),1);

write(zagolovok);

window(1,2,80,25);

textbackground(white);

clrscr;

window(3,3,78,24);

textbackground(0);

clrscr;

textcolor(white);

gotoxy(28,8);

writeln(' * * * * * * * * * * *');gotoxy(28,wherey);

writeln('* Программу выполнила *');gotoxy(28,wherey);

writeln('* Сорокина Надежда *'); gotoxy(28,wherey);

writeln(' * * * * * * * * * * *'); gotoxy(30,wherey+2);

write('Запуск программы...');

gotoxy(8,wherey+1);

textcolor(10);

for i:=1 to 62 do begin

gotoxy(wherex,15);

write('-');

delay(1000);

end;

writeln;

gotoxy(20,wherey);

textcolor(lightred+Blink);

write('Готово. Для продолжения нажмите любую клавишу');

readkey;

End;

Procedure okno(x,y,x1,y1:byte;zag:string);

Begin

window(x+2,y+1,x1+2,y1+1);

textbackground(0);

clrscr;

textcolor(white);

window(x,y,x1,y+1);

textbackground(14);

clrscr;

gotoxy((round((x1-x)/2))-(round(length(zag)/2))+1,1);

write(zag);

window(x,y+1,x1,y1);

textbackground(white);

clrscr;

window(x+2,y+2,x1-2,y1-1);

textbackground(blue);

clrscr;

End;

Procedure About;

begin

Writeln('Программу выполнила: Сорокина Надежда');

Writeln('Учащийся колледжа ПКТиК');

readkey;

end;

Function DecodeSt(Str:String):String;

var

i:integer;

begin

i:=Length(Str);

While (str[i]=' ') do begin

Delete(str,i,1);

i:=i-1;

end;

DecodeSt:=Str;

end;

procedure Vivvod(FileName:string);

var

N:Integer;

zag:string;

Key:Char;

begin

zag:='* ИНФОРМАЦИЯ *';

textcolor(white);

window(1,1,80,2);

textbackground(14);

clrscr;

gotoxy((round((80)/2))-(round(length(zag)/2))+1,1);

write(zag);

window(1,2,80,25);

textbackground(Blue);

clrscr;

ASSIGN(BASE,FileName);

{$I-}

Reset(BASE);

If IOResult<>0 then begin

Rewrite(BASE);

end;

{$I+}

writeln('г=============T============T==============T====T==========T===========T=======¬');

writeln('¦ ФАМИЛИЯ ¦ ИМЯ ¦ ОТЧЕСТВО ¦РОСТ¦ДАТА РОЖД.¦ НАЦИОНАЛ. ¦СТАТЬЯ ¦');

writeln('¦========+====+=========+====+=======+=========+=====¦');

Seek(BASE,0);

n:=0;

While not EOF(BASE) do begin

Read(BASE,PRESTUPNIK);

With PRESTUPNIK Do begin

writeln('¦',FAM,'¦',IMA,'¦',OTC,'¦',ROST,'¦',DROZH,'¦',NAC,'¦',STAT,'¦');

end;

writeln('¦=============+============+==============+====+==========+===========+=======¦');

N:=N+1;

if WhereY>=23 then begin

Write('Нажмите Enter для продолжения, или Esc для выхода');

Key:=Readkey;

if key=#27 then begin

exit;

end;

clrscr;

writeln('г=============T============T==============T====T==========T===========T=======¬');

writeln('¦ ФАМИЛИЯ ¦ ИМЯ ¦ ОТЧЕСТВО ¦РОСТ¦ДАТА РОЖД.¦ НАЦИОНАЛ. ¦СТАТЬЯ ¦');

writeln('¦=============+============+==============+====+==========+===========+=======¦');

end;

end;

GotoXY(WhereX,WhereY-1);

writeln('L=============¦============¦==============¦====¦==========¦===========¦=======-');

If N=0 then begin

textcolor(Lightred+Blink);

write('НЕТ ДАННЫХ!');

end else begin

write('В базе записей ->',n)

end;

Close(base);

readkey;

end;

Procedure Ydalit(FileName:string);

var

N,No:integer;

TEMPBASE:File Of PRESTUPNIKI;

OldFileName:String;

begin

clrscr;

OldFilename:=FileName;

ASSIGN(BASE,FileName);

Rename(BASE,'Temp.DB');

ASSIGN(BASE,OldFileName);

ASSIGN(TEMPBASE,'Temp.DB');

Write('ВВЕДИТЕ НОМЕР ЗАПИСИ ДЛЯ УДАЛЕНИЯ ->');

Readln(N);

Clrscr;

Rewrite(BASE);

Reset(TEMPBASE);

Seek(TEMPBASE,0);

No:=0;

clrscr;

Writeln('Идёт удаление. Пожалуйста подождите....');

While not EOF(TEMPBASE) do begin

Read(TEMPBASE,PRESTUPNIK);

if N<>No then begin

Write(BASE,PRESTUPNIK);

end;

No:=No+1;

end;

Close(Base);

Close(TempBase);

Erase(TempBase);

clrscr;

write('Удаление завершено. Нажмите любую клавишу.');

readkey;

end;

Procedure Izmenit(FileName:string);

var

N:integer;

begin

clrscr;

ASSIGN(BASE,FileName);

{$I-}

Reset(BASE);

If IOResult<>0 then begin

Rewrite(BASE);

end;

{$I+}

Write('ВВЕДИТЕ НОМЕР ЗАПИСИ ->');

Readln(N);

Seek(BASE,N);

Read(BASE,Prestupnik);

Seek(BASE,N);

clrscr;

With PRESTUPNIK do begin

Write('Фамилия преступника(',DecodeSt(Fam),')-=>');

Readln(Fam);

Fam:=DoLength(Fam,13);

Write('Имя преступника(',DecodeSt(Ima),')-=>');

Readln(Ima);

Ima:=DoLength(Ima,12);

Write('Отчество преступника(',DecodeSt(Otc),')-=>');

Readln(Otc);

Otc:=DoLength(Otc,14);

Write('Рост преступника(',DecodeSt(Rost),')-=>');

Readln(Rost);

Rost:=DoLength(Rost,4);

Write('Дата рождения преступника(',DecodeSt(DRozh),')-=>');

Readln(DRozh);

DRozh:=DoLength(DRozh,10);

Write('Национальность преступника(',DecodeSt(Nac),')-=>');

Readln(Nac);

Nac:=DoLength(Nac,11);

Write('Статья преступления(',DecodeSt(Stat),')-=>');

Readln(Stat);

Stat:=DoLength(Stat,7);

Seek(BASE,N);

Write(BASE,PRESTUPNIK);

end;

Close(Base);

clrscr;

write('Ввод завершён. Нажмите любую клавишу.');

readkey;

end;

Procedure Dobavlenie(FileName:string);

begin

clrscr;

ASSIGN(BASE,FileName);

{$I-}

Reset(BASE);

If IOResult<>0 then begin

Rewrite(BASE);

end;

{$I+}

Seek(BASE,FileSize(Base));

With PRESTUPNIK do begin

clrscr;

Write('Фамилия преступника-=>');

Readln(Fam);

Fam:=DoLength(Fam,13);

Write('Имя преступника-=>');

Readln(Ima);

Ima:=DoLength(Ima,12);

Write('Отчество преступника-=>');

Readln(Otc);

Otc:=DoLength(Otc,14);

Write('Рост преступника-=>');

Readln(Rost);

Rost:=DoLength(Rost,4);

Write('Дата рождения преступника-=>');

Readln(DRozh);

DRozh:=DoLength(DRozh,10);

Write('Национальность преступника-=>');

Readln(Nac);

Nac:=DoLength(Nac,11);

Write('Статья преступления (xxx\xxx)-=>');

Readln(Stat);

Stat:=DoLength(Stat,7);

Write(BASE,PRESTUPNIK);

end;

Close(Base);

clrscr;

write('Ввод завершён. Нажмите любую клавишу.');

readkey;

end;

Procedure Poisk(FileName:String);

var

N:Integer;

zag:string;

Key:Char;

ST:String;

begin

zag:='* ПОИСК *';

textcolor(white);

window(1,1,80,2);

textbackground(14);

clrscr;

gotoxy((round((80)/2))-(round(length(zag)/2))+1,1);

write(zag);

window(1,2,80,25);

textbackground(Blue);

clrscr;

Write('Введите фамилию или её часть для поиска ->');

Readln(st);

clrscr;

ASSIGN(BASE,FileName);

{$I-}

Reset(BASE);

If IOResult<>0 then begin

Rewrite(BASE);

end;

{$I+}

writeln('г=============T============T==============T====T==========T===========T=======¬');

writeln('¦ ФАМИЛИЯ ¦ ИМЯ ¦ ОТЧЕСТВО ¦РОСТ¦ДАТА РОЖД.¦ НАЦИОНАЛ. ¦СТАТЬЯ ¦');

writeln('¦=============+============+==============+====+==========+===========+=======¦');

Seek(BASE,0);

n:=0;

While not EOF(BASE) do begin

Read(BASE,PRESTUPNIK);

With PRESTUPNIK Do begin

if pos(st,FAM)>0 then begin

writeln('¦',FAM,'¦',IMA,'¦',OTC,'¦',ROST,'¦',DROZH,'¦',NAC,'¦',STAT,'¦');

writeln('¦=============+============+==============+====+==========+===========+=======¦');

N:=N+1;

end;

end;

if WhereY>=23 then begin

Write('Нажмите Enter для продолжения, или Esc для выхода');

Key:=Readkey;

if key=#27 then begin

exit;

end;

clrscr;

writeln('г=============T============T==============T====T==========T===========T=======¬');

writeln('¦ ФАМИЛИЯ ¦ ИМЯ ¦ ОТЧЕСТВО ¦РОСТ¦ДАТА РОЖД.¦ НАЦИОНАЛ. ¦СТАТЬЯ ¦');

writeln('¦=============+============+==============+====+==========+===========+=======¦');

end;

end;

GotoXY(WhereX,WhereY-1);

writeln('L=============¦============¦==============¦====¦==========¦===========¦=======-');

If N=0 then begin

textcolor(Lightred+Blink);

write('Нечего не найдено!');

end else begin

write('Найдено записей ->',n)

end;

Close(base);

readkey;

end;

Procedure Vibor_Categorii_Poiska;

Var

I,N:integer;

A:ARRAY[1..10] of string;

key:Char;

Begin

key:=#0;

n:=1;

A[1]:='КРАЖА';

A[2]:='УБИЙСТВО';

A[3]:='РАЗБОЙ';

A[4]:='МОШЕННИЧЕСТВО';

A[5]:='ДРУГОЕ';

A[6]:='ОТМЕНА';

while key<>#13 do begin

textcolor(white);

clrscr;

gotoxy(2,wherey);

writeln('ВЫБЕРИТЕ КАТЕГОРИЮ:');

For i:=1 to 6 do begin

Gotoxy(10,wherey);

if i=n then begin

Writeln('',a[i]);

end else begin

Writeln(' ',a[i]);

end;

end;

GotoXY(11,n+1);

Key:=Readkey;

if key=#72 then begin

if n>1 then begin

n:=n-1;

end;

end;

if key=#80 then begin

if n<6 then begin

n:=n+1;

end;

end;

end;

case n of

1: begin

Okno(10,7,70,20,'* ПОИСК ПРЕСТУПНИКА *');

Poisk('Base_Krazh.klm');

end;

2: begin

Okno(10,7,70,20,'* ПОИСК ПРЕСТУПНИКА *');

Poisk('Base_Ybistv.klm');

end;

3:begin

Okno(10,7,70,20,'* ПОИСК ПРЕСТУПНИКА *');

Poisk('Base_Razboev.klm');

end;

4: begin

Okno(10,7,70,20,'* ПОИСК ПРЕСТУПНИКА *');

Poisk('Base_Moshenichestv.klm');

end;

5: begin

Okno(10,7,70,20,'* ПОИСК ПРЕСТУПНИКА *');

Poisk('Base_Drugoe.klm');

end;

end;

end;

Procedure Vibor_Categorii_Vvoda;

Var

I,N:integer;

A:ARRAY[1..10] of string;

key:Char;

label start;

Begin

key:=#0;

n:=1;

A[1]:='КРАЖА';

A[2]:='УБИЙСТВО';

A[3]:='РАЗБОЙ';

A[4]:='МОШЕННИЧЕСТВО';

A[5]:='ДРУГОЕ';

A[6]:='ОТМЕНА';

while key<>#13 do begin

textcolor(white);

clrscr;

gotoxy(2,wherey);

writeln('ВЫБЕРИТЕ КАТЕГОРИЮ:');

For i:=1 to 6 do begin

Gotoxy(10,wherey);

if i=n then begin

Writeln('',a[i]);

end else begin

Writeln(' ',a[i]);

end;

end;

GotoXY(11,n+1);

Key:=Readkey;

if key=#72 then begin

if n>1 then begin

n:=n-1;

end;

end;

if key=#80 then begin

if n<6 then begin

n:=n+1;

end;

end;

end;

case n of

1: begin

Okno(10,7,70,20,'*ДОБАВЛЕНИЕ ПРЕСТУПЛЕНИЯ *');

Dobavlenie('Base_Krazh.klm');

end;

2: begin

Okno(10,7,70,20,'*ДОБАВЛЕНИЕ ПРЕСТУПЛЕНИЯ *');

Dobavlenie('Base_Ybistv.klm');

end;

3:begin

Okno(10,7,70,20,'*ДОБАВЛЕНИЕ ПРЕСТУПЛЕНИЯ *');

Dobavlenie('Base_Razboev.klm');

end;

4: begin

Okno(10,7,70,20,'*ДОБАВЛЕНИЕ ПРЕСТУПЛЕНИЯ *');

Dobavlenie('Base_Moshenichestv.klm');

end;

5: begin

Okno(10,7,70,20,'*ДОБАВЛЕНИЕ ПРЕСТУПЛЕНИЯ *');

Dobavlenie('Base_Drugoe.klm');

end;

end;

end;

Procedure Vibor_Categorii_Vivoda;

Var

I,N:integer;

A:ARRAY[1..10] of string;

key:Char;

label start;

Begin

key:=#0;

n:=1;

A[1]:='КРАЖА';

A[2]:='УБИЙСТВО';

A[3]:='РАЗБОЙ';

A[4]:='МОШЕННИЧЕСТВО';

A[5]:='ДРУГОЕ';

A[6]:='ОТМЕНА';

while key<>#13 do begin

textcolor(white);

clrscr;

gotoxy(2,wherey);

writeln('ВЫБЕРИТЕ КАТЕГОРИЮ:');

For i:=1 to 6 do begin

Gotoxy(10,wherey);

if i=n then begin

Writeln('',a[i]);

end else begin

Writeln(' ',a[i]);

end;

end;

GotoXY(11,n+1);

Key:=Readkey;

if key=#72 then begin

if n>1 then begin

n:=n-1;

end;

end;

if key=#80 then begin

if n<6 then begin

n:=n+1;

end;

end;

end;

case n of

1: begin

Vivvod('Base_Krazh.klm');

end;

2: begin