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

UptoLike

TEST 3, 4
END
SUB SAYHELLO
PRINT "HELLO"
END SUB
SUB TEST (N, K)
PRINT "N + K = "; N + K
END SUB
Результаты работы:
HELLO
HELLO
N + K = 3
N + K = 7
Описание на Фортране
Общеупотребительные названияподпрограмма, процедура-
подпрограмма, процедура SUBROUTINE.
Фортран поддерживает несколько типов подпрограмм, мы рас-
смотрим только так называемые внешние подпрограммы. Они рас-
полагаются после головной программы (после оператора END) в
том же файле (или в отдельном программном файле).
SUBROUTINE имя_процедуры ([парам1[, парам2, ...]])
[операторы описания]
[исполняемые о
END [SUBROUTINE]
ператоры]
Использование скобок обязательно даже при пустом списке па-
раметров (аналогично и при вызове процедуры).
Поддерживается только одна форма вызовас помощью клю-
чевого слова CALL:
CALL имя_процедуры ([параметр[, параметр, ...]])
Пример
Создадим и вызовем две подпрограммы с именами:
SAYHELLO( ) – без параметров;
TEST(N, K) – с параметрами N, K.
9
    TEST 3, 4
    END

    SUB SAYHELLO
       PRINT "HELLO"
    END SUB

    SUB TEST (N, K)
       PRINT "N + K = "; N + K
    END SUB

     Результаты работы:
    HELLO
    HELLO
    N + K = 3
    N + K = 7

   Описание на Фортране
   Общеупотребительные названия – подпрограмма, процедура-
подпрограмма, процедура SUBROUTINE.
   Фортран поддерживает несколько типов подпрограмм, мы рас-
смотрим только так называемые внешние подпрограммы. Они рас-
полагаются после головной программы (после оператора END) в
том же файле (или в отдельном программном файле).
    SUBROUTINE имя_процедуры ([парам1[, парам2, ...]])
       [операторы описания]
       [исполняемые операторы]
    END [SUBROUTINE]

   Использование скобок обязательно даже при пустом списке па-
раметров (аналогично и при вызове процедуры).
   Поддерживается только одна форма вызова – с помощью клю-
чевого слова CALL:
    CALL имя_процедуры ([параметр[, параметр, ...]])

     Пример
     Создадим и вызовем две подпрограммы с именами:
•    SAYHELLO( ) – без параметров;
•    TEST(N, K) – с параметрами N, K.

                               9