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

readln(n);

u.data := n;

writeln('Введите вес ученика');

readln(n);

u.ves := n;

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

readln(n);

u.rost := n;

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

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

write(f,u); {дописываем в конец файла запись об ученике}

close(f); {закрываем файл}

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

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

c := readkey;

end;

procedureedit; {процедура редактирования записи в файле}

var u: pupil;

s: string;

n, i, k: integer;

pl, ok, next: boolean;

c: char;

begin

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

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

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

begin

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

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