Алгоритм

1.1. Ввести Имя_Набора_Данных.

1.2. Связать Файл с Набором_Данных.

1.3. Открыть Файл для чтения.

2.1. Количество_строк = 0.

2.2.Пока не конец файла выполнять

2.2.1. Считать из Файла строку;

2.2.2. Количество_строк = Количество_строк +1;

2.2.3. Вывести строку на экран;

2.3. Вывести Количество_строк.

2.4. Закрыть файл.

3. Закончить.

Программа будет иметь вид

Program VivodFile;

Var

Tx : Text;

FilName,Str : String;

KolStr : Integer;

Begin

Writeln(’Введите имя НД ’);

Readln(FilName); {п. 1.1}

Assign(Tx,FilName); {п. 1.2}

Reset(Tx,FilName); {п. 1.3}

KolStr := 0; {п. 2.1}

Writeln(’Содержимое набора’);

While Not Eof(Tx) do {п. 2.2}

Begin

Readln (Tx,Str);

KolStr := KolStr+1;

Writeln(Str); {вывод на экран}

End;

Writeln(’Количество строк в наборе данных - ’, kolstr);

Close(Tx); {п. 2.4}

End.

Типизированные файлы

Характерные особенности типизированных файлов:

1) файл может состоять из записей любого типа;

Var

Имя : File Of Тип_Записей;

где Тип_Записей – скалярный (число, символ) или сложный (массив, тип Record и др.).

Пример.Type

Anketa = Record

Fam,Im,Ot : String[10];

Numz : Integer;

O : Array[1..5] Of Integer;

End;

Var

FilAnk : file of Anketa;

Dan : File Of Real;

Fl : File Of Char;

Rank : Anketa;

X : Real;

Операции чтения и записи для типизированных файлов записываются в следующем виде:

Read(Файл, Список_ввода);

Write(Файл, Список_вывода);

Пример.Write(FilAnk,Rank);