Название: Информатика. Алгоритмический язык Фортран - учебное пособие (Худяков Д.С., Саблина Г.В.)

Жанр: Информатика

Просмотров: 3092


2.7. структура программ на языке фортран

и их выполнение

 

Последним оператором любой Фортран-программы должен быть оператор

END

который объявляет, что больше операторов в тексте программы нет.

Оператор

            STOP

прекращает выполнение программы. Перед оператором END оператор STOP может отсутствовать.

Фортран-программа состоит из операторов, которые выполняются последовательно, начиная с первого оператора. Порядок выполнения операторов может изменяться условными операторами, например условным арифметическим оператором, который описан выше.

Текст программы начинается с оператора заголовка вида

            PROGRAM имя программы

например:

            PROGRAM MTH

Оператор заголовка в программе может отсутствовать. Далее идут невыполняемые операторы, например операторы описания типа, затем выполняемые операторы, в том числе ввода-вывода, реализующие алгоритм решения задачи, а заканчивается программа оператором END.

С помощью введенных операторов могут быть написаны программы, которые реализуют самые разнообразные алгоритмы. Приведем пример простейшей программы вычисления суммы двух действительных чисел X и Y:

PROGRAM SUM

READ(*,*)X,Y

S=X+Y

WRITE(*,*)S

END

В приведенной программе отсутствуют операторы описания типа и, согласно описанию типа по умолчанию, переменные X, Y и S относятся к данным вещественного типа. Создадим файл с именем, например PROG.FOR, в который запишем приведенный выше текст (обратить внимание, что операторы Фортрана записываются с 7-й позиции строки). После этого откомпилируем его (выполним проверку программы) и при отсутствии ошибок отлинкуем файл (подключим библиотеку функций). Затем создадим выполняемый файл PROG.EXE. Если при наборе текста были допущены ошибки, то файл PROG.EXE создан не будет, а ошибки будут указаны в листинге программы. Просмотрев этот файл и устранив ошибки в файле PROG.FOR, необходимо повторно запустить транслятор для создания выполняемого файла PROG.EXE.

Теперь при выделении этого файла и нажатии клавиши Enter программа запускается на выполнение, экран командной оболочки (если мы в нем до этого работали) пропадает. Поскольку для выполнения программы необходимо задать исходные данные, то программа находится в ожидании их ввода. Для этого необходимо на клавиатуре набрать значения, соответствующие X и Y, между которыми должно быть не менее одного пробела, и снова нажать клавишу Enter, например:

3.574 -9.57

После выполнения программы снова появится экран командной оболочки. Поскольку результат находится на экране дисплея, то для того чтобы он был виден, необходимо убрать экран Norton Commander или FAR. Для этого следует одновременно нажать клавиши Ctrl+O. Повторное нажатие этих клавиш возвращает привычную картинку.

Зададим функцию :

Программа, которая для любого действительного значения X вычисляет соответствующее значение функции F, имеет вид:

READ(*,*)X

IF(X+5)1,2,2

1 F=X+7.5

GO TO 10

2 IF(X)3,4,4

3 F=(X**2)/10

GO TO 10

4 F=SIN(X)

10 WRITE(*,*)F

STOP

END

Процедура запуска этой программы на выполнение такая же, как для предыдущей программы.