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

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.polthens := 'Мужской' elses := 'Женский'; {переводим логическое обозачение пола в строку}

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

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

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

readln(c);

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

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

begin

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

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

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

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

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

end;

ifc = 'м' thenpl := trueelsepl := false; {переводим символьное обозначение пола в логическое}

u.pol := pl; {заносим логическое значение пола в запись}