Рекурсия, рекурсиваная процедура.... Опции

[Миклашевский Денис]

Доброго времени суток! Если кто может помогите с задачкой...:


Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа до тех пор, пока не будет обнаружен 0.Затем введенные числа распечатываются в обратном порядке.0 Не печатать.


спасибо заранее!

[volvo]

Да не выбивает оно ничего (если ты используешь TP, конечно) - я на TP7 проверял - все прекрасно работает. А вот если у тебя ABC - это надо говорить сразу. Этим поделием я не пользуюсь, и что там и как - не знаю... Можешь попробовать поменять Const на Var, если PascalABC вообще умеет работать с открытыми массивами.

А вот без exit я вот уже час думаю как сделать

Бред какой-то несет твой преподаватель... Если б Exit и ему подобные делали программистов менее опытными, неужели ж их не вывели из состава языка? Ан нет, в любом языке присутствуют аналоги... Здесь проблема решается просто:

function mat(const a: array of real; n: integer;
         var sum: real): integer;
begin
  if (a[0] < 0) or (n = 0) then mat := 0
  else begin
    sum := sum + a[0];
    mat := 1 + mat(a[1], n - 1, sum);
  end;
end;

, но в другом месте потребуется наворотить еще столько же кода. Это кому-то надо?