Читайте также:
|
Описание процедуры имеет вид:
Procedure имя (формальные параметры);
раздел описаний
Begin
раздел операторов
End;
и помещается в разделе описаний основной программы (глобальном блоке).
Здесь имя - имя процедуры. Раздел описаний, как и в основной программе, включает разделы Label, Const, Type, Var и раздел процедур и функций. Формальные параметры представляют собой список переменных с указанием их типа. Эти переменные не описываются в разделе описаний процедуры. Допускается использование процедур без формальных параметров.
Формальные параметры могут быть трех видов:
1) параметры-значения (входные параметры);
2) параметры-переменные (выходные параметры);
3) параметры процедурного типа.
Описание входных параметров имеет вид:
список переменных 1: тип 1; список переменных 2: тип 2;…
Описание выходных параметров соответственно:
Var список переменных 1: тип 1; Var список переменных 2: тип 2;...
Входными фактическими параметрами, т.е. теми, которые передаются в процедуру, могут быть константы, переменные и выражения. Выходными параметрами (которые получают значения из процедуры) могут быть только переменные.
Между формальными и фактическими параметрами должно быть соответствие по количеству параметров, порядку их следования и типу данных. Имена соответствующих параметров могут быть одинаковыми или разными.
Сразу за заголовком подпрограммы может следовать одна из стандартных директив ASSEMBLER, EXTERNAL, FAR, FORWARD, INLINE, INTERRUPT, NEAR. Эти директивы уточняют действия компилятора и распространяются на всю подпрограмму и только на нее, т.е. если за подпрограммой следует другая подпрограмма, стандартная директива, указанная за заголовком первой, не распространяется на вторую.
ASSEMBLER - эта директива отменяет стандартную последовательность машинных инструкций, вырабатываемых при входе в процедуру и перед выходом из нее. Тело подпрограммы в этом случае должно реализоваться с помощью команд встроенного ассемблера.
EXTERNAL - с помощью этой директивы объявляется внешняя подпрограмма.
FAR - компилятор должен создавать код подпрограммы, рассчитанный на дальнюю модель вызова. Директива NEAR заставит компилятор создать код, рассчитанный на ближнюю модель памяти. По умолчанию все подпрограммы, объявленные в интерфейсной части модулей, генерируются с расчетом на дальнюю модель вызова, а все остальные подпрограммы - на ближнюю модель.
В соответствии с архитектурой микропроцессора ПК, в программах могут использоваться две модели памяти: ближняя и дальняя. Модель памяти определяет возможность вызова процедуры из различных частей программы: если используется ближняя модель, вызов возможен только в пределах 64 Кбайт (в пределах одного сегмента кода, который выделяется основной программе и каждому используемому в ней модулю); при дальней модели вызов возможен из любого сегмента. Ближняя модель экономит один байт и несколько микросекунд на каждом вызове подпрограммы, поэтому стандартный режим компиляции предполагает эту модель памяти. Однако при передаче процедурных параметров, а также в оверлейных модулях соответствующие подпрограммы должны компилироваться с расчетом на универсальную - дальнюю - модель памяти, одинаково пригодную при любом расположении процедуры и вызывающей ее программы в памяти. Явное объявление модели памяти стандартными директивами имеет более высокий приоритет по сравнению с опциями настройки среды Турбо Паскаля.
FORWARD - используется при опережающем описании для сообщения компилятору, что описание подпрограммы следует где-то дальше по тексту программы (но в пределах текущего программного модуля).
INLINE - указывает на то, что тело подпрограммы реализуется с помощью встроенных машинных инструкций.
INTERRUPT - используется при создании процедур обработки прерываний.
Пример 1: Составить программу для вычисления суммы квадратов натуральных чисел от 1 до n и оформить ее в виде процедуры.
Procedure Lux (N:Integer; Var Sum:Integer);
Var i:Integer;
Begin
Sum:=0;
For i:=1 To N Do Sum:=Sum + Sqr(i);
End;
Вызов процедуры в основной программе имеет вид
Lux (10,s);
Здесь s - переменная типа Integer.
При использовании в качестве параметров процедур данных сложного типа (массивы, множества, записи) в основной программе необходимо предварительно описать имя типа этих данных, которые потом указываются в списке формальных параметров процедуры.
Пример 2: Перемножить две квадратные матрицы A и B. Результат занести в матрицу C. В основной программе описывается тип
Type Mat = Array [1..5, 1..5] Of Real;
и заголовок процедуры тогда может иметь вид
Procedure Umn (A,B:Mat; Var C:Mat);
Дата добавления: 2014-12-18; просмотров: 117 | Поможем написать вашу работу | Нарушение авторских прав |