Первый способ вывода массива

WRITE(6,*) A

При бесформатном упрощенном выводе массива А на экран дисплея выведутся значения всех элементов массива, количество которых было описано в операторе DIMENSION. В каждой строке печатается по 5 чисел в виде:

-0.1234567Е-01

т.е. с точностью до 7 знаков после запятой.

Недостатки:

– выводятся все элементы массива и при большой размерности массива первые элементы выведутся на экран, но будут недоступными для просмотра, т.к. сдвинутся при выводе остальных элементов;

– при выводе массива не выводятся никакие пояснения (ни имени массива, ни порядкового номера элемента массива);

– при выводе нескольких массивов будет непонятно, где закончился первый и начался второй массив.

Достоинство:

Простота использования.

Второй способ вывода массива:

WRITE(6,*) (A(I),I=1,N), где N – заданно ;

Достоинства:

– позволяет вывести только часть массива;

– количество выводимых элементов задаётся пользователем;

Недостатки:

– нет никаких пояснений к выводимым числам (имя массива и порядковый номер);

– элементы выводятся на экран по 5 чисел в каждую строку.

Третий способ вывода массива:

WRITE(6,*) (‘A(’,I,’)=’,A(I),I=1,N)

Здесь используется неявный цикл типа DO, по которому происходит вывод имени массива с помощью текстовой константы, а за ним в скобках указывается номер выведенного элемента и через знак ‘=’ само численное значение элемента массива:

А(…1)=число А(…2)=число и т.д.

Недостаток:

– весь массив будет разбросан по экрану дисплея.

Достоинство:

– имеется возможность каких либо пояснений.

Четвёртый способ вывода массива:

В этом способе используется внешний цикл DO.

DO 18 I=1,N

18 WRITE(6,*) ’A(‘,I,’)=’,A(I)

текстовая константа № цикла текстовая константа значение элемента массива

Этот способ отличается от предыдущих трёх способов тем, что вместо неявного используется внешний цикл DO. В этом цикле оператор WRITE срабатывает N-ное количество раз и соответственно печатает N-ное количество строк. В каждой строке печатается текстовая константа с именем массива и символом ”(”, номер цикла, затем печатается текстовая константа “)=” и потом числовое значение элемента массива.

Способ вывода массива в два столбца:

DO 28 I=1,N,2

28 WRITE(6,*) ’A(‘,I,’)=’,A(I),’ A(‘,I+1,’)=’,A(I+1)

Примечание: если N нечетное количество элементов массива, то последнее выведенное число не будет относиться к массиву А и может оказаться совершенно случайным числом, извлеченным из памяти ЭВМ.