72636

ПОДПРОГРАММЫ-ФУНКЦИИ

Доклад

Информатика, кибернетика и программирование

С использованием функции RRMX непосредственно возвращающей значение максимального элемента массива и с помощью функции NUMX возвращающей номер максимального элемента массива. Так в приведенном ниже примере имя функции NUMX типизировано как целое по умолчанию а для функции RRMX необходима явная типизация.

Русский

2014-11-26

13.95 KB

0 чел.

ПОДПРОГРАММЫ-ФУНКЦИИ.

Программа SOMAX печатает максимальные значения массивов A, B и C двумя способами. С использованием функции ARRMAX, непосредственно возвращающей значение максимального элемента массива, и с помощью функции NUMAX, возвращающей номер максимального элемента массива.

Подпрограмма-функция начинается с ключевого слова FUNCTION, после которого указывается ее имя и, в круглых скобках, список формальных параметров. Завершается подпрограмма-функци, как и все програамные единицы, оператором END.

Подпрограмма-функция является типизированным объектом. Тип функции определяется типом ее имени. Если имя необходимо явно типизировать, то тип указывается перед FUNCTION. Имя функции должно быть так же типизировано в использующей ее программной единице. Так, в приведенном ниже примере, имя функции NUMAX типизировано как целое, по умолчанию, а для функции ARRMAX необходима явная типизация.

     program SOMAX

     integer A(2), B(3), C(4), ARRMAX

     data A /1, 2/ B/4, 5, 3/ C/ 7, 6, 9, 8/

     print'(3(1x,i1)/)', ARRMAX(A,2), ARRMAX(B,3), ARRMAX(C,4)

     print'(3(1x,i1)/)', A(NUMAX(A,2)), B(NUMAX(B,3)), C(NUMAX(C,4))

     end

 

     integer function ARRMAX(X,N)

     integer X(N)

     ARRMAX = X(1)

     if(N .eq. 1) return

     do i=1, N

       if( X(i) .gt. ARRMAX ) ARRMAX = X(i)

     end do

     return

     end

     function NUMAX(X,N)

     integer X(N)

     NUMAX = 1

     if(N .eq. 1) return

     do i= 2, N

       if( X(i) .gt. X(NUMAX) ) NUMAX = i

     end do

     return

     end

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

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

Подпрограммы-функции используются в вызывающих их программных единицах точно так же, как переменные и константы соответствующего типа. Например, значение функции NUMAX используется как индекс массива.

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


 

А также другие работы, которые могут Вас заинтересовать

43844. Правове регулювання укладання та виконання господарських договорів 649.5 KB
  Загальна характеристика зобовязальних правовідносин Поняття та склад зобовязання Норми які регулюють зобовязання становлять один із найважливіших інститутів цивільного права зобовязальне право. Норми зобовязального права є найбільш значною частиною цивільного законодавства. Система зобовязального права складається із інститутів Загальної частини та інститутів Особливої частини. Загальна частина включає: поняття зобовязання сторони в зобовязанні; виконання зобовязання; забезпечення виконання зобовязання; припинення...
43845. Пластиковые карты, как один из видов банковского продукта на примере АКБ «Московский залоговый банк» 4.93 MB
  Мировая практика проведения расчетов по кредитным картам свидетельствует о том, что использование карты значительно упрощает процесс покупки товара или услуги, равно как и хранения и защиты своих сбережений. Пластиковая карта позволяет ее владельцу оперативно и без проблем получать наличные в любое время суток, пользоваться разнообразными скидками при покупке товаров и услуг, контролировать свои расходы за определенные периоды времени.
43846. Реконструкция схемы электроснабжения “Черемшанка” Курагинского района 1.38 MB
  Коммунально – бытовой сектор поселка “Черемшанка” обслуживают две трансформаторных подстанций 10/0,38 кВ. Потребительские воздушные линии выполнены проводом АС – 35. Общее количество домов составляет 160 штук и в них проживает 944 человека. Кроме этого, в селе имеются социально – культурные учреждения: клуб, магазины, школа, больница, сельский совет и т. д.
43847. Оптимізація транспортних мереж NGN на основі технології IP/MPLS для боротьби з пульсаціями мультисервісного трафіку та досягнення заданих показників якості обслуговування 1.67 MB
  1 АНАЛІЗ ПОБУДОВИ ТРАНСПОРТНОЇ МЕРЕЖІ НА ОСНОВІ ТЕХНОЛОГІЇ MPLS.2 Особливості побудови транспортної мережі NGN.3 Маршрутизація в мережі з комутацією по міткам. 2 ОБҐРУНТУВАННЯ ВИБОРУ МЕТОДА ОПТИМІЗАЦІЇ ТРАНСПОРТНОЇ МЕРЕЖІ ІР MPLS.
43848. Hасчет характеристик направленности вибраторных антенн в присутствии щелевого экрана 4.46 MB
  Моделирование вибраторных антенны с использованием программного пакета XFDTD. Геометрия исследуемой антенны. Исследование влияния металлического экрана с отверстием на диаграмму направленности антенны. Исследование влияния плоского металлического экрана с отверстием на диаграмму направленности антенны.
43849. Aвтоматизация теплового пункта 1.71 MB
  обеспечивая в каждом помещении наиболее комфортные условия для персонала по температуре влажности воздуха и освещенности; получать объективную информацию о работе и состоянии всех систем и своевременно сообщать диспетчерам о необходимости вызова специалистов по сервисному обслуживанию в случае отклонения параметров любой из систем от штатных показателей; контролируя максимально возможное число параметров оборудования точек контроля в здании и показателей загруженности систем перераспределять энергоресурсы между системами обеспечивая...
43850. Создание информационной базы и программы расчета доходной части бюджета территории на примере города Харьков, Украина 1.04 MB
  В современных условиях местного самоуправления местными органами большое значение имеет правильное и достаточно оптимальное планирование местного бюджета т. Основным принципом создания и ведения бюджета Украины стал бессистемный централизм пришедший на смену жесткой административной системе. Поэтому появилась...
43851. Право собственности 401.5 KB
  Право собственности граждан. Понятие и виды права собственности граждан. Субъекты права собственности граждан. Объекты права собственности граждан.
43852. Расчетов зарядов газогенераторов для запуска крылатой ракеты Пегас из космоса 1019.5 KB
  00 mm Толщина сгоревшего слоя в момент начала торможения 3.968 kg Масса сгоревшего топлива к моменту начала торможения исключая массу призм в моноблоке 2.00 mm Толщина сгоревшего слоя в момент начала торможения 5.168 kg Масса сгоревшего топлива к моменту начала торможения исключая массу призм в моноблоке 14.