Программа на Фортране-90

Программа на языке Fortran (исходный код) – это запись последовательности инструкций – операторов. Особенностью Фортрана, заимствованной еще от ввода с перфокарт, является построчная запись операторов, что отличает его от Си и Pascal. Однако, в современном Фортране можно размещать в одной строке несколько операторов, разделяя их символом «;». В конце строки этот символ необязателен.

При желании оператор можно разместить в нескольких строках, используя в качестве знака переноса символ «&».

В тексте программы на экране ключевые слова – синего цвета, комментарии– зеленого. Фортран не чувствителен к регистру, строчные и прописные буквы не различаются. Компилятор игнорирует символы пробела кроме случаев, когда они находятся внутри символьных констант. Символы пробела обычно используются для улучшения читаемости программ.

Операторы могут быть исполняемыми и неисполняемыми. Исполняемые операторы определяют действия программы. Они выполняются в порядке их расположения в программе, до тех пор, пока эта последовательность не будет изменена управляющим оператором. Неисполняемые операторы предназначены для описания объектов программы и должны предшествовать первому исполняемому оператору.

Файл с текстом программы на языке Fortran-90 имеет расширение *.f90.

Пример:

Запрос значения радиуса с экрана, вычисление площади и вывод её на экран.

Program СircleArea! Имя приложения

! F90 гр.1350 Иванов И.И.. вар.14

Implicit None! Оператор отменяет назначение типов по умолчанию и

! заставляет описывать каждый объект программы

Real radius, area! Объявление типов переменных

Real, parameter:: pi= 3.14159

! (вещественная константа π с известным значением)

!---Заканчиваются определения (неисполняемые операторы), начало вычислений

Write (*,*) " radius =?"; read (*,*)radius

! Диалог для ввода значения радиуса

Write (*,*) " radius =", radius! Вывод значения радиуса

area = PI * radius **2;! Вычисление значения площади

Write (*,*) &! Обратите внимание на знак переноса

"Площадь равна", area! вывод результата на экран

end program СircleArea

! Обязательный оператор завершения программы