Подпрограммы-процедуры

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

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

Описание подпрограммы-процедуры должно также находится в разделе описаний программы.

Стандартный вид описания процедуры:

procedure идентификатор ( список параметров );

Begin

тело процедуры;

End;

Здесь зарезервированное слово procedure показывает, что далее следует описание процедуры. Идентификатор осуществляет именование процедуры. Список параметров – это список переменных, используемых для передачи данных в подпрограмму-процедуру. Обратим внимание, что в отличии от функции, здесь отсутствует тип возвращаемого значения, так как имя процедуры не является носителем результата выполнения процедуры. Поэтому тип процедуры в заголовке не описывается.

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

Рассмотрим пример:

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

Uses crt;

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

Procedure vivod(x: massiv;n: integer);

Var i: integer;

Begin

for i:=1 to n do

Write (x[i],' ');

Writeln;

end;

Var m,j: integer;

a,b,c: massiv;

Begin

Write (‘Введите размерность массива:’);

Readln (m);

Write (‘Введите элементы 1-го массива:’);

for j:=1 to m do

Begin

Write ('a[',j,']=');

Readln (a[j]);

end;

Writeln (‘Введите элементы 2-го массива’);

for j:=1 to m do

Begin

write ('b[',j,']=');

readln (b[j]);

end;

Writeln (‘Превый массив’);

Vivod (a,m);

Writeln (‘Второй массив’);

Vivod (b,m);

for j:=1 to m do

c[j]:=a[j]+b[j];

Writeln (‘Суммированный массив’);

Vivod (c,m);

End.