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

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

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


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


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

[volvo]

PascalABC workaround:

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

var
  a: arrtype;
  n, i: integer; s: real;
begin
  readln(n);
  for i := 1 to n do
    readln(a[i]);

  i := mat(a, 1, n, s);
  writeln(s:8:4, ' ', i);
end.

Сообщение отредактировано: volvo - 22.03.2008 3:41