нас на этом пути.
нас на этом пути. Их иллюстрирует только что описанная схема, развернутая в следующей программе.
{$M 16384,0,655360}
var
x, y, z : byte;
k : 0..10;
function First (n : byte) : byte; forward;
function Second (n : byte) : byte;
begin
if n=0 then Second := 1 else Second := First(n-k) + 1
end;
function First;
begin
if n=0 then First := 0 else First := Second(n-1) + 1
end;
BEGIN
Read (k);
{при k=0,1,2,4,5,6,8,9,10 - программа выполняет работу}
{при k=3,7 - происходит переполнение стека}
for x := 0 to 4 do
begin
y := First(x); z:=Second(x); WriteLn (x,y,z,' ')
end
END.
Механизм рекурсии (то есть, самовызова), фактически, представляет лишь вариант организации цикла. При этом, если не предусмотреть возможность выхода, цикл работает бесконечно, как в истории “попа и собаки”. Разумеется, выход можно организовать по-разному, но в любом случае требуется изменение некоего управляющего параметра. В “обычных” циклах с предусловием и постусловием изменение должно
Индекс
Элементарные функции
Линейные уравнения
Нелинейные уравнения
Случайные числа
