Неявные циклы аналогичны конструкции DO с фиксированным числом повторений (п. 5.3), но не являются самостоятельными конструкциями, поскольку могут быть использованы только в операторах ввода/вывода, как правило, для работы с массивами.

Для вывода двумерного массива на экран в виде матрицы можно использовать конструкцию DO с фиксированным числом повторений и ухищрение в спецификации формата вывода – когда все элементы строки с номером выводятся без перевода строки (запрет переводить строку контролирует символ «$» в конце спецификации формата). Перевод строки осуществляется за счет пустого оператора PRINT за пределами внутреннего цикла (Пример 6.9).

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

Пример 6.9. Печать таблицы с помощью конструкции DO.

program ARRDO1
integer, parameter:: N = 3
integer, dimension(N, N) :: DIGITS = RESHAPE( (/1, 4, 7, 2, 5, 8, 3, 6, 9/), (/3,3/) )
do I = 1, N
do J = 1, N
print '(1x,i1 $)',DIGITS(I,J) 
end do
print*,''
end do
end

Записанный неявный цикл может служить выражением, для последующего внешнего цикла – т. е. через запятую записывается переменная внешнего цикла со своими границами и шагом и все это заключается в круглые скобки (Пример 6.10).

Пример 6.10. Печать таблицы с помощью неявного цикла.

program ARRDO2
integer, parameter:: N = 3
integer, dimension(N, N) :: DIGITS = RESHAPE( (/1, 4, 7, 2, 5, 8, 3, 6, 9/), (/3,3/) )
print'(3(1x,i1))', ((DIGITS (I, J), J = 1, N ), I = 1, N) ! Неявный цикл
end

Чтобы показать, что неявные циклы можно использовать не только для ввода/вывода массивов, но выражений (например, арифметических) можно напечатать все туже квадратную (3х3) таблицу чисел от единицы до девяти (Пример 6.11).

Пример 6.11. Печать таблицы с помощью неявного цикла.
program TBLPRN
integer, parameter:: N = 3
print'(3(1x,i1))', ((3*(I – 1)+J,  J = 1, N ), I = 1, N) ! Неявный цикл
end
		

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

Информационные системы ускорителей

ЛАБОРАТОРНЫЙ ПРАКТИКУМ: «ПРОГРАММИРОВАНИЕ НА ФОРТРАНЕ»

1. ПРАВИЛА ЗАПИСИ ПРОГРАММЫ

2. ТРАНСЛЯЦИЯ ПРОГРАММЫ

3. КОНЦЕПЦИЯ ДАННЫХ ЯЗЫКА ФОРТРАН

4. ВЫРАЖЕНИЯ И ПРЕОБРАЗОВАНИЕ ТИПОВ

5. УПРАВЛЯЮЩИЕ ОПЕРАТОРЫ

6. ВВОД/ВЫВОД ДАННЫХ

7. ПРОГРАММНЫЕ КОМПОНЕНТЫ И ЭЛЕМЕНТЫ ООП

6.3. Неявные циклы и ввод/вывод массивов

Пример 6.9. Печать таблицы с помощью конструкции DO.

Пример 6.10. Печать таблицы с помощью неявного цикла.

Пример 6.11. Печать таблицы с помощью неявного цикла.

Copyright © Кафедра Электрофизических установок МИФИ, 2016 - 2024

ЛАБОРАТОРНЫЙ ПРАКТИКУМ:
«ПРОГРАММИРОВАНИЕ НА ФОРТРАНЕ»