Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Климов. Лекции / Алг_яз_Лекция_21.pptx
Особенности: |
ОПЕРАТОР ENDFILE |
51 |
Пример:
СПример использования оператора ENDFILE WRITE (6,*) X
ENDFILE 6 REWIND 6 READ (6,*) Y
ОПЕРАТОР ENDFILE |
52 |
Оператор REWIND. |
Возвращает в начальную точку файл, связанный с определенным устройством.
Синтаксис: |
REWIND логический-номер-устройства
Где:
логический-номер-устройства –
это определитель заданного устройства.
ОПЕРАТОР REWIND |
53 |
Пример:
СПример использования оператора REWIND INTEGER А(80)
. . . . . . . . . .
WRITE (7,'(80I1)')А
. . . . . . . . . . .
. . . . . . . . . . .
REWIND 7
. . . . . . . . . . .
READ (7,'(80I1)')А
ОПЕРАТОР REWIND |
54 |
Оператор LOCKING. |
Закрывает файлы и записи прямого доступа. |
Синтаксис: |
|
LOCKING ([UNIT=] устройство, |
|
[RЕС=номер-записи,] |
|
[REСОRDS=число-записей,] |
|
[LОСKMODE='режим',] |
|
[ERR=метка-обработки-ошибки,] |
|
[IOSTAT=состояние]) |
|
ОПЕРАТОР LOCKING |
55 |
UNIT должен быть первым операндом, остальные могут следовать в любой последовательности!!!
56
ОПЕРАТОР LOCKING |
57 |
ОПЕРАТОР LOCKING |
58 |
ОПЕРАТОР LOCKING |
59 |
ОПЕРАТОР LOCKING |
60 |