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

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

Фортран. В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.

метка 2 — необязательная метка оператора в той же самой
программной единице, что и оператор READ. Если
этот параметр отсутствует, ошибка ввода/вывода
порождает ошибку счета. Если он есть, ошибка вво-
да/вывода передает управление на указанный выпол-
няемый оператор.
Список-ввода-вывода- определяет объекты, в которые
передаются величины из файла.
Он может быть пустым, но обычно содержит
объекты для ввода и неявные циклы, разделенные
запятыми.
Особенности.
Если чтение внутреннее, источником ввода служит символьная
переменная или массив символьных элементов; если чтение не внут-
реннее, источником ввода является внешнее устройство. Для более
подобной информации об определении внешних устройств и других эле-
ментов операторов ввода/вывода смотрите часть 4.
Если файл не был открыт оператором OPEN, выполняется операция
OPEN по умолчанию. Эта операция эквивалентна выполнению следующего
оператора :
OPEN (оператор устройства, FILE=», STATUS=’OLD’,
ACCESS=’SEQUENTIAL’,FORM=’формат’
Формат — это FORMATTED для форматного READ и UNFORMATTED для
не форматного READ. Смотрите описание оператора OPEN для понимания
действия параметра FILE=.

Пример:
С Описание двухмерного массива
DIMENSION IA(10,20)
С Чтение в границы массива. Эти границы не превышают
С 10 и 20 соответственно. Затем чтение в массив неявным
С циклом DO с вводным форматом 8 колонок по 5 цифр.
READ (3,990) IL, JL, ((IA(I,J), J=1, JL), I=1, IL)
990 FORMAT (215/,(8I5))

ЬДДДДДДДДДДДДДДД
Ы RETURN
ЯДДДДДДДДДДДДДДД

Возвращает управление в вызываемую программную единицу.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
RETURN
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД

RETURN может появляться только в функции или подпрограмме.

Особенности.
Выполнение оператора RETURN заканчивает выполнение всей под-
программы или функции. Если оператор RETURN находится в функции,
величине функции присваивается текущее значение переменной с тем
же именем, что и функция.
Выполнение оператора END в функции или подпрограмме эквива-
лентно выполнению оператора RETURN. Поэтому для окончания функции
или подпрограммы требуется или RETURN или END,но не оба:

Пример
С Пример оператора RETURN
С Эта подпрограмма выполняет цикл
С пока вы не наберете «Y»
SUBROUTINE LOOP
CHARACTER IN
C
10 READ (*,'(A1)’) IN
IF (IN.EG.’Y’) RETURN
GO TO
C Неявный RETURN
END

ЬДДДДДДДДДДДДДДД
Ы REWIND
ЯДДДДДДДДДДДДДДД

Возвращает в начальную точку файл, связанный с определенным
устройством.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
REWIND определитель устройства
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Где определитель-устройства
— это заданный определитель внешнего устройства.
Для более подробной информации об определителях
устройств и других элементах операторов ввода/вы-
вода смотрите часть 4 «Система ввода/вывода».
Пример
INTEGER A(80)
.
WRITE (7,'(80I1)’)A
.
.
REWIND
.
READ (7,'(80I1)’)A

ЬДДДДДДДДДДДД
Ы SAVE
ЯДДДДДДДДДДДД

Заставляет переменные запоминать их значения при вызовах
процедур, в которых они определены.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
SAVE имя1 [,имя]…
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Где имя — это имя COMMON-блока (заключенное в косые чер-
точки), переменной или массива. После заполнения,
если в текущую процедуру еще раз войти, то назван-
ные переменные и все переменные в названном COMMON-
блоке содержит определенные величины.
Пример
С Пример оператора SAVE
SAVE /MYCOM/, MYVAR

ЬДДДДДДДДДДДДДДДДДДДДДДДДД
Ы Функция-оператор
ЯДДДДДДДДДДДДДДДДДДДДДДДДД

Определяет функцию в виде одного оператора.
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
имя-функции ([параметр[,параметр]…])=выражение
ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
Где имя-функции параметр выражение
— это имя функции-оператора
— это имя формального параметра
— это любое выражение
Особенности.
Функция оператор подобна по виду оператору присваивания. Фун-
кция-оператор может стоять только после операторов определения
типа и перед любыми исполняемыыми операторами в програмной еденице,
в которой она используется.
Функция-оператор — это невыполняемый оператор, хотя она и
является первым оператором в программной единице. Однако, тело
функции-оператора служит для определения значения функции-опера-
тора. Как и другие любые функции функция-оператор вычисляется по
ссылке в выражении.
Тип выражения должен быть совместим с типом имени функции-
оператора. Список имени формальных параметров служит для
определения числа и типа параметров функции-оператора. Областью
действия имен фармальных параметров является сама функция оператор.
Поэтому имена формальных параметров могут быть переопределены как
другие имена пользователя в оставшейся части программной единици,
за исключением определителя функции-оператора.
Имя функции-оператора, однако, локально, по отношению к
программной единице; оно не должно быть использовано где либо еще,
кроме имени COMMON-блока или имени формального параметра в другой
функции-операторе. Впоследнем случае тип такого использования
должен быть одинаковым.
Если имя формального параметра совпадает с любым другим ло-
кальным именем, то следует иметь в виду, что ссылка на это время
в функции-операторе определяет его как формальный параметр и ни в
каком другом смысле.

В выражении допустимы ссылки на переменные, формальные
параметры, другие функции, элементы массивов и константы. Ссылки
на функции-операторы, однако, должны относится к функциям,
описанным до того, как они употреблены здесь. На функцию-оператор
не может быть вызвана рекурсивно, как прямо так и косвенно.
На функцию-оператор можно ссылаться только в той программной
единице, где она описана. Имя функции-оператора не должно появлять-
ся ни в каких описывающих операторах, за исключением описания типа
(которые не могут описывать это имя, как массив) и оператора COMMON
(как имя COMMON-блока).
Функция-оператор не может быть типа CHARACTER.

Пример
С Пример оператора функция-оператор
DIMENSION X(10)
ADD(A,B)=A+B
C
DO 1 I=1,10
X(I)=ADD(Y,Z)
1 CONTINUE

ЬДДДДДДДДДДДДД
Ы STOP
ЯДДДДДДДДДДДДД

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

Особенности.
Параметр n, если он есть, высвечивается на экран, когда про-
грамма оканчивается. Если n нет, высвечивается такое сообщение:
STOP — Program terminated
(STOP — Программа окончена)

Пример
С Пример оператора STOP
IF (IERROR.TQ.0) GO TO 200

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