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

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

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

ifu.polthens := 'Мужской' elses := 'Женский'; {переводим логическое обозачение пола в строку}

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

writeln;

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

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

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

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

caseiof{в зависимости от выбора пользователя выполняем}

1: begin {если пользователь ввел "1", то редактируем фамилию}

writeln('Старое значение поля "Фамилия" - ', u.fam); {выводим на экран фамилию, указанную в записи}

write('Введите новое значение: '); {выводим запрос для ввода измененной фамилии}

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

u.fam := s; {заносим значение введенное пользователем в запись}