Файловый тип данных Turbo Pascal

хранится некоторая информация.

В языке Паскаль файл представляет собой

последовательность элементов одного типа.
В файлах последовательного доступа, чтобы получить доступ к элементу, необходимо последовательно просмотреть все предыдущие.

f1: file of char;
f2: file of

integer;
f3: file;
t: text;

текстовые файлы;
типизированные файлы;
нетипизированные файлы.
Переменную файлового типа описывают

одним из трех способов:
file of тип - типизированный файл (указан тип компоненты);
text - текстовый файл;
file - нетипизированный файл.

элементы файла пронумерованы начиная с нуля.
С каждым файлом связан так

называемый файловый указатель. Это неявно описанная переменная, которая указывает на некоторый элемент файла. Все операции производятся с элементом, на который указывает файловый указатель.

(0)

(1)

(k)

(…)

(k+1)

(…)

Файловый указатель

файла.
Закрытие файла.
Признак конца файла.
Запись в файл.
Установка указателя.
Определение номера элемента.
Определение количества

элементов в файле.
Удаление и переименование файлов.

становятся доступными программе после связывания их с файловой переменной, объявленной

в программе. Все операции в программе производятся только с помощью связанной с ним файловой переменной.
Для установления связи служит процедура
Assign(<имя файловой переменной>,’<имя файла на диске>’);
Например: Assign(F1, ‘D:int.dat’);

внешнего файла, находящегося на диске, в оперативную память.
Для чтения из

файла необходимо открыть файл для чтения с помощью процедуры RESET(<имя файловой переменной>);
Чтение данных из файла выполняется процедурой
READ (<имя файловой переменной>,’<имя переменной>);

Примечание: переменная должна иметь тот же тип, что и компоненты файла.

закрыть посредством процедуры
CLOSE ();
Признак конца файла.
Так как

число элементов файла заранее не известно, необходимо уметь определять, что файл кончился. Для этого используется логическая функция
EOF (<имя файловой переменной>);
Она принимает истинное значение (True), если достигнут конец файла, и ложное (False) – в противном случае.

из оперативной памяти ЭВМ в файл на диске.
Для записи в

файл необходимо открыть файл для записи посредством процедуры
REWRITE(<имя файловой переменной>);
Запись данных в файл выполняется процедурой
WRITE(<имя файловой переменной>, <значение>);
После работы с файлом его необходимо закрыть.

экран:

Assign(F1, ‘A: INT.DAT’);
{связываем файловую переменную с файлом на диске}
Reset(F1);

{открываем файл для чтения}
While Not EOF(F1) Do
{пока не достигнут конец файла F1}
Begin
Read (F1, n); {считываем очередное число}
Write (n, ‘ ‘); {выводим его на экран}
End:
Close (F1); {закрываем файл}

целых чисел. Признак конца ввода чисел - 0.
Program Exampl_2;
Var F:

File Of Integer;
n:= Integer;
Begin
Assign (F, ‘DAN1.DAT’);
{связываем файловую переменную с файлом на диске}
Rewrite(F); {открываем файл для записи}
Writeln (‘Конец ввода чисел – 0’);
Repeat {Пока не будет введен 0}
Writeln (‘Ведите число’);
Readln(n); {Если введено число, отличное от 0, то записываем его в файл}
If n<>0 Then Write(F, n);
Until n=0; {Если введен 0, то выходим их цикла}
Close (F);
End.

числа. Вычислить сумму элементов файла и результат вместе с исходными

данными записать в файл DAN2.DAT.
2) Какие из следующих операторов правильные?
Assign(f1, 'A:STR1.DAT') ;
Reset(f1,f2) ;
Rewrite;
Assign(f2,'C:\TT\TAB1.DAT')
Rewrite (f1);

на строки. Строки могут иметь различную длину, и в конце

каждой строки стоит признак конца строки. Для их описания используется служебное слово Text:
Var A: Text;

и функции, что и для обработки обычных типизированных файлов.
Для

связывания файловой переменной с файлом на диске употребляется процедура Assign.
Для чтения данных применяется процедура Read.
Если необходимо после чтения данных перейти на следующую строку, то используется процедура Readln.

данные и перейти к следующей строке, то можно использовать процедуру

Writeln, которая записывает в файл признак конца строки и устанавливает файловый указатель на начало следующей строки.

логическая функция
Eoln (),
которая принимает

значение True, если достигнут конец строки.

Append ().
Она открывает файл для

"дозаписи", помещая файловый указатель в конец файла.

строке может быть несколько чисел, которые разделяются пробелом. Вывести на

экран все числа с учетом разбиения на строки и подсчитать количество элементов в каждой строке.

7
-1 -2 -3 -4
-1 -2
Этот файл можно создать:
Создать новый файл

(меню File команда New)
Записать все числа в строках через пробелы.
Сохранить его, например, A:\UNT1.TXT
Или написать программу для создания текстового файла.

Assign (F, 'UNT1.TXT');
{Связываем файловую

переменную с файлом на диске}
Reset (F); {Открываем файл для чтения}
While Not Eof(F) Do {Пока не достигнут конец файла}
Begin
k:=0; {Счетчик элементов строки}
While Not Eoln(F) Do {Пока не достигнут конец строки}
Begin
Read(F, x) ; {Считываем очередное число)
Write(x,' '); {Выводим его на экран}
Inc(k); {Увеличиваем счетчик }
End;
Writeln( ' В строке ', k, ' элементов') ;
Readln(F); {Переходим к следующей строке файла}
End;
Close(F); {Закрываем файл}
Readln;
End.