FORMAT (F6.2,I4,E9.3)

Прочитанные исходные данные выводятся в файл результатов

WRITE (4,12) A,I,B

12 FORMAT (2X,’Исходные данные’/4X,’A=’,F7.2,’ I=’,I4,’ B=’,G12.4)

Формат вывода данных может отличаться от формата ввода.

GOTO 13

11 WRITE (6,*) ’При вводе ИД произошёл сбой. Введите ИД заново по

*формату F6.2, I4, E9.3’

GO TO 7

13 D=A+B

…

Если при вводе информации в данной программе произошла ошибка, то управление передаётся на метку 11. По этой метке мы выдаём текстовое сообщение об ошибке и подсказку, как эту ошибку исправить.

После этого повторяем ввод исходных данных.

Обработка ситуации “конец файла”:

Обработка ситуаций “конец файла” используется при чтении файла до конца. В обычном режиме без обработки ситуаций “конец файла” произойдёт прекращение выполнения программы из-за возникновения фатальной ошибки.

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

7 READ (4,8,END=11) A,I,B

FORMAT (F6.2,I4,E9.3)

WRITE (6,12) A,I,B

12 FORMAT (2X,’Прочитали’,4X,’A=’,F7.2,’ I=’,I4,’ B=’,G11.4)

WRITE (6,*)’Вычисляем’

…

GO TO 7

11 WRITE (6,*)’При чтении ИД обнаружен конец файла. Конец расчета’

…

STOP

END

Задача:

Система передачи данных записывала в файл информацию U, I, cosφ, t. При каждом скачкообразном изменении нагрузки записывается новая запись (количество записей неизвестно). Подсчитать количество записанных записей, а так же количество электроэнергии, потреблённой нагрузкой за истекший период.

Открываем файл, читаем исходные данные и формируем массивы P и t., одновременно считая количество записей. При достижении конца файла переходим к вычислению сумм и выводу результата.