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

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

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


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


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

[volvo]

Забыл сказать, что нельзя использовать циклы

В принципе, рекурсия и будет заменять цикл...

Смотри... Во-первых, твоя процедура может быть описана вот так:

procedure Mat(const a: array of real; var k:real);

, что даст тебе возможность более гибко работать с массивами. Во-вторых, поскольку тебе надо _и_ сумму _и_ количество, то логичнее сделать функцию:

function mat(const a: array of real; n: integer;
         var sum: real): integer;
begin
  if (a[0] < 0) or (n = 0) then begin { или отр. элемент, или массив закончился }
    mat := 0; exit
  end;

  sum := sum + a[0]; { нужно считать, до границы не добрались }
  mat := 1 + mat(a[1], n - 1, sum); { вот, собственно, ради чего это начиналось }
end;

type
  vect = array[1 .. 100] of real;
var
  a: vect;
  n, i: integer; s: real;
begin
  readln(n);
  for i := 1 to n do
    readln(a[i]);

  s := 0; { <--- никогда не лишнее действие }
  i := mat(a, n, s);
  writeln(s:8:4, ' ', i);
end.