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

end;

end;

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

writeln('---Список учеников, занесенных в базу данных---');

ifsort_type = 1 thenwriteln('сортировка по росту') elsewriteln('сортировка по весу'); {в зависимости от выбранного вида сортировки выводим заголовок}

writeln('Фамилия':15, 'Имя':15, 'Пол':10, 'Год рождения':17, 'Вес':6, 'Рост':6);{выводим заголовки для полей записи}

fori := 0 tofilesize(f) - 1 do {повторяем цикл столько раз, сколько записей содержится в файле}

begin

seek(f, i); {ищем i-ю запись в файле}

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

ifu1.polthens := 'Мужской' elses := 'Женский'; {переводим логическое обозачение пола в строку}

writeln(u1.fam:15, u1.name:15, s:10, u1.data:17, u1.ves:6, u1.rost:6);{выводим данные из записи}

end;

writeln('Для выхода в главное меню нажмите любую клавишу');

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

c := readkey;

close(f);

end;

begin

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

assign(f, 'data.txt'); {связываем имя файла данных с файловой переменной}

knc := false; {устанавливаем признак окончания программы в ложное значение}

repeat {повторяем, пока признак окончания программы не станет истинным}

writeln('---База данных "Ученики"---'); {выводим наименование программы и меню}

writeln('Выберите действия:');

writeln('1 - Добавление данных в базу');

writeln('2 - Редактирование данных');

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

writeln('4 - Сортировка');