Глобальные и локальные переменные (константы, типы данных)

Begin

Пример

Begin

Type

Пример

Begin

Пример.

Формат вызова процедуры (обращение к процедуре)

Формат описаний процедуры

Procedure <имя> (<список формальных параметров с описанием типов>);

const

…..

type

…..

var

….

begin

<операторы процедур>

end;

Строка рrocedure <имя> (<список формальных параметров с описанием типов>);

Называется заголовком процедуры.

Все остальные строки – тело процедуры.

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

Локальные объекты – это те объекты, которые неизвестны и недоступны основной программе.

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

< «имя» >(<список фактических параметров>);

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

Procedure sum(a,b:real;var c:real);

c:=a+b;

writeln;

end;

А обращение к ней, например, для вычисления суммы чисел 2 и 3 и записи результата в переменную rez выглядело бы так:

sum(2,3,rez);

Чтобы вычислить сумму чисел 356 и 752, а затем записать результат в переменную А, следовало бы вызвать процедуру таким образом:

sum(356,752,A);

Здесь при описании процедуры

Sum – имя процедуры;

Переменные a, b, c – формальные параметры.

При вызове процедуры 2, 3, rez, 356, 752, А – фактические параметры.

Процедура вызова матрицы на экран

! Замечание. Если в качестве параметра подпрограмме необходимо передать массив, то необходимо заранее описать такой тип данных. Нельзя в заголовке процедуры описать тип Массива.

matr: array[1..10,1..10] of real;

….

procedure Vivod_matr(A:matr);

var I,j: byte;

for i:=1 to 10 do

write(A[I,j]:5:2,’ ‘);

writeln;

end;

end;

{конец процедуры}

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

Vivod_matr(A);

Vivod_matr(B);

Вычислить∑матриц

Vivod_matr(C);

! Необходимо соблюдать соответствие фактических и формальных параметров. Количество и тип формальных параметров должно быть равно количеству и типу фактических параметров.

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

procedure FonColor (Fon, Color:byte);

textbackground (Fon);

clrscr;

textcolor(Color);

end;

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

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

FonColor(blue,white);

переменные (константы, типы данных), которые описаны в основной программе называются глобальными. Переменные описанные внутри подпрограммы – локальными.

Program GLOB;

Дата добавления: 2014-10-17