Презентация на тему Процедуры. Назначение процедур

использование написанного кода

Библиотеки готовых подпрограмм и функций

Раздельное написание

процедуры
end module
Модули
subroutine или function
...
contains
внутренние процедуры
end
Внешние
процедуры

Обладают явным интерфейсом.

Имеют доступ ко всем объектам модуля

contains.

Обладают явным интерфейсом.

Имеют доступ ко всем объектам

в других файлах.

Обладают неявным интерфейсом.

Обмен данными с

параметры)
типы

Результатом может выступать также переменная описанная в операторе result
после объявления функции.

–
x -вещественный, k -целый;

внутренние переменные – сумма (вещественный),
индекс

Функция f(x)
!**************************************************
real function f(x,N)
!------------- формальные параметры

Функции

FX
real res
res = f(0.5, 100) ! вызов

фактические
параметры
0.5d0, 100

формальные
параметры
x, N

end

!**************************************************
! Функция возвращает число Пи
!**************************************************
real function

и тип переменной, которой присваивается результат функции

2) тип формальных

* * * *
* * * * * *

M

N

формальные параметры –
M, Т (целый), CH (символьный);

внутренние переменные –
индексы таблицы (целый).

table(M,N,CH)
!------------- формальные параметры ---------------
integer M,N
character CH
!------------- внутренние

end
!**************************************************
! Подпрограмма печати таблицы символов
!**************************************************
subroutine table(M,N,CH)
!-------------

соответствие
фактических
и формальных
параметров

переменные получившие инициализацию
являются статическими,
т.е. память выделяется на

call sub() ! M = 2
call sub() !

program static_var

call sub() ! M = 1
call sub() ! M = 1
call sub() ! M = 1

end

subroutine sub()
integer , automatic :: M
M = 0
M = M + 1
write(*,*) M
end subroutine sub

Внутренние переменные

входные/выходные, intent(inout)
subroutine sub(a,b,c)
integer, intent(in) :: a

По умолчанию все параметры имеют атрибут inout, т.к. передаются по ссылке.

и не могут изменяться при выполнении процедуры.

Соответствующими
фактическими

program param_in
call sub(100)
end

subroutine sub(a)
integer, intent(in) :: a ! входной параметр
...
end subroutine sub

параметру и предназначены для вывода данных из процедуры.


Соответствующий

program param_out
call sub(100) ! ошибка, ожидалась переменная
end

subroutine sub(a)
integer, intent(out) :: a ! выходной параметр
...
end subroutine sub

фактического параметра,
так и передавать данные в фактический параметр.

program param_inout
integer :: q = 80
call sub(q)
end

subroutine sub(a)
integer, intent(inout) :: a ! входной/выходной
... ! параметр
end subroutine sub

проверяет присутствие необязательного параметра при вызове процедуры.

При отсутствии проверки

= 12.0)
write(*,*) res

CONTAINS
real function logarithm(a, base)
real,

внутренних процедурах, недоступны во внешних.


Объекты описанные во внутренней, внешней

*Объекты – переменные, типы данных, внутренние процедуры
(для головной программы или внешней процедуры)

c, d
...
contains ! -------------------------
subroutine sub (a,b)

10
integer :: A(M) = [2,4,6,8,9,1,1,1,1,1]

call PrintArray()

contains

write(*,*) middle(3.0,2.0)
END

real function middle(a,b)
real a,b
middle = (a+b)/2
end

По умолчанию тип функции middle – целый.
Функция объявлена как вещественная,
но головная программа об этом "не знает".

Как указать головной программе
про тип функции middle ?

конец описания функции
end interface
Определяет явно заданный интерфейс.
Используется для внешних

a,b
end function middle
end interface

write(*,*) middle(3.0,2.0)

END

real function middle(a,b)
real

Исправленная версия программы

integer a,b
if (b == 0) then

Вернуть управление вызывающей
процедуре или головной программе.

f(0.5, p) ! p(x) - фактический параметр
write(*,*) f(0.7, q)

p(x)
real x
p = sin(x)+x
end function p

real function f(x,

процедуры передаются как параметры.
Если хотим передавать стандартные функции как

program param_funct
external mysin
write(*,*) f(0.5, mysin)
end
!********************************
real function mysin(x) ! ---------- функция q(x)
real x
q = sin(x)
end function mysin

процедуры передаются как параметры.

program param_funct
intrinsic sin
write(*,*) f(0.5,

Вместо указания функции в операторе external можно использовать блок interface.

real x
end function p
end interface

interface
real

интерфейс
формального параметра-функции

интерфейс
фактического параметра-функции

процедуры.
Прямая рекурсия
proc ---> proc ---> proc --->

Косвенная рекурсия
proc

Обязательна проверка окончания
рекурсивного вызова.

subroutine Number(N)
integer N
write(*,*) " N = ", N

Рекурсивные процедуры

function factorial(p) result(k)
integer, intent(in) :: p

Рекурсивные процедуры

side_effect
real :: s = 10.0

write(*,*) (f(s)+f(s))/2.0 !

процедур характерно
① все формальные параметры функций имеют вид

Все встроенные функции являются чистыми.

PURE_FORALL
real :: A(10) = -1.0
integer i

forall (i = 1:5,

параметров как скаляры так и массивы.
Элементные функции – чистые

Пример.
Функции sin, cos, exp, abs - элементные.

Можно записывать:
sin(2.0), sin(a), где a – скаляр
cos(B), abs(A), где A, B - массивы