Процедуры

Лабораторная работа № 13 Процедуры и функции в Паскале

Часто в задаче требуется повторить определенную последовательность операторов в разных частях программы. Для того, чтобы описывать эту последовательность один раз, а применять многократно, в языках программирования применяются подпрограммы. Подпрограмма - автономная часть программы, выполняющая определенный алгоритм и допускающая обращение к ней из различных частей общей программы. Использование подпрограмм позволяет реализовать один из самых современных методов программирования - структурное программирование.

В языке Паскаль существует два вида подпрограмм: процедура (PROCEDURE) и функция (FUNCTION). Процедуры и функции в Паскале объявляются в разделе описания за разделом переменных. В данном уроке приведены примеры и задачи использования процедуры и функций, а также использование рекурсии в языке Паскаль. Параметры, записываемые в обращении к подпрограммам, называются фактическими; параметры, указанные в описании подпрограмм - формальными. Фактические параметры должны соответствовать формальным по количеству, порядку следования и типу. Параметры, объявленные в основной (главной) программе, действуют в любой подпрограмме и называются глобальными. Параметры, объявленные в подпрограмме, действуют только в этой подпрограмме и называются локальными.

Процедуры

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

Пример 1. Процедура без параметров, которая печатает строку из 60 звездочек.

procedure pr;

var i: integer;

begin

for i:=1 to 60 do write (‘ * '); writeln;

end.

Пример 2. Процедура c параметрами. Даны 3 различных массива целых чисел (размер каждого не превышает 15). В каждом массиве найти сумму элементов и среднеарифметическое значение.

program proc;

var i, n, sum: integer;

sr: real;

procedure work (r:integer; var s:integer; var s1:real); {процедура work}

var mas: array [1..15] of integer; { объявление массива мas}

j: integer;

begin

s:=0;

for j:=1 to r do

begin {ввод элементов массива mas}

write(' Vvedite element - ', j,': ');

read (mas[j]);

s:=s+mas [j];

end;

s1:=s/r;

end;

begin { главная программа}

for i:=1 to 3 do

begin

write ('Vvedite razmer ',i, ' masiva: ');

readln(n);

work (n, sum, sr); {вызов процедуры work}

writeln ('Summa elementov = ',sum);

writeln ('Srednearifmeticheskoe = ',sr:4:1);

end;

readln;

end.

Результат работы программы: В программе трижды вызывается процедура work, в которой формальные переменные r, s, s1 заменяются фактическими n, sum, sr. Процедура выполняет ввод элементов массива, вычисляет сумму и среднее значение. Переменные s и s1 возвращаются в главную программу, поэтому перед их описанием ставится служебное слово var. Локальные параметры mas, j действуют только в процедуре. Глобальные - i, n, sum, sr доступны во всей программе.