Основы программирования на языке фортран (стр. 13 )

Последовательность работы с внешними файлами такова:

1. Открыть внешний файл.

2. Прочитать данные из файла или записать данные в файл.

3. Закрыть внешний файл.

Примеры имен файлов исходных данных:

DATA.TXT MASSIV.DAT INDAT

Примеры имен файлов результатов:

REZULT.TXT MASSIV.REZ ITOG

Оператор открытия файла OPEN

Открытие файла данных осуществляется при помощи оператора OPEN.

Общий вид оператора OPEN:

OPEN (n, FILE=’<>’, ACCESS=, ACTION=)

где n – номер канала связи (целое число большее 0);

ACCESS – вид доступа к файлу (Direct указывается для файлов прямого доступа, Sequential (указывается по умолчанию) – для файлов последовательного доступа);

Action – вид действия над файлом (READ – файл для считывания информации, WRITE – для записи информации, READWRITE (указывается по умолчанию) – для считывания и для записи).

В операторе открытия файла могут использоваться и другие опции (BLANK, BLOCKSIZE, CARRIAGECONTROL, DELIM, ERR, FORM, IOFOCUS, IOSTAT, PAD, POSITION, RECL, SHARE, STATUS).

Например, запись OPEN (1, File=’ DATA. TXT’) означает, что файл DATA. TXT открыт как файл последовательного доступа (не указана опция ACCESS) и может использоваться как для считывания, так и для записи (не указана опция ACTION).

Примечание: канал связи может быть открыт только для одного файла.

Оператор закрытия файла CLOSE

Закрытие файла данных должно осуществляться после окончания работы с ним при помощи оператора:

CLOSE (n) ,

где n — номер канала связи, использованный для обмена информацией (тот же, что и в операторе OPEN).

Например, запись CLOSE (1) означает, что канал номер 1 закрывается для передачи данных (т. е. доступ к открытому внешнему файлу закрывается).

Примеры работы с файлами

В Фортране имеется возможность работать с файлами данных последовательного и прямого доступа.

Файл прямого доступа характеризуется тем, что доступ к нужной информации можно получить непосредственно, зная только ее расположение в файле. Это делает файлы прямого доступа сложными для использования.

Файл последовательного доступа характеризуется тем, что порядок следования данных в нем определяется последовательностью, в которой данные записываются на диск. Считывание из файла последовательного доступа возможно только в том же порядке, в котором данные хранятся в этом файле. Пересылка данных в файл последовательного доступа осуществляется при помощи оператора WRITE, считывание из файла – при помощи READ.

Данные, передаваемые в файл при помощи одного оператора WRITE, называются записью. Таким образом, сформированный файл состоит из последовательности записей. Считывание из файла также осуществляется записями, т. е. при пересылке данных в следующий элемент списка оператора READ выбирается следующая запись. Это необходимо учитывать при формировании файла.

После окончания пересылки данных в файл последовательного доступа и выполнения оператора CLOSE на диске формируется признак конца файла.

Пример. Составим программу для формирования файла последовательного доступа с именем DATA. В файл DATA должны быть переданы десять чисел, вводимых с клавиатуры. При формировании файла будем нумеровать каждую строку.

REAL x

OPEN (2, File= ’DATA’, ACTION=’Write’)

DO I=1, 10

PRINT *, ‘ введите ‘ , I , ‘-е число’

READ (*,*) x

WRITE (2,*) x

END DO

CLOSE (2)

END

Пояснения к примеру: оператором OPEN открывается файл DATA для записи и определяется канал с номером 2 для передачи данных. Далее в цикле по I последовательно вводятся числа и присваиваются переменной х. Каждое число сразу после ввода передается в файл DATA по каналу с номером 2. Оператор CLOSE закрывает файл.

Пример. Составим теперь программу, которая формирует массив В из данных, содержащихся в файле DATA.

DIMension В(10)

OPEN (4, File= ’DATA’, ACTION=’Read’)

DO I=1, 10

READ (4,*) B(I)

PRINT *, B(I)

END DO

CLOSE (4)

END

Пояснения к примеру: в 1-й строке описывается массив B, состоящий из 10 элементов. Оператор OPEN открывает файл DATA для чтения и определяет канал с номером 4 для передачи данных. Далее в цикле для каждого значения I последовательно считываются числа и присваиваются соответствующим элементам массива B(I). Каждое число сразу после считывания выводится в столбец на экран. Оператор CLOSE закрывает файл.

Литература

1. «Современный FORTRAN», Москва, 1998 г.

2. «FARTRAN для студентов», Москва, 1990 г.

3. , «Современный Фортран», Санкт-Петербург, 2004 г.

4. , «Фортран в задачах и примерах», Санкт-Петербург, 2004 г.

5. «FORTRAN основы программирования», Москва, 2007 г.

6. «Современный Фортран», Санкт-Петербург, 2004 г.

7. Сайт в Интернете: http://parallel. imm. uran. ru/

8. Сайт в Интернете: http://parallel. uran. ru/