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

Вычисление количества повторений цикла оформить как:

1. внешнюю функцию function;

2. внешнюю подпрограмму subroutine;

3. внутреннюю процедуру – функцию или подпрограмму;

4. модульную процедуру – функцию или подпрограмму.

Варианты индивидуальных заданий

Варианты индивидуальных заданий см. в 2.6.

Элементы языка программирования Фортран

Текст программы на Фортране

Программу на Фортране оформляют в виде простого (plain) текста:

- символ «!» открывает комментарий – до конца строки;

- упрощают чтение текста программы пустые строки и пробелы (вне имен и ключевых слов);

- каждая программа, каждый простой оператор, каждый составной оператор, каждый блок пишут с новой строки, при необходимости делая перенос на следующую строку (символ переноса «&»);

- компиляторы поддерживают две формы записи текстов программ:

*.f90, *.f03 – современная свободная форма для новых текстов,

*.for -устаревшая фиксированная форма (преемственность с Ф77).

Таблица 15.

Пример оформления текста программы на Фортране

Привязка операторов и блоков к строкам традиционно осуществляется одним из двух символов конца строки – клавиша <Enter> и «;» :

- используя символ «;», в одной видимой строке (строка 3, строка 5) компонуют простые операторы;

- <Enter> предшествует программной единице (строки 1-9), ее телу (строки 2-8), конструкции (строки 4-8) и блоку do(строки 5-7);

- специальных символов окончания оператора и блока в Фортране нет.

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

Программу из Табл.15 можно заметно упростить, если описать R не как скалярReal R, а как векторReal,dimension(1:10):: R. В этом случае совсем не понадобится цикл по элементам массива R, так как Фортран умеет то, чего нет в других языках – выполнять действия с массивами:

Program R10 ! тема: Площади 10 кругов

Real,dimension(1:10):: R

Write(*,*)’ R=?’; Read(*,*) R! ввести 10 радиусов

Write(*,*)’ R =’,R; Write(*,*)’ S =’,3.14*R**2

End Program R10