Составители:
Рубрика:
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
Страницы
- « первая
- ‹ предыдущая
- …
- 7
- 8
- 9
- 10
- 11
- …
- следующая ›
- последняя »