Read(m,*) a

Цей оператор зчитує окремий запис з файлу, що має ідентифікатор пристрою UNIT=m і привласнює значення запису змінній а.

Ідентично перетворюється оператор WRITE для запису у файл:

OPEN(n, FILE = ’ім'я.REZ’, STATUS=’NEW’)

WRITE(n,*) z

Для введення/виводу даних можуть використовуватися формати. У цьому випадку введення/вивід можна організувати наступним чином:

1. З використанням оператора FORMAT, що містить список форматів:

WRITE (*, m) список введення / виводу

m FORMAT (список форматів)

Оператор FORMAT може знаходитися в будь-якому місці програми, так як передача управління на нього не відбувається. Також на нього можна посилатися кілька разів. Список форматів повинен відповідати списку введення/виводу.

2.З використанням символьного виразу, значенням якого є список форматів, укладений в дужки:

WRITE (*, ‘(список форматів)’) список введення / виводу

Перший варіант організації форматного введення/виводу краще застосовувати при довгому списку введення/виводу, другий - при одиничних даних.

Для завдання способу перетворення даних використовуються повторювані формати:

• Iw  формат для перетворення цілих змінних;

• Fw.d  формат для перетворення речових змінних без експоненти;

• Ew.d[Ee] формат для перетворення речових змінних в експоненціальній формі;

• A[w]  формат для перетворення символьних змінних.

У наведених форматах w  розмір поля вводу/виводу для даного у зовнішньому поданні, d  кількість знаків дробової частини числа, e  кількість цифр у поле введення/виводу для експоненти.

Приклад. Зчитати дані з файлу з використанням форматного зчитування і записати їх у файл результатів, змінивши вид запису.

Файл даних Файл результатів

_14.57_1.0 _ _48.47 Вихідні дані

Вихідні дані _ _56_ _47_459

_ _ 56 _ _ 47 _ _ 459 Результати

Результати а=14.57 _ b=1 _ с=48.5

(Символ «_» вказує на наявність пробілів)

PROGRAM EXAMPLE

REAL A, B, C ! опис змінних

INTEGER K, L, M ! для роботи с даними

CHARACTER Z ! в файлах

С Опис вихідного файлу послідовного доступу

OPEN(1, FILE=’IN.DAT’, STATUS=’OLD’)

С Опис нового файлу прямого доступу

OPEN(2, FILE=’REZ.DAT’, STATUS=’NEW’, ACCESS=’DIRECT’,

* FORM=’FORMATTED’, RECL=30)

С Зчитування першої строки

READ(1,10) A, B, C

10 FORMAT(F6.2, F4.1, F7.2)

С Зміна типу даних

K=B

С Запис першої строки

WRITE(2, 20, REC=4) ‘A=’, A, ‘B=’, K, ‘C=’, C

20 FORMAT(A2, F5.2, A3, I1, A3, F4.1)

С Друга строчка

READ(1, ‘(A)’) Z

WRITE(2, ’(A)’, REC=1) Z

С Третя строчка

READ(1, 30) K, L, M

30 FORMAT(I4, I4, I5)

WRITE(2, 40, REC=1) K,L,M

40 FORMAT(3I4)

С Четверта строчка

READ(1, ‘(A)’) Z

WRITE(2, ’(A)’, REC=3) Z

END

Коментарі до програми: в програмі використовуються два типи файлів: послідовного і прямого доступу. Файл послідовного доступу, який використовується як вихідний, дозволяє зчитувати інформацію построчно. Файл прямого доступу, використовуваний як файл результатів, дозволяє вказати номер рядка, на який виводиться інформація (REC).

Звіт про лабораторну роботу повинен містити короткий опис роботи та текст програми.

Лабораторна робота № 6