Студопедия — Пример. real function integ (f, a, b, n)
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Пример. real function integ (f, a, b, n)






We would welcome you completing the voluntary Equal Opportunities and Diversity Monitoring form.We monitor all stages of our recruitment and selection process to ensure there is no potential for unjustified discrimination on irrelevant grounds. Our monitoring data is externally analysed each year, and recommendations are published and acted upon.

All information supplied will be treated in strict confidence and no identifying details will be attached to it. It will help us to monitor and evaluate the success and application of our equal opportunity policy and diversity strategy and to compile anonymised statistics which will be included within our formal reporting structures.

 

 

Оператор External.

Функции и подпрограммы как параметры процедур.

До сих пор мы рассматривали случаи, когда параметрами процедур были данные. Иногда параметром процедуры (функций или подпрограмм) может быть другая процедура. Тогда такие параметры называются формальными процедурами. В задачах вычислительной математики часто приходится сталкиваться с проблемой выполнения одного типа вычислений для различных функций (интегрирование, нахождений корней уравнений, поиск экстремума и т. п.). В таких случаях создается процедура решения типовой задачи, а конкретная функция ( ее имя ) передается как фактический параметр. Тогда, чтобы компилятор смог разобраться, что это не просто переменная, а процедура, имя фактического параметра должно быть описано в вызывающем модуле:
либо с помощью оператора External (внешний):

External < имя внешней процедуры или список имен >;

или заданием атрибута External в операторе объявления типа:

real, external:: <имя внешней процедуры или список имен >;,

или необходимо использовать блок Interface в вызывающей программной единице (заданные в интерфейсном блоке процедуры обладают атрибутом External, и их можно использовать в качестве параметров процедур).

Имя внешней, модульной процедуры и встроенной функции можно использовать в качестве фактического параметра процедуры. Тогда соответствующий формальный параметр называется формальной процедурой.

Если имя процедуры используется в качестве формального параметра процедуры, то соответствующим фактическим параметром должно быть имя формальной процедуры.

Формальная процедура, если она является функцией, должна иметь тот же тип, что и фактическая функция. Формальная и фактическая процедуры должны согласовываться по количеству, типу и порядку следования параметров.

Если в качестве фактического параметра необходимо использовать встроенную процедуру, то такая процедура описывается с атрибутом Intrinsic ( например, cos ).

Любая внешняя процедура неявно обладает атрибутом external, если к ней явно задан интерфейс. В этом случае явное задание атрибута external запрещено.

Если в качестве формального параметра выступает имя процедуры, то атрибут intent для такого параметра не может быть использован.

Пример.

Найти площадь между двумя кривыми: f1(x)=cos2x, f2(x)=1/x на отрезке [0.1, 0.5] при заданном числе разбиений n=100. Площадь будем определять, как . Вычисление интеграла производить по формуле прямоугольников: . n – число разбиений отрезка [a,b]

Пример программы вариант 1
(без модуля описаний и интерфейсного блока).

Создадим проект, который будет состоять из главной программы, функции, вычисляющей значение интеграла методом прямоугольников, и функций, описывающих подынтегральные выражения. Все программные единицы оформим в виде внешних процедур и, если будем выполнять программу, поместим их в разные файлы.

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

Функция, вычисляющей значение интеграла методом прямоугольников, должна быть универсальной. Она должна быть пригодна для вычисления интеграла любой функции. Для этого используем external.

Модули, или внешние процедуры, написанные для других проектов, могут быть добавлены в текущий проект: Project, Add To Project, Files.

!процедура, вычисляющая интеграл любой функции

real function integ (f, a, b, n)

implicit none

real, intent(in)::a, b

integer, intent(in)::n

integer i

real h, f, s! f – имя подынтегральной функции

s=0

h=(b-a)/n

do i = 1, n

s=s+ f (a+i*h)

Enddo

integ= s*h







Дата добавления: 2015-10-01; просмотров: 363. Нарушение авторских прав; Мы поможем в написании вашей работы!



Функция спроса населения на данный товар Функция спроса населения на данный товар: Qd=7-Р. Функция предложения: Qs= -5+2Р,где...

Аальтернативная стоимость. Кривая производственных возможностей В экономике Буридании есть 100 ед. труда с производительностью 4 м ткани или 2 кг мяса...

Вычисление основной дактилоскопической формулы Вычислением основной дактоформулы обычно занимается следователь. Для этого все десять пальцев разбиваются на пять пар...

Расчетные и графические задания Равновесный объем - это объем, определяемый равенством спроса и предложения...

Почему важны муниципальные выборы? Туристическая фирма оставляет за собой право, в случае причин непреодолимого характера, вносить некоторые изменения в программу тура без уменьшения общего объема и качества услуг, в том числе предоставлять замену отеля на равнозначный...

Тема 2: Анатомо-топографическое строение полостей зубов верхней и нижней челюстей. Полость зуба — это сложная система разветвлений, имеющая разнообразную конфигурацию...

Виды и жанры театрализованных представлений   Проживание бронируется и оплачивается слушателями самостоятельно...

Гносеологический оптимизм, скептицизм, агностицизм.разновидности агностицизма Позицию Агностицизм защищает и критический реализм. Один из главных представителей этого направления...

Функциональные обязанности медсестры отделения реанимации · Медсестра отделения реанимации обязана осуществлять лечебно-профилактический и гигиенический уход за пациентами...

Определение трудоемкости работ и затрат машинного времени На основании ведомости объемов работ по объекту и норм времени ГЭСН составляется ведомость подсчёта трудоёмкости, затрат машинного времени, потребности в конструкциях, изделиях и материалах (табл...

Studopedia.info - Студопедия - 2014-2024 год . (0.012 сек.) русская версия | украинская версия