Дополнение файла информацией

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

Задача:

В файле NAGR.DAT хранятся записи, содержащие значения U, I, cosφ, t. Нужно:

1) открыть файл, читать его до конца, затем дополнить его аналогичной информацией. Закончить дополнение файла по сбойной ситуации;

2) подсчитать и выдать количество записей в старом файле и в изменённом.

Первый способ дополнения файла информацией:

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

В файле неизвестное количество записей. Неизвестно: форматная запись или нет.

KZAP=0

7 READ (3,*, END=8) U,TOK,CF,T

KZAP=KZAP+1

GOTO 7

8 WRITE (6,*)’В файле было ’,KZAP,’ записей’

Считываем первую запись и счётчик зафиксирует эту запись (KZAP=KZAP+1). По GO TO 7 повторяется чтение новой записи. Когда чтение дойдёт до конца файла, управление передаётся на метку 8.НО ФАЙЛ НЕ ЗАКРЫВАЕТСЯ. Сейчас нам необходимо в цикле вводить информацию: U, I … с клавиатуры дисплея и записывать эту информацию в файл. Процесс ввода и записи можно повторять бесконечное число раз до возникновения сбойной ситуации.

BACKSPACE 3

WRITE (3,*) U,TOK,CF,T

С помощью последних 2-х строк происходит возвращение назад на одну запись в файле и восстановление последней записи. Без перезаписи последней строки невозможно осуществить дальнейшую запись информации в файл.

11 WRITE (6,*)’Введите U,I,cos f,T’

READ (5,*, ERR=10)U,TOK,CF,T

WRITE(3,*)U,TOK,CF,T

Процесс ввода информации с клавиатуры дисплея и записи в файл может повторяться бесконечное количество раз по GO TO 11. При наступлении сбойной ситуации управление будет передано на метку 10.

KZAP=KZAP+1