риложение3. Организация данных

Вывод строки st на экран произойдет так: в первой позиции начальной строки выведется символ '1'; затем прозвучат два звуковых сигнала; далее после выполнения табуляции в строке будут выведены символы '1-1'; после этого будет выполнен переход в первую позицию новой строки экрана и выведется символ '2'; далее последуют завершающие пробелы и null- символ.

Ввосьмеричном коде значение o находится в диапазоне от 0 до 7.

Вшестнадцатеричном коде h принимает значения от 0 до F.

При записи СИ-строк могут быть использованы двойные кавычки, например апостроф может быть задан так:

Также можно задать символьную константу нулевой длины.

Поскольку символьные строки завершаются null-символом, то при их конкатенации (объединении) этот символ, если не принять специальных мер, окажется внутри результирующей строки, например:

Длинная символьная буквальная константа, т. е. константа, которую не удается разместить на одной строке, задается с использованием символов переноса, например:

Замечание. В начале строки продолжения символ переноса может быть опущен.

3.6. Задание именованных констант

Защитить данные от изменений в процессе вычислений можно, задав их в виде именованных констант. Именованная константа - это именованный объект данных с атрибутом PARAMETER. Задание атрибута можно выполнить отдельным оператором:

PARAMETER [(] name = const [, name = const ...] [)]

или в операторе объявления типа:

typespec, PARAMETER [, attrs] :: name = const [, name = const] ...

typespec - любая спецификация типа данных.

name - имя константы. Не может быть именем подобъекта.

61

О. В. Бартеньев. Современный ФОРТРАН

const - константное выражение. Выражение может включать имена констант, ранее введенных в той же программной единице. Допустимые операции константного выражения - арифметические и логические. Если тип константного выражения отличается от типа name, то любые операции преобразования типов выполняются автоматически.

attrs - иные возможные атрибуты константы.

Именованная константа может быть массивом или объектом производного типа. В первом случае для ее задания используется конструктор массива, во втором - конструктор производного типа.

При использовании оператора PARAMETER задание именованной логической, символьной и комплексной константы должно выполняться после описания ее типа. Типы целочисленных и вещественных констант могут быть установлены в соответствии с существующими умолчаниями о типах данных. Попытки изменить значение именованной константы при помощи оператора присваивания илиоператора READ приведут к ошибке компиляции.

Именованная константа name не может быть компонентом производного типа данных, элементом массива и ассоциированным объектом данных, примененным, например, в операторах EQUIVALENCE или COMMON. Также именованная константа не может появляться в спецификации управляющего передачей данных формата. При использовании константы в качестве фактического параметра процедуры соответствующему формальному параметру следует задать вид связи INTENT(IN).

Пример 1. Задание именованных констант в операторе PARAMETER.

parameter (g = 9.81, pi = 3.14159) ! Обрамляющие круглые скобки можно опустить

type(made), parameter :: pro = made('08/01/90', 'Mircu') write(*,'(1x, a10, 2x, a5)') pro

end program pa

62

риложение3. Организация данных

3.7. Задание начальных значений переменных. Оператор DATA

В Фортране существует две возможности задания начальных значений переменных: в операторах объявления типа и оператором DATA. Начальные значения присваиваются переменным на этапе компиляции программы. Синтаксис оператора DATA:

Список имен - список переменных, их подобъектов и циклических списков. Элементы списка разделяются запятыми. Индексы элементов массивов и подстрок в списке имен должны быть целочисленными константными выражениями.

Список значений - список констант и/или повторяющихся констант, разделенных запятыми.

Повторяющаяся константа - элемент вида n*val, где n - целая положительная константа (буквальная или именованная); * - символповторитель. Такой элемент в списке значений означает, что n подряд расположенных переменных в списке имен получат в результате выполнения оператора DATA значение val.

Пример:

При большом числе инициализируемых переменных следует для улучшения читаемости программы использовать строки продолжения или несколько операторов DATA.

Переменные производного типа инициализируются посредством применения в DATA конструктора производного типа (разд. 3.9.2.1) или путем инициализации их отдельных компонентов:

63

О. В. Бартеньев. Современный ФОРТРАН

Переменные, явно получившие атрибут AUTOMATIC, не могут появляться в операторе DATA.

При необходимости тип данных каждого числового или логического элемента в списке значений преобразовывается в тип, заданный для соответствующей переменной в списке имен. Например, для инициализации вещественной переменной можно использовать целую буквальную константу.

Число значений в каждом списке значений должно совпадать с числом элементов в соответствующем списке имен. Нельзя дважды в операторе DATA инициализировать одну и ту же переменную.

Инициализация элементов двумерного массива выполняется по столбцам, например:

real a(3, 2)

data a / 1, 2, 3, 4, 5, 6 / ! Эта запись эквивалентна следующей data a(1,1), a(2,1), a(3,1), a(3,2), a(2,2), a(3,2) /1, 2, 3, 4, 5, 6/

Если символьный элемент в списке значений короче, чем соответствующая переменная или элемент массива в списке имен, его размер увеличивается до длины переменной посредством добавления завершающих пробелов. Если же символьный элемент длиннее соответствующей переменной, то избыточные символы отсекаются.

Формальные параметры, переменные неименованных common-блоков и имена функций не могут появляться в операторе DATA. Переменные именованных common-блоков могут появляться в операторе DATA, если он используется в программной единице BLOCK DATA.

Оператор DATA может содержать в списке имен циклические списки: (dolist, dovar = start, stop [, inc])

dolist - элемент массива, индексом которого является переменная dovar. start, stop, inc - целочисленные константные выражения, определяющие диапазон и шаг изменения dovar. Если выражение inc отсутствует, то шаг

устанавливается равным единице.

При использовании циклического списка можно выполнить инициализацию части массива. Возможна организация вложенных циклических списков.

Пример:

((c(row, col), row = 1, rma), col = 1, cma) / 50 * 10/

64