Локальные и глобальные параметры

Описание процедур в Паскале имеет вид:

Procedure Имя процедуры (формальные параметры);

 

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

Begin

 
 
Раздел операторов

End;

Формальные параметры вместе с круглыми скобками могут отсутствовать. Формальные параметры представляют собой список переменных с указанием их типа. Все типы, используемые в заголовках процедур и функций, кроме простых, должны быть описаны в подразделе Type вызывающей эти процедуры или функции программной единицы. Те параметры, которые изменяются в процедуре, называют выходными и перед ними в заголовке процедуры обязательно ставится слово Var. Параметры, имеющие файловый тип, должны быть обязательно описаны как Var - параметры и в процедурах и в функциях.

Вызов процедуры в использующих ее программных единицах (основной программе или подпрограммах) имеет следующий вид:

Имя процедуры (фактические параметры);

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

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

Имена фактических и формальных параметров могут быть как одинаковыми, так и различными.

Пусть в программе две процедуры Р1 и Р2 вызываются из основной программы. В свою очередь в процедуре Р1 используется процедура Р11 и она должна быть описана в разделе описаний вызывающей ее процедуры Р1.

Локальные и глобальные параметры - student2.ru

Раздел описаний основной программы

Procedure P1;

Локальные и глобальные параметры - student2.ru

Раздел описаний процедуры P1

Procedure P11

Локальные и глобальные параметры - student2.ru

Раздел описаний процедуры P11

Begin

Локальные и глобальные параметры - student2.ru

Раздел операторов процедуры P11

End;

Begin

Локальные и глобальные параметры - student2.ru

Раздел операторов процедуры P1

End;

Procedure P2;

Локальные и глобальные параметры - student2.ru

Раздел описаний процедурв P2

Begin

Локальные и глобальные параметры - student2.ru

Раздел операторов процедуры P2

End;

BEGIN

Локальные и глобальные параметры - student2.ru

Раздел операторов основной программы

END.

Имена, объявленные в разделе описаний основной программы, действуют в разделе операторов основной программы и в любой подпрограмме. Эти имена называются глобальными. Имена, объявленные в какой-либо подпрограмме, действуют в этой подпрограмме и в любой, объявленной в ней процедуре или функции. Такие имена называются локальными. Они недоступны для операторов основной программы. Область действия меток переходов в пределах каждой программной единицы своя. Нельзя перейти по оператору GOTO из одной процедуру в другую.

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

Даны два массива М1 и М2, содержащие К1 и К2 целых чисел, соответственно. Определить максимальные числа в каждом из этих массивов, сравнить найденные значения между собой и вывести большее из них на экран.

Схема алгоритма

       
  Локальные и глобальные параметры - student2.ru
    Локальные и глобальные параметры - student2.ru
 

Локальные и глобальные параметры - student2.ru нет

 
  Локальные и глобальные параметры - student2.ru

Локальные и глобальные параметры - student2.ru Локальные и глобальные параметры - student2.ru да

Локальные и глобальные параметры - student2.ru

       
  Локальные и глобальные параметры - student2.ru
    Локальные и глобальные параметры - student2.ru
 

Локальные и глобальные параметры - student2.ru Выделим глобальные переменные, которые используются в главной программе: М1, М2, К1, К2, Мах1, Мах2.

Текст программы

Uses crt;

Type Tmas=array[1..1000] of integer;

Var M1, M2: Tmas;

K1, K2, Max1, Max2 : integer;

{ Процедура ввода длины массива и самого массива }

Procedure Vvod(Var K:integer; Var M:Tmas);

Var i:integer;

Begin

Write(' Введите длину массива');

Readln(K);

Writeln(' Введите элементы массива целых чисел, через пробел');

For i:=1 to K do

Read(M[i]); readln;

End; { конец процедуры ввода}

{ Процедура поиска максимального элемента в массиве}

Procedure Poisk_max(K:integer; M:Tmas; Var Max:integer);

Var i:integer;

Begin

Max:=M[1]; { За максимум принимаем первый элемент}

For i:=2 to K do

If M[i]>Max then Max:=M[i]; {Запоминаем новый максимум}

End;

{ Начало основной программы}

Begin

Clrscr;

Writeln(' Ввод первого массива');

Vvod(K1, M1);

Writeln(' Ввод второго массива');

Vvod(K2,M2);

Poisk_max(K1, M1, Max1);

Poisk_max(K2, M2, Max2);

If Max1>Max2 then writeln(' Max1 больше и оно = ',Max1)

Else writeln(' Max2 больше и оно = ',Max2);

Readkey; { Останов для просмотра результатов}

End.

Лабораторная работа №8

Цель работы:

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

Типовое задание

Для задания из лабораторной работы №7 разработать программу с использованием процедур: оформить в виде процедур каждый из пунктов задания.

Наши рекомендации