Задача 15
Дан файл, содержащий расписание экзаменов: предмет, преподаватель, номер группы, дата экзамена. Определить расписание экзаменов, которые будут проводиться в указанную дату.
Решение
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | const n=10; type TExam = record predmet : string; prepod : string[20]; groupnumber : integer; date : string[10]; end; var exam : TExam; F : file of TExam; i: integer; d: string; begin write ('Vvedite datu (primer 01.06.2013)'); readln(d); Assign(F, 'exam.txt'); Reset(F); writeln ('Raspisaniye examenov na ',d); while not eof(F) do begin read(F, exam); if exam.date = d then begin writeln (exam.date, ' | ', exam.groupnumber, ' | ', exam.prepod, ' | ', exam.predmet); end; end; Close(F); end. |
Блок-схема