Читайте также:
|
|
Файл – это однотипная совокупность данных, имеющая имя, расположенная последовательно на внешнем носителе. Операция ввода – это копирование данных с внешнего запоминающего устройства (ВЗУ) в оперативную память (ОП). Операция вывода – наоборот: из ОП в ВЗУ. Ввод – это read, а вывод – write.
Read [ln] [([< имя файла >,] < список объектов в/в > [:F[:D]])];
Write
Ln – только для текстовых файлов.
Примеры: read (a, b, c); read (CON, a, b, c);
CON – это консоль.
Если имя файла опущено, то подразумевается, что вывод идёт на экран.
Writeln (PRN, ‘HELLO’);
Uses Printer – для вывода на печать программы.
Каждый элемент ввода-вывода можно дополнять форматом, показывающим количество выделяемого места. Формат F указывает, сколько символов всего, а формат D – сколько символов после десятичной запятой.
Примеры: writeln (2.5:7:3); - выравнивание по правому краю: 2.500
Writeln(2.5:-7:3); - выравнивание по левому краю:2.500.
Writeln(true:3); - tru
Writeln(false:8); - false.
Read (i);
If i=0 then b:= false else b:= true;
У файла есть метка начала файла и метка конца файла. Функция определения конца файла - EOF (f) принимает два значения: либо TRUE, либо FALSE.
Пример: i:= 1;
While not EOF (f) do
Begin
Read(f, A[i]);
I:= i+1;
End;
В языке Pascal выделяется 3 вида файлов:
1) Текстовый файл – тип TEXT;
2) Типизированный файл – тип FILE OF <тип>;
3) Нетипизированный файл – тип FILE.
Примеры:
Type product=record
Name: string;
Code: integer;
Cost: real
End;
Var f1: text;
F2: file of char;
F3: file of product;
F4: file;
Доступ к файлам:
Assign (<ф.п.>, <имя файла или л.у.>);
Связывание файловой переменной с именем физического файла или логического устройства, например:
Assign (f, ’A:\IVANOV\NAME.DAT’);
Открыть файл в Pascal можно для чтения, для записи, а также для чтения и записи одновременно.
Открытие файла для чтения – RESET (<ф. п.>);
Например: RESET (f);
Открытие файла для записи – REWRITE (<ф. п.>);
Например: REWRITE (f);
Для текстовых файлов, открытых для чтения, нельзя использовать оператор WRITE[LN], а для открытых на запись – нельзя использовать существующие файлы (их содержимое будет уничтожено). Если нужно добавить текст в существующий файл, то используется процедура APPEND (<ф. п.>);
Для закрытия файла используется процедура CLOSE (<ф. п.>); эта процедура обеспечивает сохранение данных, если файл был открыт процедурами REWRITE или APPEND. После закрытия файл можно снова открыть без использования ASSIGN.
Для переименования файла используется процедура RENAME (<ф. п.>, <новое имя>); например:
RENAME (f, ‘A:\PETROV\FIO.DAT’);
Процедура ERASE (<ф. п.>); уничтожает файл. Существуют и другие процедуры и функции.
В типизированных файлах длина любого компонента строго постоянна. При открытии файла указатель стоит на первом компоненте с номером 0 (в случае с APPEND после последнего компонента).
Процедура READ обеспечивает чтение очередных компонент:
READ (<ф. п.>, <список ввода>);
Процедура WRITE записывает очередные компоненты в типизированный файл:
WRITE (<ф. п.>, <список вывода>);
Процедура SEEK смещает указатель к требуемому компоненту:
SEEK (<ф. п.>, <№ компонента>);
Например: SEEK (f, 8);
Вывод в файл:
VAR f: file of integer;
Begin
Assign (f, ‘NAME’);
Rewrite (f);
Write (f, 25);
Write (f, 37);
…
Seek (f, 5);
Write(f, 30);
…
Close (f);
Ввод из файла:
VAR f: file of integer;
I: integer;
Begin
Reset (f);
Read (f, i);
Пример:
Program P;
VAR f: file of integer;
I, n: integer;
Begin
Assign (f, ‘D:\TTT.TXT’);
Rewrite (f);
FOR i:= 1 TO 10 do
Begin
N:=sqr (i);
Write (f, n);
End;
Close (f);
Reset (f);
FOR i:=1 TO FILESIZE (f) do
Begin
Read (f, n);
Writeln (n: 5);
End;
Close (f);
End.
Методическое пособие
для проведения занятия по дисциплине
«Организация защиты населения и территорий»
Тема 1.2. Силы и средства защиты населения и территорий
Время – 2 часа.
Форма проведения занятия - лекция.
Изучаемый вопрос: Единая государственная система предупреждения и ликвидации последствий чрезвычайных ситуаций (РСЧС) и режимы ее функционирования и системы оповещения
Дата добавления: 2015-01-05; просмотров: 28 | Поможем написать вашу работу | Нарушение авторских прав |