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 –записывает физический признак конца файла на том месте, где находится указатель считывания записи. После момента установки её в любом месте файла, информация после этого оператора обрезается.









Дата добавления: 2015-06-10; просмотров: 421; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

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

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2020 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.005 сек.