Программный стек переполняется, улетая на орбиту

@alex5code · Регистрация: 25.10.2017

Студворк — интернет-сервис помощи студентам

Работаю с рекурсией впервые, при выполнении программы выдает ошибку переполнения стека:

Pascal

Var number: integer;
  DefaultN : array[1..15] of integer = (0,1,2,3,4,5,6,7,8,9,10,100,1000,10000,100000);
  ChineseN : array[1..15] of String = ('ling','yi','er','san','si','wu','liu','qi','ba','jiu','shi','bai','qian','wan','yii');
  
  function Func(num: integer) : String;
  Var answer: string = '';
  i: integer;
  steps: integer := 0;
  begin
  while steps < num.ToString.Length do begin
      for i:=15 downto 1 do if (num div DefaultN[i] > 0) and (num div DefaultN[i] < 9) then begin
      answer += ChineseN[i] + ' ';
      Func(num mod i);
      inc(steps);
      end;
  end;
  Func:= answer;
  end;
  
  begin
  Readln(number);
  Writeln(Func(number));
end.

-> 13
Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека.
Буду рад, если наведёте на мысль решения проблемы.

@Puporev · 28.10.2017, 19:52

Интересно как это Вы в цикле внутри функции вызываете эту функцию?

Pascal

while steps < num.ToString.Length do
   begin
    for i:=15 downto 1 do if (num div DefaultN[i] > 0) and (num div DefaultN[i] < 9) then begin
    answer += ChineseN[i] + ' ';
    Func(num mod i);//????
    inc(steps);
   end;

	28.10.2017, 19:52

Опции темы