Лекция: Программа на Фортране-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

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

еще рефераты
Еще работы по информатике