Если речь идёт о старом Фортране, то - да, это неструктурированный ЯП, 77-ой - плохоструктурированный. Но, если Вы относите себя к тем, кто считает, что код, содержащий goto - это уже не код, то напишите штук 7 вложенных циклов на том же C, причём при некотором условии вам нужно будет выйти из всех 7 циклов, то как вы поступите? Кстати, читать плохо насписанный код на С гораздо сложнее, чем старый фортрановский код. Жаль сейчас примерчик копирования файлов такого рода не найду:) А Фортран стандарта 95, и тем более 2003, - это мощный язык. И красивый. Он естественный для описания математических задач.
Пример кода на Фортране 95 по выходу из 3-х вложенных циклов:
| Код |
main_loop: do i = 1,M ! Имя цикла - main_loop. Отличие от метки в том, что нельзя сказать goto main_loop
do j = 1,N
do k = 1,P
if(Z(i,j,k)<0) exit main_loop; ! Вываливаемся из всех трех циклов
if(Z(i,j,k)==0) exit; ! Только из внутреннего цикла
.........
end do; ! k...
end do ! j ....
end do main_loop;
|
Вот. Красиво? Изящно? Да.
Или, например, все неположительные элементы умножить на 2, а все положительные поделить на 3
| Код |
real(8) :: A(100,100) ! Матрица 100х100
where(A<=0)
A = 2.0_8*A;
elsewhere
A = A/3.0_8;
end where;
|
Это, между прочим, параллельная инструкция.
Я читаю курс современного Фортрана на кафедре Прикладной математики в МАТИ, второй курс - ещё зелёные:), численных задач не решали, а вот 4 курс Фортран оценил. Когда задача вместо 100 строк за 10 решается. И при этом полностью соответствует хорошему стилю программирования (если этому стилю соответствует сам программист:) если нет - это кодер:) ). |
