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

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

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


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


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

[sintanial]

Не хотел создавать новую тему, так что спрошу тута.
Вот задание:
Написать программу которая подсчитывает сумму и количество элементов в массиве до первого отрицательного элемента, и сделать это надо с помощью рекурсии . Не рекурсивным методом решить эту задачи не составляет и малейшего труда, а вот как рекурсией не понятно. Вот минут 15-20 сидел в поисковике но так и не нашел не че подходящего, связанного с моей задачей.

Подскажите пожалуйста что нужно делать =)


Вот задача без рекурсии =)

type vect=array[1..100] of real;
procedure Mat(const a:vect; var k:real);
var n,i:integer;
begin
  i:=1;
  while a[i]>0 do
  begin
    k:=k+a[i];
    inc(i);
  end;
end;

var a:vect; n,i:integer; k:real;
begin
  read(n);
  for i:=1 to n do
    read(a[i]);
  mat(a,k);
  writeln(k,' ',i-1);
end.

З.ы. Для начало сделайте подсказку, может сам смогу написать- просто пока что трудно осмыслить с рикурсией =)

Сообщение отредактировано: sintanial - 21.03.2008 20:38