Рубрики: КОМПЬЮТЕРНАЯ ЛИТЕРАТУРА

про компютерное железо, документация, языки программирования

Фортран. Вce типы oпepaтopoв, coдepжaщиxcя в MC-Фортране.

КОМПЬЮТЕРНАЯ ЛИТЕРАТУРА

LIB.com.ua [электронная библиотека]: : ФОРТРАН — B этoй глaвe oпиcaны вce типы oпepaтopoв, coдepжaщиxcя в MC-Фортране, в oбщeпpинятыx тepминax.

ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
і SHARE= MODE= і SHARE= MODE= і
і і і
і COMPAT READWRITE і COMPAT READWRITE і
і READ і только READ і
і і начального WRITE і
і і процесса і
АДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ

ЪДДДДДДДДДДДДДДДДДДДДДДДДДДВДДДДДДДДДДДДДДДДДДДДДДДДДДДДДї
і Файл открыт с указанными і Можно последовательно отк- і
і величинами SHARE и MODE і рыть с указанными величина- і
і і ми SHARE и MODE і
ГДДДДДДДДДДДДДДДДДДДДДДДДДДЕДДДДДДДДДДДДДДДДДДДДДДДДДДДДДґ
і DENYRW READWRITE і Не может быть последова- і
і READ і тельно открыт і
і WRITE і і
і DENYWR READWRITE і DENYNONE READ і
і READ і DENYNONE READ і
і і DENYWR і
і WRITE і DENYNONE READ і
і і DENYRD і
і DENYRD READWRITE і DENYNONE WRITE і
і READ і DENYNONE WRITE і
і і DENYWR і
і WRITE і DENYNONE WRITE і
і і DENYRD і
і DENYNONE READWRITE і DENYNONE READWRITE і
і і READ і
і і WRITE і
і READ і DENYNONE READWRITE і
і і DENYWR READ і
і і WRITE і
і WRITE і DENYNONE READWRITE і
і і DENYRD READ і
і і WRITE і
АДДДДДДДДДДДДДДДДДДДДДДДДДДБДДДДДДДДДДДДДДДДДДДДДДДДДДДДДЩ
Таблица 3-5. Величины SHARE и MODE.

Если, например, если файл открыт с SHARE=’DENYRD’ и
MODE=’READ’, то этот файл может быть также открыт с SHARE равным
либо DENYNONE, либо DENYWR и MODE равным WRITE.

Примеры:
С Приглашение пользователю ввести имя файла
WRITE (*,'(A\)’)’ Outrit file name?
C Предлагаем, что имя файла в виде CHARACTER*64
C Чтение имени файла с клавиатуры
READ(*,'(A)’) FNAME
C Откроем файл как форматный, последовательный,
С связанный с устройством 7. Отметим, что указание
С доступа необязательно, так как оно совпадает со
С значением по умолчанию. Форматный — тоже
С по умолчанию.
OPEN (7,FILE=FNAME,ACCESS=’SEQUENTIAL’
+STATUS=’NEW’)
C Открытие существующего файла, созданного EDITOROM
C с именем DATA3.TXT, как устройства 3.
OPEN (3,FILE=’DATA3.TXT’)

ЬДДДДДДДДДДДДДДДДДД
Ы PARAMETER
ЯДДДДДДДДДДДДДДДДДД

Присваивает имя константе.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
PARAMETER ( P=e[,P=e]. . .)
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Где
P — имя
e — константа или константое выражение.
Константа может быть логической, символьной или относиться к
любому арифметическому типу. Константное выражение может быть толь-
ко логическим или целым.

Особенности.
Имя должно соответствовать по типу константе или константному
выражению. Если имя не имеет типа по умолчанию, а длина константы —
длина по умолчанию, имя должно быть описано в операторе описания
типа или в IMPLICIT до использования в тексте программы.
Имя может быть использовано в выражениях только той программ-
ной единицы, в которой оно определено.
Имя не может быть использовано в определении формата и в не-
которых других константах, например, в комплексной константе.
Примеры:
PARAMETER (NBLOCKS=10)
INTEGER REMAIN
PARAMETER (REMAIN=10/3, DIV=7.66)

ЬДДДДДДДДДДДДДД
Ы PAUSE
ЯДДДДДДДДДДДДДД

Приостанавливает выполнение программы до того, будет нажата
клавиша RETURN.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
PAUSE [n]
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Где
n — это символьная константа, либо строка из не более чем пяти
цифр.

Особенности.
Оператор PAUSE приостанавливает выполнение программы до ко-
манды продолжать. Параметр n, если он есть, выдается на экран как
приглашение, требующее ввода с клавиатуры. Если n нет, на экран
выдается такое сообщение :
PAUSE. Please press to continue.
(ПАУЗА. Пожалуйста для продолжения нажмите ).
После нажатия на клавишу Ввод (ENTER) выполнение программы
возобновится, как если бы был выполнен оператор CONTINUE.

Пример :
С Пример оператора PAUSE
IF (IMARN.EQ.0) GO TO 300
PAUSE ‘WARNING : INARM IS NONZERO’
300 CONTINUE

ЬДДДДДДДДДДДДДДДД
Ы PROGRAM
ЯДДДДДДДДДДДДДДДД

Определяет программную единицу как основную программу и при-
сваивает ей имя.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
PROGRAM имя программы
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Где
имя программы — это имя, которое Вы дали своей основной программе.
Имя программы — это глобальное имя. Поэтому оно не
может совпадать с именем любой внешней процедуры
или именем COMMON-блока.(Оно также является локаль-
ным именем основной программы и не должно вступать
в противоречие с любым локальным именем в основной
программе.) Оператор PROGRAM может быть только
первым оператором в основной программе.

Особенности.
Если у основной программы нет оператора PROGRAM, ей будет
присвоено имя MAIN. Имя MAIN тогда нельзя будет использовать для
именования любого другого объекта.
Пример :
PROGRAM GAUSS
REAL COEF (10,10), COST (10)
.
.
.
END

ЬДДДДДДДДДДДДД
Ы READ
ЯДДДДДДДДДДДДД

Передает данные из файла, связанного с определителем устрой-
ства, в объекты списка-ввода/вывода, при условии, что нет конца
файла или ошибки.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
READ (определитель устройства [,определитель формата]
[,IOSTAT=состояние] [,REC=номер записи] [,END=метка1]
[,ERR=метка2]) список-ввода/вывода
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Где
определитель-
устройства- это определитель требуемого устройства,
который должен быть первым параметром.
определитель-
формата- требуется для формального чтения как второй
параметр. Не должен появляться для неформатного
чтения. Остальные параметры если они есть, могут
появляться в любом порядке. состояние-
это целая переменная или элемент целого массива,
которому присваивается :

а) нуль, если встретилась ошибка или конец файла;
b) машинно-зависимая положительная целая величина,
если встретилась ошибка ;
с) машинно-зависимая отрицательная целая величина,
если встретится конец файла и не было ошибки.
номер записи — определен только для файлов прямого доступа если
номер записи определен для файла не типа прямого
доступа возникнет ошибка. Номер-записи — это
положительное целое выражение определяющее
положение записи (первая запись в файле имеет номер
равный 1) перед началом передачи данных. Если для
файла прямого доступа этого параметра нет, чтение
продолжится последовательно от позиции в файле.
метка 1- это необязатальная метка оператора в той же са-
мой программной единице, что и оператор READ. Если
этот параметр отсутствует, чтение дошедшее до конца
файла порождает ошибку счета. Если он есть, встре-
тившееся условие конца файла передает управление
на указанный выполняемый оператор.

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15