Подпрограммы в языке Паскаль.
Подпрограмма – это поименованный фрагмент программы, содержащий описание определённого набора действий. С помощью подпрограмм любая программа может быть разбита на несколько частей, которые могут взаимодействовать между собой. Каждая подпрограмма описывается один раз, при необходимости к ней можно многократно обращаться.
В Паскале имеется два вида подпрограмм: процедуры и функции. Используемые подпрограммы должны быть описаны в разделе процедур и функций. Структура любой подпрограммы аналогична структуре основной программы. Описание завершается «;».
Локальные и глобальные переменные
Областью видимости или областью действия переменной называется часть программы, где данная переменная может быть использована.
Программа и совокупность описанных в ней процедур и функций образуют блочную структуру.
Блок, содержащий в своем разделе описаний другой блок (процедуру или функцию), называется внешним по отношению к нему. Блок, содержащийся в разделе описаний некоторого блока, называется внутренним или подблоком.
Объекты, описанные внутри какого-либо подблока, являются по отношению к нему локальными и недоступны внешним блокам. Формальные параметры также являются локальными в пределах подпрограммы. Объекты, описанные в некотором внешнем блоке, доступны и могут быть использованы в любом его подблоке, т.е. они являются глобальными по отношению к этим подблокам.
Глобальными называются переменные, область действия которых распространяется на всю программу или блок.
Локальными называются переменные, область действия которых ограничена рамками подпрограммы или блока, в которых она определена.
Подпрограмма-процедура
Подпрограмма-процедура предназначена для выполнения какой-либо логически законченной последовательности действий.
Описание процедуры начинается с заголовка:
procedure имя [(список формальных параметров)];
Далее могут идти такие же разделы, что и в основной программе.
Вызов процедуры осуществляется с помощью оператора:
имя_процедуры [(список фактических параметров)];
Пример использования процедур без параметров:
Программа организует вывод на экран меню, ввод массива, вычисление суммы элементов массива, вывод массива и выход из программы.
Код программы:
Program Pp;
Uses crt;
Const n=6;
Type
TMas=array[1..n] of real;
Var
a:TMas;
i:byte;
Procedure Menu;
begin
clrscr;
writeln('Выберите пункт меню');
writeln('1. Ввод массива');
writeln('2. Вычисление суммы');
writeln('3. Вывод массива');
writeln('4. Выход');
end;
Procedure In_Mas;
begin
for i:=1 to n do
begin
write('Введите а[', i, ']=');
readln(a[i])
end;
end;
Procedure Out_Mas;
begin
for i:=1 to n do
begin
writeln('а[', i, ']=', a[i]:6:3);
end;
end;
Procedure Sum_Mas;
var
s:real;
begin
s:=0;
for i:=1 to n do
s:=s+a[i];
writeln('s=', s:6:3);
end;
begin
repeat
Menu;
case readkey of
'1':In_Mas;
'2':Sum_Mas;
'3':Out_Mas;
'4':Exit
end;
writeln('Нажмите любую клавишу...');
readkey;
until False;
end.
Результаты работы программы:
Выберите пункт меню
1. Ввод массива
2. Вычисление суммы
3. Вывод массива
4. Выход
Выберите пункт меню
1. Ввод массива
2. Вычисление суммы
3. Вывод массива
4. Выход
Введите а[1]=2
Введите а[2]=46.7
Введите а[3]=4.2
Введите а[4]=8.4
Введите а[5]=5.7
Введите а[6]=2.8
Нажмите любую клавишу...
Выберите пункт меню
1. Ввод массива
2. Вычисление суммы
3. Вывод массива
4. Выход
s=69.800
Нажмите любую клавишу...
Выберите пункт меню
1. Ввод массива
2. Вычисление суммы
3. Вывод массива
4. Выход
а[1]= 2.000
а[2]=46.700
а[3]= 4.200
а[4]= 8.400
а[5]= 5.700
а[6]= 2.800
Нажмите любую клавишу...