Выходными данными является выводимая на экран текстовая информация в процессе работы программы (результаты сортировки и редактирования, сообщения об ошибках), а также типизированный файл «data.txt», хранящийся в каталоге запуска программы. В этот файл записываются все изменяемые данные об учениках.

2. Руководство оператора

2.1 Назначение программы

2.2.1 Минимальный состав аппаратных средств

Минимальный состав используемых технических (аппаратных) средств:

* IBM PC совместимый с процессором 80386 и выше

* ОЗУ более 32 Мбайт

* адаптер EGA (VGA)

* наличие свободного места на жестком диске более 10 Мбайт.

2.2.2 Минимальный состав программных средств

Программа должна выполняться под управлением операционной системы DOS 6.0 или более новых версий DOS или Windows.

2.2.3 Требования к персоналу (пользователю)

Конечный пользователь программы (оператор) должен обладать практическими навыками

работы с графическим пользовательским интерфейсом операционной системы.

2.3 Выполнение программы

Рисунок 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 Сообщения оператору

Рисунок 10

ПРИЧИНА. Данное сообщение появляется, когда пользователь вводит для обозначения пола ученика значения, отличные от букв «м» и «ж».

ДЕЙСТВИЯ ПРОГРАММЫ. Программа не заносит ошибочные данные и повторно запрашивает у пользователя указать пол ученика, используя строчную русскую букву «м» для обозначения мужского пола или строчную русскую букву «ж» для обозначения женского.

ДЕЙСТВИЯ ОПЕРАТОРА. Убедиться в том, что вводятся именно русские строчные буквы «м» или «ж», при необходимости сменить раскладку клавиатуры на русскоязычную.

3. Текст программы «Учебная база данных» на исходном языке

uses crt;

type pupil=record {переменная типа запись для хранения данных об ученике}

fam, name: string[30]; {фамилия, имя}

pol: boolean; {пол, мужской = true}

data, ves, rost: integer; {год рождения, вес, рост}

end;

var p: pupil;

f: file of pupil; {файл записей об учениках}

knc: boolean; {флаг окончания программы}

v: integer; {переменная для хранения выбора пункта меню}

procedure add; {процедура добавления новой записи в файл}

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 = 'ж') then ok := true else ok := false; {проверка корректности введенных данным о поле ученика}

while not ok do {выполняем до тех пор, пока пол не будет верно указан}

begin

writeln('Некорректный ввод данных');

writeln('Вводите строчные русские буквы!');

writeln('Укажите пол ученика, если мужской - введите букву "м", если женский - "ж"');

readln(c);

if (c = 'м') or (c = 'ж') then ok := true else ok := false;

end;

if c = 'м' then pl := 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('Запись добавлена, нажмите любую клавишу для продолжения');

repeat until keypressed; {ждем, пока не нажата какая-нибудь клавиша}

c := readkey;

end;

procedure edit; {процедура редактирования записи в файле}

var u: pupil;

s: string;

n, i, k: integer;

pl, ok, next: boolean;

c: char;

begin

reset(f); {открываем файл для чтения}

k := 0; {устанавливаем начальное значение счетчика}

while k < filesize(f) do {выполняем пока счетчик меньше количества записей в файле}

begin

seek(f,k); {ищем запись с номером, совпадающим со счетчиком}

clrscr; {очищаем экран}

writeln('---Редактирование записи---');

writeln('Фамилия':15, 'Имя':15, 'Пол':10, 'Год рождения':17, 'Вес':6, 'Рост':6);{выводим заголовки для полей записи}

read(f, u);{считываем запись из файла}

if u.pol then s := 'Мужской' else s := 'Женский'; {переводим логическое обозачение пола в строку}

writeln(u.fam:15, u.name:15, s:10, u.data:17, u.ves:6, u.rost:6);{выводим данные из записи}

writeln;

writeln('Enter - редактирование текущей записи, Esc - выход в меню');

writeln('любая другая клавиша - переход к следующей записи');

repeat until keypressed;{ждем, пока не нажата какая-нибудь клавиша}

c := readkey;

if ord(c) = 27 then exit; {если нажата клавиша ESC, то выходим из процедуры}

next := true;

if ord(c) = 13 then {если нажата клавиша Enter, то выполняем следующее}

begin

writeln;

writeln('Выберите поле для редактирования');{выводим информацию о выборе поля для редактирования}

writeln('1 - Фамилия');

writeln('2 - Имя');

writeln('3 - Пол');

writeln('4 - Год рождения');

writeln('5 - Вес');

writeln('6 - Рост');

writeln('0 - Отмена редактирования и переход к следующей записи');

readln(i); {считываем выбор пользователя}

case i 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", то редактируем пол}

if u.pol then s := 'Мужской' else s := 'Женский'; {переводим логическое обозачение пола в строку}

writeln('Старое значение поля "Пол" - ', s);

writeln('Введите новое значение');

writeln('Укажите пол ученика, если мужской - введите букву "м", если женский - "ж"');

readln(c);

if (c = 'м') or (c = 'ж') then ok := true else ok := false; {если пользователь ввел некорректное значение обозначения пола, то устанавливаем ложное значение логического переключателя}

while not ok do {пока логический переключатель не будет равен истине выполняем цикл}

begin

writeln('Некорректный ввод данных'); {выводим сообщение об ошибке}

writeln('Вводите строчные русские буквы!');

writeln('Укажите пол ученика, если мужской - введите букву "м", если женский - "ж"');

readln(c); {считываем новое введенное пользователем значение}

if (c = 'м') or (c = 'ж') then ok := true else ok := false;

end;

if c = 'м' then pl := true else 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}

if next then inc(k); {если установлен признак перехода, то увеличиваем значение счетчика}

end; {while k <= filesize(f)}

writeln('Вся база данных просмотрена, для возврата в меню нажмите любую клавишу'); {выводим информацию на экран}

repeat until keypressed; {ждем, пока не нажата какая-нибудь клавиша}

close(f);

end;

procedure del; {процедура удаления записи}

var u: pupil;

i, k: integer;

next: boolean;

c: char;

s: string;

begin

reset(f); {открываем файл для чтения}

k := 0; {устанавливаем начальное значение счетчика}

while k < filesize(f) do {выполняем пока счетчик меньше количества записей в файле}

begin

seek(f,k); {ищем запись с номером, совпадающим со счетчиком}

clrscr; {очищаем экран}

writeln('---Удаление записи---');

writeln('Фамилия':15, 'Имя':15, 'Пол':10, 'Год рождения':17, 'Вес':6, 'Рост':6);{выводим заголовки для полей записи}

read(f, u); {считываем запись из файла}

if u.pol then s := 'Мужской' else s := 'Женский'; {переводим логическое обозачение пола в строку}

writeln(u.fam:15, u.name:15, s:10, u.data:17, u.ves:6, u.rost:6); {выводим данные из записи}

writeln;

writeln('Enter - удаление текущей записи, Esc - выход в меню');

writeln('любая другая клавиша - переход к следующей записи');

repeat until keypressed; {ждем, пока не нажата какая-нибудь клавиша}

c := readkey;

if ord(c) = 27 then exit; {если нажата клавиша ESC, то выходим из процедуры}

next := true; {устанавливем признак того, что нужно перейти на следующую запись в файле}

if ord(c) = 13 then {если нажата клавиша Enter, то выполняем следующее}

begin

for i := k to filesize(f) - 2 do {от текущей записи до предпоследней записи файла выполняем}

begin

seek(f, i+1); {ищем следующую за текущей запись в файле}

read(f, u); {считываем найденную запись}

seek(f, i); {ищем текущую запись}

write(f, u); {записываем на её место считанную ранее последующую запись}

end;

if k = filesize(f) - 1 then clrscr; {если значение счетчика равно последней записи, то очищаем экран}

seek(f, filesize(f) - 1); {ищем последнюю запись в файле}

truncate(f); {отсекаем часть файла, начиная с текущей записи}

next := false; {устанавливаем признак того, что на следующую запись переходить не нужно}

end; {if ord(c) = 13}

if next then inc(k); {если установлен признак перехода, то увеличиваем значение счетчика}

end; {while k < filesize(f) do}

writeln('Вся база данных просмотрена, для возврата в меню нажмите любую клавишу');

repeat until 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);{считываем выбор пользователя}

for j := 1 to filesize(f) do {начинаем пузырьковую сортировку}

for i := 0 to filesize(f) - 2 do {количество повторений цикла на 1 меньше размера файла}

begin

seek(f, i); {ищем i-ю запись в файле}

read(f, u1); {считываем найденную запись из файла}

seek(f, i + 1); {ищем следующую за i-й запись в файле}

read(f, u2); {считываем найденную запись из файла}

if sort_type = 1 then {в зависимости от выбранного критерия сортировки устанавливаем значения переменных, которые будем сравнивать}

begin

p1 := u1.rost; {выбрана сортировка по росту, устанавливаем в переменные значения из поля рост}

p2 := u2.rost;

end

else

begin

p1 := u1.ves; {выбрана сортировка по весу, устанавливаем в переменные значения из поля вес}

p2 := u2.ves;

end;

if p1 > p2 then {сравниваем между собой значения переменных по которым идет сортировка. в случае, если первое больше второго, то меняем местами записи в файле}

begin

seek(f, i + 1);

write(f, u1);

seek(f, i);

write(f, u2);

end;

end;

clrscr; {очищаем экран}

writeln('---Список учеников, занесенных в базу данных---');

if sort_type = 1 then writeln('сортировка по росту') else writeln('сортировка по весу'); {в зависимости от выбранного вида сортировки выводим заголовок}

writeln('Фамилия':15, 'Имя':15, 'Пол':10, 'Год рождения':17, 'Вес':6, 'Рост':6);{выводим заголовки для полей записи}

for i := 0 to filesize(f) - 1 do {повторяем цикл столько раз, сколько записей содержится в файле}

begin

seek(f, i); {ищем i-ю запись в файле}

read(f, u1);{считываем найденную запись из файла}

if u1.pol then s := 'Мужской' else s := 'Женский'; {переводим логическое обозачение пола в строку}

writeln(u1.fam:15, u1.name:15, s:10, u1.data:17, u1.ves:6, u1.rost:6);{выводим данные из записи}

end;

writeln('Для выхода в главное меню нажмите любую клавишу');

repeat until 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); {считываем выбор пользователя}

case v 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 «Описание программы».

Размещено на Allbest.ru