Практические / prakt11 / 11-1

PROGRAM KAD;
TYPE ZAP=RECORD
FAM: STRING;
GOD: 1900 ..2005;
END;
VAR F: FILE OF ZAP;
Z: ZAP;
K, N,I,g: INTEGER;
PROCEDURE CHTENIE;
BEGIN
ASSIGN (F,'KAD.DAT'); {процедура чтения из файла kad.dat}
RESET (F);
I:=1;
WHILE NOT EOF (F) DO
BEGIN
READ (F, Z);
SEEK (F, I);
I:=I+1;
g:=i-1;
WRITELN (g,' ', Z.FAM,' ', Z.GOD);
END;
CLOSE (F)
END;
PROCEDURE VVOD;{процедура ввода данных в поля записи и в файл}
BEGIN
WRITELN('СКОЛЬКО БУДЕМ ВВОДИТЬ ЗАПИСЕЙ?');
READLN (N);
FOR I:=1 TO N DO
BEGIN
writeln('номер   ' ,i);
WRITELN ('ФАМИЛИЯ'); READLN (Z.FAM);
 {ввод данных}

WRITELN ('ГОД РОЖД.'); READLN (Z.GOD);
 { в запись }
WRITE(F,Z);
 {ввод записи в файл}
END;  CLOSE (F);
END;
PROCEDURE NOVY;
 {процедура открытия файла для записи}
BEGIN
ASSIGN (F,'KAD.DAT');
REWRITE (F);
VVOD;
 {использование ранее описанной процедуры vvod}
END;
PROCEDURE DOPOLNENIE; {процедура дополнения записей в файл}
BEGIN
ASSIGN(F,'KAD.DAT');
RESET(F); {при таком открытии файла его содержимое не уничтожается}
SEEK (F,FILESIZE(F));
VVOD;
END;
PROCEDURE MENU; {процедура MENU позволяет выбирать нужную
операцию}
BEGIN
REPEAT
WRITELN(' 1 ЗАПИСЬ В НОВЫЙ ФАЙЛ');
WRITELN(' 2 ЧТЕНИЕ ');
WRITELN(' 3 ДОПОЛНЕНИЕ ');
WRITELN(' 4 КОНЕЦ РАБОТЫ ');
READLN (K);
CASE K OF
1:NOVY;
 {вызов ранее описанных процедур}
2:CHTENIE;
3:DOPOLNENIE
END;
UNTIL K=4;
END;
BEGIN
MENU
END.
{это и есть программа (раздел операторов)}