Программа ARRSORT частично демонстрирует то, что называется повторным использованием кода. В двух предыдущих пунктах представлены функции ARRMAX и NUMAX, а также процедура EXCHAN. Тем самым, фактически, создана минимальная библиотека процедур и функций для работы с одномерными целыми массивами. Тексты процедур и функций можно объединить в один файл и создать из него объектный или библиотечный модуль. Если это пока вызывает трудности, можно попросту скопировать тексты необходимых процедур и функций в файл текущей програмы.

      program ARRSORT
      integer A(2), B(3), C(4) 
      data A /2, 1/ B/4, 5, 3/ C/ 7, 6, 9, 8/
      print*,A
      print*,B
      print*,C
      call SORT(A,2); call SORT(B,3); call SORT(C,4)
      print*,A
      print*,B
      print*,C
      end
      
      subroutine SORT(X, N)
      integer X(N)
      if(N .eq. 1) return
      do LIM = N, 2, -1
        call EXCHAN(X, LIM, LIM, NUMAX(X,LIM))
      enddo
      return
      end

Процедура SORT реализует метод так называемой линейной сортировки или, как его еще называют, метод сортировки с поиском максимального (минимального) элемента.

Идея метода следующая: найти максимальный элемент в массиве и поменять его местами с последним элементом. Затем найти максимальный элемент среди элементов с певого до предпоследнего и поменять его с предпоследним и т.д., пока не останется выявить наибольший элемент среди первых двух и поставить его на второе место.

Для реализации метода нужно, чтобы граница поиска максимального элемента смещалась влево на единицу с каждой перестановкой. Это легко реализуется конструкцией DO, в которой переменная цикла изменяется от N до "1", с шагом "-1", где N - число элементов массива и первоначальная граница поиска максимального элемента.

Процедура EXCHAN позволяет переставлять местами два элемента массива. При вызове процедуры имя массива указывается в качестве первого фактического параметра.

Число передаваемых в процедуру элементов массива (LIM) указывается в качестве второго фактического параметра.

Следующие два фактических параметра это номера элементов, которые нужно переставить местами. Очевидно, что элемент, стоящий на границе неупорядоченной области массива, то есть элемент с номером LIM нужно поменять местами с максимальным из элементов этой области, тем самым элемент с номером LIM перейдет в упорядоченную область. Значение номера максимального из LIM элементов массива X дает функция NUMAX, при передаче ей соответствующих фактических параметров.

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

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

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

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

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

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

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

Циклы.

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

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

СОРТИРОВКА МАССИВА.

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