выход из рекурсии

[L_M]

народ! помогите выйти из рекурсии. я придумал такой вариант(реальный код уже потерян):

f:boolean=true;

procedure q(a:byte);
begin
     if f then a:=a+1;
     if f then q(a);
     if f ...
     if f then 
         if a=x then f:=false;
end;

а как будет правильно? ведь exit выводит только из текущего запущенного варианта...

[mihali4]

а как будет правильно? ведь exit выводит только из текущего запущенного варианта...

Правильно будет первой строкой поставить

if not f then
exit;

Вот и произойдет циклический выход...

[L_M]

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

[mihali4]

А о стеке вы не подумали?

[s.Creator]

Сообщение от L_M

народ! помогите выйти из рекурсии. я придумал такой вариант(реальный код уже потерян):

f:boolean=true;

procedure q(a:byte);
begin
     if f then a:=a+1;
     if f then q(a);
     if f ...
     if f then 
         if a=x then f:=false;
end;

а как будет правильно? ведь exit выводит только из текущего запущенного варианта...

и не выйдешь
у тебя а передается не по ссылке и q(a); ничего не делает
попробуй для начала

procedure q(var a:byte);

[Sibedir]

L_M, ваш первый вариант никогда не завершится, так как "a" не увеличивается. Поставте "var", и всё случится. И еще, зачем стока if-ов и какой-то "f".

procedure q(var a:byte);
begin
  if a < x then begin
    a:=a+1;
    q(a);
    ...
  end;
end;

В зависимости от того, как вам лучше, можно в условии написать a <= x.

[L_M]

Да нет, этот код я написал просто для примера, он конечно не верен. if нужен как раз для выхода, т.е. перед каждым оператором проверяется, нужно ли его выполнять или пора завершить рекурсию. например в таком коде

procedure qw(i:integer;)
begin
    for j:=1 to n do
         qw(i+j);
end;

если писать, как вы предлагаете условие в начале, то при достижении условия текущая процедура завершиться, апредыдущая будет продолжать цикл for. этого я избегаю, ставя условие перед каждым оператором. Вообще я говорю не о конкретной задаче, а о принципиальном выходе(т.е. принципе выхода).
P.S. еще один вариант можно применять для некоторых задач - завершать программу при достижении условия - только не знаю как это сделать в консоли. и еще: стек конечно слово красивое, но ничего не объясняет. или выы предлагаете чтобы при достижении условия программа сама вытаскивала из стека и тем самым прекращалась(хороший вариант, но не знаю возможен ли)? или имеется в виду, что прекращать ее не надо - стек переполниться и она сама завершиться?

[Sibedir]

А как вам такой вариант

function MyFunc (Inp: Integer): Boolean;
var
  i: Integer;
begin
  if {inp не удовлетворяет условиям} then begin
    Result := False;
  end
  else begin 
    for i := 1 to Inp do begin
      Result := MyFunc (f(i));
      if not Result then Break;
    end;
  end;
end;

Этот код ничего не делает, это только пример рекурсии и ее завершения.
Но вы сами говорили:

Вообще я говорю не о конкретной задаче, а о принципиальном выходе(т.е. принципе выхода).

P.S.: Мой вам совет. Получить хорошие навыки программирования не решая конкретных задач не возможно. Лучше ищите или выдумывайте задачи хоть как-то привязанные к жизни, чем выдумывать код, который что-то там делает.

[evg_m]

не выход из рекурсии а условие продолжения рекурсии
function f(par): integer;
begin
if par<100 then result:= par + f(par+1);
end;

[Sibedir]

Я ж и говорю, все зависит от поставленной задачи.