Лекция: Программа на Фортране-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
! Обязательный оператор завершения программы