Информатика: Сегментация программ. Гурьяшова Р.Н - 12 стр.

 FUNCTION RND10
    RND10 = 10 * RND
 END FUNCTION

 FUNCTION TEST (N, K)
    TEST = N + K
 END FUNCTION

   Результаты работы:
 Функция Test: 3
 X= 7          Y= 34
 Функция Rnd10: 7.055475
 Z= 3.33424

   Описание на Фортране
   Общеупотребительные названия      –   функция,   процедура-
функция, процедура FUNCTION.
 [тип] FUNCTION имя_функции ([параметр[, параметр,
 ...]])
    [операторы описания]
    [исполняемые операторы]
    имя_функции = возвращаемое_значение
 END [FUNCTION]
   При отсутствии параметров использование скобок в заголовке
функции обязательно (аналогично и при ее вызове). Если в заго-
ловке тип функции не указан, то он определяется «по умолчанию»,
по первой букве имени (как и для переменных).

   Пример
   Создадим две подпрограммы с именами:
• RND10( ) – без параметров (с использованием датчика случай-
    ных чисел, табл. 6.1);
• TEST(N, K) – с параметрами N, K.
   Вызовем их различными способами: в операторе печати, при-
сваивания и в выражении.
 PRINT *, 'Функция Test: ', TEST(1, 2)
 X = TEST(3, 4)
 Y = 3 * TEST(5, 6) + 1
 PRINT *, 'X= ',X, 'Y= ',Y


                              12