Большинство критиков Фортрана внушают своим слушателям, что программы на этом языке состоят сплошь из операторов с метками и безусловных переходов GO TO между ними. Читатель, ознакомленный с предыдущим материалом, может по достоинству оценить подобных «специалистов» с их представлениями о Фортране, соответствующими 60-м годам прошлого столетия. При программировании на современных языках высокого уровня (с высоким уровнем абстракции данных) скачкообразные переходы между блоками программы используются крайне редко, можно сказать только в экстренных случаях – но все-таки они необходимы.

В Фортране 90/95 оператор GO TO или (GOTO) имеет вид:

GO TO метка

где метка это метка оператора, соответствующая правилам записи программы в свободном формате (см. Пример 5.1).

Одним из немногих случаев, в которых необходим GO TO – это выход из внутреннего цикла в конструкции из нескольких вложенных циклов. Например, при обнаружении искомого элемента в многомерном массиве CUBE, следует прекратить поиск – что означает выход из структуры вложенных циклов (Пример 5.15).

Пример 5.15. Поиск элемента в трехмерном массиве.

program FINDELM
integer , parameter ::N=3
integer, dimension(N, N, N):: CUBE=RESHAPE((/( I, I = 1, N*N*N)/), (/N, N, N/))
read*, ELM		!Введите целое число от 1 до 27
do I = 1, N
	do J = 1, N
		do K = 1, N
			if (CUBE(I, J, K) .eq. ELM) goto 10
		enddo
	enddo
enddo
10 continue
print*, I, J, K
end

Оператор EXIT позволяет выйти только из внутреннего цикла в предшествующий цикл, поэтому в данном случае логично воспользоваться оператором GO TO.

Цикл довузовской подготовки кафедры ЭФУ

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

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

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

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

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

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

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

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

5.4. Оператор GO TO

GO TO метка

Пример 5.15. Поиск элемента в трехмерном массиве.

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

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