Программа 11.1

PROGRAM MY_FILE;

USES CRT; {Подключение модуля CRT}

TYPE {Описание структуры файла}

ZAP=RECORD

INDEX: STRING[7];

FAM: STRING[20];

MARKER: ARRAY[1..5] OF CHAR

END;

VAR

SESSYA: FILE OF ZAP;

K, L: INTEGER;

X: ZAP;

Рис. 11.1. Блок-схема программы создания файла.

BEGIN

CLRSCR;

K:=0;

{Связь файловой переменной SESSYA

с файлом 'SESSYA' в текущем каталоге}

ASSIGN (SESSYA, 'SESSYA');

{Файл открывается для записи}

REWRITE (SESSYA);

{Создание файла}

WRITELN ('Для ввода данных нажмите Enter');

WRITELN ('Для окончания работы нажмите *');

While Not (ReadKey='*') Do

BEGIN

WRITELN ('-----------------------------------------------');

WRITE ('Введите индекс группы – 7 символов: ');

READLN (X.INDEX);

WRITE ('Введите фамилию <=20 символов: ');

READLN (X.FAM);

WRITE ('Введите 5 оценок через Enter: ');

FOR L:=1 TO 5 READLN (X.MARKER[L]);

K:=K+1;

WRITE (SESSYA,X);

WRITELN ('Для продолжения ввода нажмите Enter');

WRITELN ('Для окончания ввода введите *');

END;

CLRSCR;

WRITELN ('B файле ',K:5,' записей');

{Файл открывается для чтения}

RESET (SESSYA);

{Вывод данных файла на экран}

WHILE NOT EOF (SESSYA) DO

BEGIN

READ (SESSYA,X);

WRITE (X.INDEX:8,X.FAM:22);

FOR L:=1 TO 5 WRITE (X.MARKER[L]:2);

WRITELN;

END;

WRITELN ('Конец файла');

CLOSE (SESSYA);

ReadKey;

END.