WRITE (3,11)

11 FORMAT (1X,70(’=’))

CLOSE(3)

PAUSE

STOP

END

Предполагаем, что программа INDUK находится в библиотеке стандартных программ. Но если эта программа написана пользователем и хранится в виде отдельного файла в этом же каталоге, то её можно подключить к данной головной программе с помощью метакоманды:

$INCLUDE.

Она записывается в том месте текста головной программы, куда нужно ставить текст подпрограммы. Записываем с первой позиции строки метакоманду:

$INCLUDE: ’INDUK.FOR’

Если этот файл находится в другом месте, то необходимо указать полный путь к нему $INCLUDE: ’D:\Fortran\MyProg\INDUK.FOR’

Метакоманда начинается символом “ $ ” с первой позиции, а в данном случае INCLUDE включает в текст программы имя файла, который указан в текстовой строке.

35. Обработка сбойных ситуаций и ситуаций “конец файла” при вводе-выводе информации

Оператор ввода имеет структуру следующего вида:

READ (n, m₁, ERR=m₂, END=m₃) список

где n – номер канала ввода;

m₁ – метка оператора FORMAT или “ * ”;

m₂ – метка оператора, по которому передаётся управление, если при вводе информации произошёл сбой по чтению.

Сбойная ситуации наступает в том случае, когда вводимая информация не соответствует описанию полей оператора FORMAT. Например: целое число вводится с десятичной точкой; вещественное число вводится с двумя минусами; число не соответствует формату; вместо числовой информации вводится текстовая информация (распространённая ошибка); при форматном вводе ставится запятая, которая является ошибкой при отделении одного числа от другого.

m₃ – метка, на которую передаётся управление, если при попытке чтения очередной записи обнаружен конец файла.

В обычном режиме во время чтения информации при возникновении ошибки задача снимается с выполнения. Из-за досадной ошибки может быть потеряно много расчетного времени. Но при обработке сбойной ситуации этого можно избежать.

Обработка сбойной ситуации:

Пример обработки сбойных ситуаций при вводе исходных данных с экрана дисплея:

OPEN (4,FILE=’REZ.DAT’)

7 WRITE (6,*) ’Введите A,I,B’

READ (5,8,ERR=11) A, I, B