Скачиваний:
21
Добавлен:
12.07.2020
Размер:
301.67 Кб
Скачать

Лабораторные работы по информатике для специальности «Моделирование и исследование операций в организационно-технических системах»

begin

read(F2, Buf); write(ResFile, Buf);

end;{while} end;{if}

//вывод результирующего файла на экран writeln('Sort Array');

Seek(ResFile, 0); //переходим на начало файла while not EOF(ResFile) do

begin

read(ResFile, Buf); write(Buf, ' ');

end;

//закрываем все открытые файлы

CloseFile(F1);

CloseFile(F2);

CloseFile(ResFile);

writeln;

writeln('Press Enter to Exit'); readln;

end.

Работа с таблицами

С помощью типизированных файлов удобно организовывать простые базы данных, таблицы, справочники и т.п. Пример реализации простого справочника приведен в ниже приведенной программе. Для этого перепишем программу из лабораторной работы № 5 (листинг 2). Перепишем программу таким образом, чтобы для хранения данных она использовала не массив, а типизированный файл.

Листинг 7

program RecFile;

{$APPTYPE CONSOLE}

const TableName='Students.dat';

type TStudent=record

name :string[12]; //имя familia:string[16]; //фамилия

gruppa :Integer;

//группа

end;

 

var F:file of TStudent; //таблица

Count:integer;

//число строк в таблице

MenuState:byte;

//код выбранного действия

i:integer;

 

Rec:TStudent;

 

begin

 

AssignFile(F, TableName); {$I-}

Reset(F);

if IOResult<>0 then begin

Rewrite(F);

if IOResult<>0 then Halt(1);