Вводится имя большего размера, чем 8 позиций, то будут восприняты только первые 8 символов и они будут записаны в переменную IMFILE;

Задача:

Файл с именем TEX.DAT содержит две записи: фамилию и адрес.

Сёмин А.В.

ул. Могилёвская д.37 кв.6

Задача: Прочитать первую строку как переменную, вторую строку как текстовый массив. Вывести считанную информацию форматно.

Разобьём строки на переменные, в которые мы и будем производить считывание.

Сёмин А.В.

АT

ул. Могилёвская д.37 кв.6

В1 В2 В3 В4 В5

CHARACTER*10 AT,B(5)*5

С Пример 1: w=len

Количество позиций ширины поля w оператора Format совпадает с длиной переменной, описанной в CHARACTER*10 AT,B(5)*5

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

READ (4,8) AT,(B(J),J=1,5)

Открываем TEX.DAT, читаем из него переменную АT и массив В.

8 FORMAT (A10/5A5)