Описание программы "Учебная база данных"

Министерство образования и науки РоссийскойФедерации
НОВОСИБИРСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙУНИВЕРСИТЕТ
Кафедра экономической информатики
Курсовая работа
по дисциплине «Алгоритмические языкипрограммирования»
Выполнил
студент Пономарёв Д.С.
факультет ВиЗО ФБ
группа 412
Преподаватель:
Анисимов В.А.
Новосибирск 2010

Содержание
ВВЕДЕНИЕ
1. ОПИСАНИЕ ПРОГРАММЫ
2. РУКОВОДСТВО ОПЕРАТОРА
3. ТЕКСТ ПРОГРАММЫ «УЧЕБНАЯ БАЗА ДАННЫХ» НА ИСХОДНОМЯЗЫКЕ
ЗАКЛЮЧЕНИЕ

/>Введение
В данном программномдокументе приведено описание программы «Учебная база данных», предназначеннойдля формирования базы данных «Ученики», которая состоит из записей, содержащихследующие поля: «Имя», «Фамилия», «Год рождения», «пол», «вес», «рост».Заложенные в программу функциональные возможности позволяют решать следующиезадачи:
·  добавлениеновых записей в базу;
·  редактированиезанесенных данных;
·  удалениезаписей;
·  сортировкаданных по различным критериям.
Целью данной курсовойработы является создание базы данных и применение основных действий с базойданных.
описание программа ученик база данных
/>1. Описание программы
 
1.1 ОБЩИЕ СВЕДЕНИЯ 1.1.1Обозначение и наименование программы
Программа «Учебная базаданных», имеет следующие атрибуты:
·  Наименованиеисполняемого файла — TEST.EXE
·  Размерисполняемого файла — 14 288 байт
 
1.1.2Программное обеспечение, необходимое для функционирования программы
Программа должнавыполняться под управлением операционной системы DOS6.0 или более новых версий DOSили Windows
 
1.1.3 Языки программирования, накоторых написана программа
Исходным языкомпрограммирования для «Учебной базы данных» является Pascal.
Среда разработки,компилятор – BorlandTurbo Pascal7.0
1.2 ФУНКЦИОНАЛЬНОЕНАЗНАЧЕНИЕ
 
1.2.1Классы решаемых задач
Программа предназначенадля решения элементарных задач обработки данных, таких, как редактирование исортировка, а также сохранения данных на диск для возможной последующейобработки или просмотра.
 
1.2.2Назначение программы
Используя программу«Учебная база данных» пользователь может добавлять данные об учениках,редактировать или удалять уже имеющуюся информацию, а также сортироватьсведения об учениках по росту или весу.

1.3. ОПИСАНИЕЛОГИЧЕСКОЙ СТРУКТУРЫ
 
1.3.1Алгоритм программы1.3.1.1Блок-схема процедуры «add»
/>
/>

/>

/>

/> 1.3.1.2Блок-схемапроцедуры«edit»
/>

/>
/>

/>

/>
/>

/>

/>
/>

/>

1.3.1.3. Блок-схемапроцедуры «del»
 
/>

/>

/>

/> 1.3.1.4 Блок-схема процедуры «sort»
/>

/>

/>
/>

/> 1.3.1.5Блок-схема программы
/>

/>
/>

/>
 
1.3.2Используемые методы
В описываемой программеиспользуется пузырьковый метод сортировки файла.
 
1.3.3Структура программы с описанием функций составных частей и связи между ними
Отдельные функциипрограммы оформлены в виде процедур:
·  процедурадобавления записи в файл;
·  процедураредактирования записи;
·  процедураудаления записи;
·  процедурасортировки файла данных
все перечисленные вышепроцедуры вызываются при выборе соответствующего пункта меню, реализованного восновной части программы.
 
1.3.4Связи программы с другими программами
В программе «Учебнаябаза данных» не используются связи с другими программами.
1.4 ИСПОЛЬЗУЕМЫЕТЕХНИЧЕСКИЕ СРЕДСТВА
 
В состав используемых техническихсредств входит: IBM PC совместимый с процессором 80386 и выше, ОЗУ не менее 32Мбайт, 16 МБ видеопамяти, наличие свободного места на жестком диске 10 Мбайт. Дляработы в диалоговом режиме используется экран дисплея, клавиатура. Дляподдержки графического режима необходим адаптер EGA (VGA).
1.5 ВЫЗОВ И ЗАГРУЗКА
 Загрузка и запускпрограммы осуществляется способами, детальные сведения о которых изложены вРуководстве пользователя операционной системы.
1.6 ВХОДНЫЕ ДАННЫЕ
Входными данными дляпрограммы является файл «data.txt», хранящийся в каталоге запуска программы.Это типизированный файл, содержащий записи об учениках.
1.7 ВЫХОДНЫЕ ДАННЫЕ
Выходными даннымиявляется выводимая на экран текстовая информация в процессе работы программы(результаты сортировки и редактирования, сообщения об ошибках), а такжетипизированный файл «data.txt», хранящийся в каталоге запуска программы. В этотфайл записываются все изменяемые данные об учениках.

2. Руководствооператора
 
2.1 Назначение программы
 
2.1.1Функциональноеназначение программы
Используя программу«Учебная база данных» пользователь может добавлять данные об учениках,редактировать или удалять уже имеющуюся информацию, а также сортироватьсведения об учениках по росту или весу.
2.1.2Эксплуатационное назначение программы
Программа предназначенадля решения элементарных задач обработки данных, таких, как редактирование исортировка, а также сохранения данных на диск для возможной последующейобработки или просмотра.
2.1.3Состав функций
 
2.1.3.1 Функциядобавления записи в файл
Данная функцияпозволяет пользователю добавлять новые данные об учениках в уже существующуюбазу данных.
 
2.1.3.2 Функция редактирования записи
Эта функция позволяетпользователю вносить изменения в уже существующие данные об учениках, даваявозможность редактировать все имеющиеся поля данных.
 
2.1.3.3 Функцияудаления записи
Функция удаления даетвозможность пользователю удалять ставшие ненужными или ошибочно занесенные вбазу данные.

2.1.3.4 Функциясортировки данных
Данная функцияпредоставляет пользователю сортировать имеющиеся в базе данные выбирая критериисортировки: по росту или по весу.
2.2Условия выполнения программы
2.2.1Минимальный состав аппаратных средств
Минимальный состависпользуемых технических (аппаратных) средств:
• IBM PC совместимый спроцессором 80386 и выше
• ОЗУ более 32 Мбайт
• адаптер EGA (VGA)
• наличие свободногоместа на жестком диске более 10 Мбайт.
2.2.2Минимальный состав программных средств
Программа должнавыполняться под управлением операционной системы DOS 6.0 или более новых версийDOS или Windows.
2.2.3Требования к персоналу (пользователю)
Конечный пользовательпрограммы (оператор) должен обладать практическими навыками
работы с графическимпользовательским интерфейсом операционной системы.
2.3Выполнение программы
2.3.1Загрузка и запуск программы
 Загрузка и запускпрограммы «Учебная база данных» осуществляется способами, детальные сведения окоторых изложены в Руководстве пользователя операционной системы.

2.3.2 Выполнениепрограммы
После запуска программыпоявляется окно программы, содержащее главное меню программы (рис. 1)
/>
Рисунок 1
Для продолжения работытребуется ввести цифру, соответствующую нужному пункту меню.
2.3.2.1Выполнение функции добавления записи
Для добавления данныхнужно ввести цифру «1» в окне программы указанном на рисунке 1, после чегонажать клавишу «Enter». Далее окнопрограммы примет следующий вид (рис. 2).
/>
Рисунок 2
В ответ на запроспрограммы пользователь должен ввести запрашиваемые данные, завершая вводинформации нажатием клавиши «Enter».Последовательно вводя данные, которые запрашивает программа, пользовательувидит следующее окно программы (рис. 3).
/>
Рисунок 3
Для продолжения работыи возврата в главное меню (рис. 1) от пользователя требуется нажать на любуюклавишу.
2.3.2.2Выполнение функции редактирования записи
Для добавления данныхнужно ввести цифру «2» в окне программы указанном на рисунке 1, после чегонажать клавишу «Enter». Далее окнопрограммы примет следующий вид (рис. 4).
/>
Рисунок 4
Для редактированияпоказанной на экране записи пользователю нужно нажать на клавишу «Enter».Для возврата в главное меню программы следует нажать на клавишу «Escape»,а для перехода к следующей записи — любую клавишу, отличную от «Escape»и «Enter».
После нажатияпользователем клавиши «Enter»окно программы примет следующий вид (рис. 5).
/>
Рисунок 5
Для редактированиякакого-либо из перечисленных полей пользователю нужно ввести соответствующуюцифру, указанную перед названием этого поля в показанном списке и нажатьклавишу «Enter». После этого окнопрограммы будет выглядеть следующим образом (рис. 6)
/>
Рисунок 6
На экране появитсятекущее значение редактируемого поля и запрос на ввод нового значения. Послетого как пользователь введет новое значение и нажмет «Enter»окно программы снова примет вид, показанный на рисунке 4.
2.3.2.3 Выполнение функций удаления записи
Для удаления записинужно ввести цифру «3» в окне программы указанном на рисунке 1, после чегонажать клавишу «Enter». Далее окнопрограммы примет следующий вид (рис. 7).
/>
Рисунок 7
Для удаления записи,данные о которой показываются в окне программы, пользователю требуется нажатьклавишу «Enter».
После этого программаудалит текущую запись и на экране отобразятся данные о следующей записи.
Для возврата в главноеменю программы нужно нажать клавишу «Escape».
2.3.2.4Выполнение функций сортировки данных
Для сортировки данныхнужно ввести цифру «4» в окне программы указанном на рисунке 1, после чегонажать клавишу «Enter». Далее окнопрограммы примет следующий вид (рис. 8).

/>
Рисунок 8
В данном окне следуетвыбрать критерий сортировки данных и ввести соответствующую цифру, после чегонажать клавишу «Enter». Программавыведет отсортированный список на экран (рис. 9)
/>
Рисунок 9
Выход в главное менюосуществится после нажатия любой клавиши.
2.3.3Завершение работы программы
Для завершения работы ивыхода из программы необходимо в главном меню программы (рис. 1) ввести цифру«0» и нажать клавишу «Enter».После этого программа закончит работу и выгрузится из оперативной памяти ПК.

2.4Сообщения оператору
2.4.1Сообщение «Некорректный ввод данных»
Программа придобавлении или редактировании записи выдает сообщение об ошибке, показанное нарисунке 10.
/>
Рисунок 10
ПРИЧИНА. Данноесообщение появляется, когда пользователь вводит для обозначения пола учениказначения, отличные от букв «м» и «ж».
ДЕЙСТВИЯ ПРОГРАММЫ.Программа не заносит ошибочные данные и повторно запрашивает у пользователяуказать пол ученика, используя строчную русскую букву «м» для обозначениямужского пола или строчную русскую букву «ж» для обозначения женского.
 ДЕЙСТВИЯ ОПЕРАТОРА.Убедиться в том, что вводятся именно русские строчные буквы «м» или «ж», принеобходимости сменить раскладку клавиатуры на русскоязычную.
3. Текст программы «Учебная база данных» на исходномязыке
usescrt;
typepupil=record{переменнаятипа запись для хранения данных об ученике}
 fam,name: string[30]; {фамилия, имя}
 pol: boolean; {пол,мужской = true}
 data, ves,rost: integer; {год рождения, вес, рост}
 end;
 var p: pupil;
f: file ofpupil; {файл записей об учениках}
knc:boolean; {флаг окончанияпрограммы}
v:integer; {переменная дляхранения выбора пункта меню}
procedureadd; {процедура добавления новойзаписи в файл}
var u: pupil;
s: string;
n: integer;
pl, ok :boolean;
c: char;
begin
clrscr; {очисткаэкрана}
writeln(‘—Добавлениезаписи—‘);  {вывод информационных надписей на экран}
writeln(‘Введитефамилию ученика’);
readln(s){считывание введенной пользователем информации}
u.fam:= s; {занесение введеннойпользователем фамилии ученика в переменную типа запись}
writeln(‘Введитеимя ученика’);
readln(s);  
u.name:= s;
writeln(‘Укажитепол ученика, если мужской — введите букву «м», если женский — «ж»’);
readln(c);
if(c = ‘м’) or(c = ‘ж’) thenok := trueelse ok:= false; {проверкакорректности введенных данным о поле ученика}
whilenot okdo             {выполняем до тех пор,пока пол не будет верно указан}
begin
writeln(‘Некорректныйввод данных’);
writeln(‘Вводитестрочные русские буквы!’);
writeln(‘Укажитепол ученика, если мужской — введите букву «м», если женский — «ж»’);
readln(c);
if (c = ‘м’) or(c = ‘ж’) then ok := true else ok := false;
end;
if c = ‘м’ thenpl := true else pl := false;
u.pol:= pl;
writeln(‘Введитегод рождения ученика’);
readln(n);
u.data := n;
writeln(‘Введитевес ученика’);
readln(n);
u.ves:= n;
writeln(‘Введитерост ученика’);
readln(n);
u.rost := n;
reset(f);{открываем файл для чтения}
seek(f,filesize(f));{устанавливаем указатель на последнюю запись файла}
write(f,u);{дописываем в конец файла запись об ученике}
close(f);{закрываем файл}
writeln(‘Записьдобавлена, нажмите любую клавишу для продолжения’);
repeatuntil keypressed;{ждем, пока не нажата какая-нибудь клавиша}
c:= readkey;
end;
procedureedit; {процедура редактирования записив файле}
var u: pupil;
s: string;
n, i, k:integer;
pl, ok, next:boolean;
c: char;
begin
reset(f); {открываемфайлдлячтения}
k:= 0; {устанавливаем начальное значение счетчика}
whilek
begin
seek(f,k);{ищем запись с номером, совпадающим со счетчиком}
clrscr;{очищаем экран}
writeln(‘—Редактированиезаписи—‘);
writeln(‘Фамилия’:15,’Имя’:15, ‘Пол’:10, ‘Год рождения’:17, ‘Вес’:6, ‘Рост’:6);{выводим заголовкидля полей записи}
read(f,u);{считываем запись из файла}
ifu.polthen s:= ‘Мужской’ elses := ‘Женский’; {переводимлогическое обозачение пола в строку}
writeln(u.fam:15,u.name:15,s:10, u.data:17,u.ves:6,u.rost:6);{выводимданные из записи}
writeln;
writeln(‘Enter- редактирование текущей записи, Esc- выход в меню’);
writeln(‘любаядругая клавиша — переход к следующей записи’);
repeatuntil keypressed;{ждем,пока не нажата какая-нибудь клавиша}
c:= readkey;
iford(c)= 27 thenexit; {если нажата клавиша ESC,то выходим из процедуры}
next:= true;
iford(c)= 13 then {если нажата клавиша Enter,то выполняем следующее}
begin
writeln;
writeln(‘Выберитеполе для редактирования’);{выводим информацию о выборе поля для редактирования}
writeln(‘1 — Фамилия’);
writeln(‘2 — Имя’);
writeln(‘3 — Пол’);
writeln(‘4 — Годрождения’);
writeln(‘5 — Вес’);
writeln(‘6 — Рост’);
writeln(‘0- Отмена редактирования и переход к следующей записи’);
readln(i);{считываем выбор пользователя}
casei of{взависимости от выбора пользователя выполняем}
1: begin{если пользователь ввел «1», то редактируем фамилию}
writeln(‘Староезначение поля «Фамилия» — ‘, u.fam);{выводим на экран фамилию, указанную в записи}
write(‘Введитеновое значение: ‘); {выводим запрос для ввода измененной фамилии}
readln(s);{считываем введенное пользователем значение}
u.fam:= s; {заносим значение введенное пользователемв запись}
seek(f,k);{ищем запись с номером счетчика в файле}
write(f,u);{записываем измененную запись в файл}
next:= false; {устанавливаемпризнак того, что на следующую запись после редактирования переходить не нужно}
end;
2: begin{если пользователь ввел «2», то редактируем имя}
writeln(‘Староезначение поля «Имя» — ‘, u.name);
write(‘Введитеновое значение: ‘);
readln(s);
u.name := s;
seek(f,k);
write(f,u);
next:= false;
end;
3: begin{если пользователь ввел «3», то редактируем пол}
ifu.polthen s:= ‘Мужской’ elses := ‘Женский’; {переводимлогическое обозачение пола в строку}
writeln(‘Староезначение поля «Пол» — ‘, s);
writeln(‘Введитеновое значение’);
writeln(‘Укажитепол ученика, если мужской — введите букву «м», если женский — «ж»’);
readln(c);
if(c = ‘м’) or(c = ‘ж’) thenok := trueelse ok:= false; {если пользовательввел некорректное значение обозначения пола, то устанавливаем ложное значениелогического переключателя}
whilenot okdo {покалогический переключатель не будет равен истине выполняем цикл}
begin
writeln(‘Некорректныйввод данных’); {выводим сообщение об ошибке}
writeln(‘Вводитестрочные русские буквы!’);
writeln(‘Укажитепол ученика, если мужской — введите букву «м», если женский — «ж»’);
readln(c);{считываем новое введенное пользователем значение}
if (c = ‘м’) or(c = ‘ж’) then ok := true else ok := false;
end;
ifc = ‘м’ thenpl := trueelse pl:= false; {переводим символьноеобозначение пола в логическое}
u.pol:= pl; {заносим логическое значение полав запись}
seek(f,k);{ищем запись с номером счетчика в файле}
write(f,u);{записываем измененную запись в файл}
next:= false; {устанавливаемпризнак того, что на следующую запись после редактирования переходить не нужно}
end;
4: begin{если пользователь ввел «4», то редактируем год рождения}
writeln(‘Староезначение поля «Год рождения» — ‘, u.data);
write(‘Введитеновое значение: ‘);
readln(n);
u.data := n;
seek(f,k);
write(f,u);
next:= false;
end;
5: begin{если пользователь ввел «5», то редактируем вес}
writeln(‘Староезначение поля «Вес» — ‘, u.ves);
write(‘Введитеновое значение: ‘);
readln(n);
u.ves := n;
seek(f,k);
write(f,u);
next:= false;
end;
6: begin{если пользователь ввел «6», то редактируем рост}
writeln(‘Староезначение поля «Рост» — ‘, u.rost);
write(‘Введитеновое значение: ‘);
readln(n);
u.rost := n;
seek(f,k);
write(f,u);
next:= false;
end;
0: next:= true;{если пользователь ввел«0», то устанавливем признак того, что нужно перейти на следующуюзапись в файле}
end;{case i of}
end; {if ord(c)= 13 then}
ifnext theninc(k);{если установлен признак перехода, то увеличиваем значение счетчика}
end; {while k
writeln(‘Всябаза данных просмотрена, для возврата в меню нажмите любую клавишу’); {выводиминформацию на экран}
repeatuntil keypressed;{ждем, пока не нажата какая-нибудь клавиша}
close(f);
end;
procedure del; {процедураудалениязаписи}
var u: pupil;
i, k: integer;
next: boolean;
c: char;
s: string;
begin
reset(f);{открываем файл для чтения}
k:= 0; {устанавливаем начальное значение счетчика}
whilek
begin
seek(f,k);{ищем запись с номером, совпадающим со счетчиком}
clrscr;{очищаем экран}
writeln(‘—Удалениезаписи—‘);
writeln(‘Фамилия’:15,’Имя’:15, ‘Пол’:10, ‘Год рождения’:17, ‘Вес’:6, ‘Рост’:6);{выводим заголовкидля полей записи}
read(f,u); {считываем запись из файла}
ifu.polthen s:= ‘Мужской’ elses := ‘Женский’; {переводимлогическое обозачение пола в строку}
writeln(u.fam:15,u.name:15,s:10, u.data:17,u.ves:6,u.rost:6);{выводим данные из записи}
writeln;
writeln(‘Enter- удаление текущей записи, Esc- выход в меню’);
writeln(‘любаядругая клавиша — переход к следующей записи’);
repeatuntil keypressed;{ждем, пока не нажата какая-нибудь клавиша}
c:= readkey;
iford(c)= 27 thenexit; {если нажата клавиша ESC,то выходим из процедуры}
next:= true; {устанавливем признак того, чтонужно перейти на следующую запись в файле}
iford(c)= 13 then {если нажата клавиша Enter,то выполняем следующее}
begin
fori := kto filesize(f)- 2 do {от текущей записи допредпоследней записи файла выполняем}
begin
seek(f,i+1); {ищем следующую за текущейзапись в файле}
read(f,u); {считываем найденную запись}
seek(f,i); {ищем текущую запись}
write(f,u); {записываем на её местосчитанную ранее последующую запись}
end;
ifk = filesize(f)- 1 thenclrscr; {если значениесчетчика равно последней записи, то очищаем экран}
seek(f,filesize(f) — 1); {ищем последнюю запись в файле}
truncate(f);{отсекаем часть файла, начиная с текущей записи}
next:= false; {устанавливаемпризнак того, что на следующую запись переходить не нужно}
end;{if ord(c)= 13}
ifnext theninc(k);{если установлен признак перехода, то увеличиваем значение счетчика}
end; {while k
writeln(‘Всябаза данных просмотрена, для возврата в меню нажмите любую клавишу’);
repeatuntil keypressed;{ждем,пока не нажата какая-нибудь клавиша}
close(f);
end;
procedure sort;{процедурасортировкифайла}
var u1, u2:pupil;
i, j, sort_type,p1, p2: integer;
s: string;
c: char;
begin
clrscr; {очищаемэкран}
reset(f);{открываемфайл для чтения}
writeln(‘—Сортировкаданных—‘);
writeln(‘Выберитекритерий сортировки’);{выводим информацию о выборе критерия сортировки}
writeln(‘1- сортировка по росту’);
writeln(‘2- сортировка по весу’);
readln(sort_type);{считываемвыбор пользователя}
forj := 1 tofilesize(f)do {начинаем пузырьковую сортировку}
fori := 0 tofilesize(f)- 2 do {количество повторенийцикла на 1 меньше размера файла}
begin
seek(f,i); {ищем i-юзапись в файле}
read(f,u1); {считываем найденную запись изфайла}
seek(f,i + 1); {ищем следующую за i-йзапись в файле}
read(f,u2); {считываем найденную запись изфайла}
ifsort_type= 1 then {в зависимости отвыбранного критерия сортировки устанавливаем значения переменных, которые будемсравнивать}
begin
p1:= u1.rost;{выбрана сортировка по росту, устанавливаем в переменные значения из поля рост}
p2 := u2.rost;
end
else
begin
p1:= u1.ves;{выбрана сортировка по весу, устанавливаем в переменные значения из поля вес}
p2:= u2.ves;
end;
ifp1 > p2then {сравниваем между собой значенияпеременных по которым идет сортировка. в случае, если первое больше второго, томеняем местами записи в файле}
begin
seek(f, i + 1);
write(f, u1);
seek(f, i);
write(f, u2);
end;
end;
clrscr; {очищаемэкран}
writeln(‘—Списокучеников, занесенных в базу данных—‘);
ifsort_type= 1 thenwriteln(‘сортировка по росту’)else writeln(‘сортировкапо весу’); {в зависимости от выбранного вида сортировки выводим заголовок}
writeln(‘Фамилия’:15,’Имя’:15, ‘Пол’:10, ‘Год рождения’:17, ‘Вес’:6, ‘Рост’:6);{выводим заголовкидля полей записи}
fori := 0 tofilesize(f)- 1 do {повторяем циклстолько раз, сколько записей содержится в файле}
begin
seek(f,i); {ищем i-юзапись в файле}
read(f,u1);{считываем найденную запись изфайла}
ifu1.polthen s:= ‘Мужской’ elses := ‘Женский’; {переводимлогическое обозачение пола в строку}
writeln(u1.fam:15,u1.name:15,s:10, u1.data:17,u1.ves:6,u1.rost:6);{выводимданные из записи}
end;
writeln(‘Длявыхода в главное меню нажмите любую клавишу’);
repeatuntil keypressed;{ждем,пока не нажата какая-нибудь клавиша}
c := readkey;
close(f);
end;
begin
clrscr; {очищаемэкран}
assign(f,’data.txt’); {связываем имя файла данных с файловой переменной}
knc:= false; {устанавливаемпризнак окончания программы в ложное значение}
repeat{повторяем, пока признак окончания программы не станет истинным}
writeln(‘—Базаданных «Ученики»—‘); {выводим наименование программы и меню}
writeln(‘Выберитедействия:’);
writeln(‘1- Добавление данных в базу’);
writeln(‘2- Редактирование данных’);
writeln(‘3- Удаление записей’);
writeln(‘4- Сортировка’);
writeln(‘0- Завершение работы’);
write(‘Вашвыбор: ‘);
readln(v);{считываем выбор пользователя}
casev of{взависимости от выбора пользователя выполняем}
1: add;{если пользователь ввел «1», то вызываем процедуру добавления записи}
2: edit;{если пользователь ввел «2», то вызываем процедуру редактированиязаписи}
3: del;{если пользователь ввел «3», то вызываем процедуру удаления записи}
4: sort;{если пользователь ввел «4», то вызываем процедуру сортировки файла} 0:knc := true;{если пользователь ввел «0», то устанавливаем признак окончанияпрограммы в значение истина}
end;
clrscr;{очищаемэкран}
until knc;
end.
заключение
В представленномпрограммном документе, в разделе «Назначение программы» указаны сведения оназначении программы и информация, достаточная для понимания функций программыи ее эксплуатации.
В разделе «Условиявыполнения программы» указаны условия, необходимые для выполнения программы(минимальный состав аппаратных и программных средств и т.п.).
В данном программномдокументе, в разделе «Выполнение программы» указана последовательность действийоператора, обеспечивающих загрузку, запуск, выполнение и завершение программы,приведено описание функций, формата и возможных вариантов команд, с помощьюкоторых оператор осуществляет загрузку и управляет выполнением программы, атакже ответы программы на эти команды.
В разделе «Сообщенияоператору» приведены тексты сообщений, выдаваемых в ходе выполнения программы,описание их содержания и соответствующие действия оператора (действия операторав случае сбоя и т.п.).
Документацияподготовлена согласно ГОСТ 7.32-2001 «Система стандартов по информации,библиотечному и издательскому делу. Отчет о научно-исследовательской работе.Структура и правила оформления», ГОСТ ЕСПД 19.402-78 «Описание программы».