DIMENSION P(1000),T(1000)

OPEN (4,FILE=’NAGR.DAT’,STATUS=’OLD’)

I=1

KZ=0Задаем переменную КZ – счетчик количества прочитанных записей

11 READ (4,*,END=8) U,TOK,CF,T(I)При достижении конца файла управление будет передано на метку 8

P(I)=U*TOK*CF

KZ=KZ+1

I=I+1

GOTO 11

8 WRITE (6,*)’Количество записей=’,KZ

SQ=0.

DO 12 J=1,KZ–1

12 SQ=SQ+P(J)*(T(J+1)–T(J))

WRITE (6,*)’Количество электроэнергии =’,SQ

CLOSE(4)

PAUSE

STOP

END

Операторы для работы с записями в файле

К операторам для работы с записями в файле относят:

1) BACKSPACE n– позволяет вернуться на одну запись назад в файле, открытому по каналу n.

Пример:

BACKSPACE 3или BACKSPACE (UNIT=3)

Оператор BACKSPACE может повторяться несколько раз или находиться внутри цикла DO.

DO 2 I=1,4

BACKSPACE 3

Если при многократном повторном выполнении BACKAPACE 3 метка считывания записи переместится в самое начало файла, то операция остановится. Указатель считывания записи будет установлен на первую запись.

2)REWIND n – устанавливает указатель считывания записи в самое начало файла на первую запись. Файл открыт по каналу n;

3) ENDFILE n –записывает физический признак конца файла на том месте, где находится указатель считывания записи. После момента установки её в любом месте файла, информация после этого оператора обрезается.