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

      program FINDELM
      parameter (N=3)
      integer SEQUENCE(N), FINSEQ
      logical ANSWER
      print '(1x,''Введите'',i2, '' элемента: ''$)', N
      read*,  (SEQUENCE(i), i = 1, N)
      do
        print '(1x,''Искать элемент? (T/F): ''$)'
        read'(L1)', ANSWER; if(.not.ANSWER) exit

        print '(1x,''Введите искомый элемент: ''$)'
        read*, FINSEQ

c       Определение номера искомого элемента в последовательности.
        INDEX = 0
        do i = 1, N
          if (SEQUENCE(i) .eq. FINSEQ) then
            INDEX = i
            exit
          endif
        enddo
        print*, INDEX

      enddo
      end

Если из DO- строки конструкции DO исключить переменную цикла, получится "бесконечный" (то есть с неограниченным числом повторений) цикл. Выход из него обеспечивается оператором EXIT, который помещается в оператор или конструкцию IF в теле цикла.

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

Бесконечный цикл и оператор EXIT могут быть реализованы в Фортране-90 или ФОРТРАНе-77 с расширенными возможностями.

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

ВВЕДЕНИЕ В ФОРТРАН

Концепция данных Фортрана.

Печать текста и чисел на экран.

Арифметические и текстовые выражения.

Инициализация переменных и констант.

Условные опреаторы.

Циклы.

Процедуры и функции.

Работа с внешними файлами.

ЦИКЛ С ВЫХОДОМ ПО УСЛОВИЮ.

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