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

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

end;{case i of}

end; {if ord(c) = 13 then}

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

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

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

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

close(f);

end;

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

var u: pupil;

i, k: integer;

next: boolean;

c: char;

s: string;

begin

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

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

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

begin

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

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

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

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 - выход в меню');