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

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

c := readkey;

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

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

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

begin

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

begin

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

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

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

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

end;

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

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

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

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

end; {iford(c) = 13}

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

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

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

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

close(f);

end;

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

var u1, u2: pupil;

i, j, sort_type, p1, p2: integer;

s: string;

c: char;