Рекурсивные подпрограммы

Begin

Begin

Type

Пример

Begin

Type

Пример

Необходимо в виде подпрограммы оформить вывод элементов одномерного массива на экран.

Рассуждения

1. Так как подпрограмма будет осуществлять именно набор действий (вывод элементов массива), а не производить вычисление, то оформлять подпрограмму следует в виде процедуры, а не функции.

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

mas: array[1…100] of real;

….

procedure Vivod (A:mas, kol:byte);

{напомним, что здесь необходимо предварительное описание типа Массив}

for i:=1 to kol do

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

end;

Необходимо в виде подпрограммы оформить ввод элементов одномерного массива.

Рассуждения.

1. Так как подпрограмма будет осуществлять именно набор действий (ввод элементов массива), а не производить вычисление, то оформлять подпрограмму следует в виде процедуры, а не функции. Кроме того, результатом функции не может быть массив.

2. Параметрами процедуры будут имя массива и количество элементов массива. Количество элементов массива введем в основной программе, поэтому этот параметр необходимо подать на вход (передать) процедуре. Имя массива также необходимо передать процедуре. Однако, если количество элементов известно основной программе (так как ввод этого значения произведется в основном блоке), то значения элементов массива необходимо будет вернуть (передать) в основную программу процедуры. Следовательно, параметр – количество элементов массива – должен быть параметром-значением, а параметр – массив параметром-переменной.

mas: array[1…100] of real;

….

procedure Vivod (A:mas; kol:byte);

{обратим внимание, здесь параметры различных типов в отличии от предыдущего примера разделены точкой с запятой}

for i:=1 to kol do

write(‘ Ведите‘, i, ‘элемент массива’);

readln(A[i]:5:2,’ ‘);

end;

end;

……

{ Основная программа }

……..

write(‘ Ведите количество элементов массива’);

readln (kol);

……..

Иногда встречаются такие случаи, когда задача разбивается на подзадачи, которые имеют ту же структуру, что и основная задача.

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

Способ вызова подпрограммы, в котором подпрограмм вызывает сама себя, называют рекурсией.

Подпрограммы, реализующие рекурсию, называются рекурсивными подпрограммами.

Поясним механизм рекурсивных программ с помощью классического примера использования рекурсии.

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