Расширенная форма оператора READ

READ(<Nустр>,<Mформ>,ERR=<Merr>,END=<Mend>,IOSTAT=<i>)<список> <список> - список элементов ввода>

<Merr> – метка оператора, на который передается управление в случае возникновения ошибки ввода;

<Mend> – метка оператора, на который передается управление в случае возникновения ситуации "конец файла" на устройстве ввода.

<i> – переменная целого типа.

Установки	Ситуация
IOSTAT	END	ERR	Конец файла	Ошибка
Нет	нет	Нет	Ошибка этапа выполнения	Ошибка этапа выполнения
Нет	нет	Да	Переход к <M err>	Переход к <M err>
Нет	да	Нет	Переход к <M end>	Ошибка этапа выполнения
Нет	да	Да	Переход к <M end>	Переход к <M err>
Да	нет	Нет	<i> не ноль, выполн прод	<i> не ноль, выполн прод
Да	нет	Да	<i> не ноль, выполн прод	<i> не ноль, к <M err>
Да	да	Нет	<i> не ноль, к <M end>	<i> не ноль, выполн прод
Да	да	Да	<i> не ноль, к <M end>	<i> не ноль, к <M err>

Управляющие символы при печати

При осуществлении вывода в текстовый файл (в частности, при выводе данных на экран монитора) используется договоренность, что первый символ каждой записи является управляющим. Это означает, что этот символ не записывается в файл, а используется для управления записями файла. Вот некоторые действия, определяемые управляющими символами:

Управляющий символ	Действие
' ' (пробел)	переход на следующую логическую запись
'+'	в начало той же логической записи
'0'	вставляется пустая логическая запись и переход на следующую

Имеется возможность «отключить» эту договоренность.

Представление целого и действительного в памяти.

(Используется спецификация Z):

Величина	Шестнадцатеричное представление	Машинное представление
INTEGER
-1	FFFFFFFF	FFFFFFFF
	0000000A	0A000000
REAL
0.
1.	3F800000	0000803F
-1.	BF800000	000080BF
10.
100.	42C80000	0000C842

 

1 бит - знак числа, 8 бит - порядок, 23 биты – мантисса

Действительный 0. 0000 0000 0|000 0000 0000 0000 0000 0000

Действительная 1 0011 1111 1|000 0000 0000 0000 0000 0000

Действительная 2. 0100 0000 0|000 0000 0000 0000 0000 0000

Действительная 4. 0100 0000 1|000 0000 0000 0000 0000 0000

Действительная 8. 0100 0001 0|000 0000 0000 0000 0000 0000

Действительная -1. 1011 1111 1|000 0000 0000 0000 0000 0000

Действительная 10. 0100 0001 0|010 0000 0000 0000 0000 0000

Действительная 100. 0100 0010 1|100 1000 0000 0000 0000 0000

Мантисса (со слепой единицей) умножается на 2 в степени <показатель> - 1111111

Пример

DIMENSION A(10),B(3,2)

WRITE(*,77)I,X,J,Y,A,B,(A(I),I=1,3),((B(I,J),I=1,3),J=1,2)

77 FORMAT(' ',2(I5,F10.3),/,5E10.3,/,5E10.3,/,(3F10.5))

 

При несоответствии типа переменной и спецификации данное воспринимается как относящееся к типу спецификации без преобразования. Неинициализированные данные представляются нулевыми значениями.

Полагая, что все данные не инициализированы, получаем выдачу:

^^^^0^^^^^^.000^^^^0^^^^^^.000

^.000E+00^^.000E+00^^.000E+00^^.000E+00^^.000E+00

^.000E+00^^.000E+00^^.000E+00^^.000E+00^^.000E+00

^.000E+00^^.000E+00^^.000E+00

...

^.000E+00^^.000E+00^^.000E+00