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

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

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

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;