?Turbo Pascal допускается любо?уровен?вложенност?процедур ?функци? Процедур? описанная ?основной программ? може?имет?описан? внутренних процедур ?функци???? Пр?этом объект? описанны??вызывающей процедур? являют? глобальным?по отношени??вызываемой процедур?

Для доступ??объектам, описанны??различны?блоках, требуется соблюдение следующи?правил:

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

2. Имен?объектов, описанны??блок? должны быть уникальн??пределах данног?блок??могу?совпадат??именам?объектов из других блоков.

3. Если ?некоторо?блок?описан объект, имя которого совпадае??именем объект? описанного ?объемлющем блок? то эт?последне?имя становит? недоступны??данном блок?(он?ка?бы экранирует? одноименны?объектом данног?блок?.

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

Рекурс? ?эт?тако?способ организаци?вычислительног?процесса, пр?которо?процедур?ил?функция ?ходе выполнен? состав?ющих ее операторов обращает? сама ?себе. Суть заключается ?то? чт?пр?каждом вызове создается новая копия со своими переменным? но ка?только он?завершае?свою работу, то па?ть, за?тая этим?локальными переменным? освобождается, ?полученные результаты передают? ?точк?вызова.

Пример 6: Вычислит?факториа?натурального числ? Для того, чтоб?вычислит?N!, надо знат?значение (N-1)! ?умножить ег?на N, пр?этом 1!=1. ?обще?виде эт?можн?записать та?

Решени?

program pr6;

var n,f:integer;

function fact(n:integer):integer;

begin

if n=1 then fact:=1

else fact:=n*fact(n-1)

end;

begin

writeln(‘Ввест?числ?n>1?;

read(n);

f:=fact(n);

writeln(‘Д? числ??n,?значение факториала =?f)

end.

Пуст?n=5, ?? вычислит?5! Ка?же буде?вычислять? факториа?этог?числ? Первый вызо?этой функци?буде?из основной программ? Надо заметить, чт?пр?каждом обращени??функци?буде?появлять? свой набо?локальны?переменных со своими значен?ми, ?данном случае ?переменн? n, для которы?выде?ет? па?ть. ?посл?завершен? работы эт?част?па?ти освобождается, ?переменные удаляют?.

Та?ка?n, то пойдем по ветк?else ?fact присваивае?значение n*fact(n-1), ?? надо умножить 5 на значение функци?fact(4). Поэтом?обращаем? второй ра??этой же функци? но передаем ее ново?значение параметр??4. Та?делаем до те?по? пока не передади?значение равное 1. Тогд?n=1, ?поэтом?значение функци?fact:=1. Таки?образо? n=1 ?эт?услови? по которому процес?вход??следующу?рекурсию заканчивается. Идет возвращени??точк?возврата ?подстановк??оператор присваиван? значен? вычисленно?функци? ?? возвращаем? ?предыдущую функци?для n=2: fact:=n*fact(n-1), значит, fact:=2*1, следовательн? fact(2)=2. ?возвращаем? дальше. Таки?образо? получаем значение fact(5)=120, эт?значение ?присваивается переменной f.

Итак, пр?выполнении рекурсивно?подпрограммы осуществ?ет? многократный перехо?от некоторого текущего уров? организаци?алгоритм??нижнем?уровню последовательн?до те?по? пока, наконе? не буде?получено тривиально?решени?поставленной задачи. ?данном пример?решени?пр?n=1 тривиально, ?? fact=1. Зате?осуществ?ет? возвра?на верхни?уровен??последовательным вычисление?значен? функци?fact.

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

ЗАДАНИ?ДЛ?САМОСТОЯТЕЛЬНО?РАБОТЫ

Задача 1.

Составьт?программ?подсчета числ?всех натуральны?чисе? меньши?? квадра?сумм?цифр которы?раве??

Задача 2.

Даны действительные числ?S, T. Составит?программ?вычислен? выражения

, гд?.

Задача 3.

Вычислит?сумм? 1!+2!+3!+ ?+n!, используя функци?вычислен? факториала числ?k!

Задача 4.

Даны координаты вершин многоугольника (?,y1,x2,y2,?x10,y10). Определить ег?периметр (вычисление расстояния межд?вершинам?оформить подпрограммо?.

Задача 5.

Даны координаты трех вершин треугольника АВ??даны координаты четверто?точк?D. Определить, являет? ли эт?точк?внутренней точкой треугольника.

Задача 6.

Даны координаты вершин двух треугольнико? Найт?длин?всех сторон этих треугольнико?

Задача 7.

Дано натурально?числ?n>2. Выяснит? имеется ли сред?чисе?n, n+1, ?, 2n близнецы, ?? просты?числ?разность межд?которыми равн?двум.

Задача 8.

Составит?программ?вычислен? значений функци?Аккерман?для неотрицательны?чисе?n ?m.

Задача 9.

Найт?первые N чисе?Фибоначч? Каждое числ?Фибоначч?равн?сумм?двух предыдущих чисе?пр?услови? чт?первые дв?равн?1 (1, 1, 2, 3, 5, 8, 13, 21, ?, поэтом??обще?виде n-?числ?можн?определить та?

КОНТРОЛЬНЫ?ВОПРОС?/strong>