Помогите решить задачку с рекурсией Опции

[Pavel]

Помогите пожалуйста с задачкой!!!
--------------------------------------------------------------------------------

Дана последовательность ненулевых целых чисел, за которой  следует 0.
Вывести сначала все отрицательные числа этой последовательности, а затем все положительные( в любом порядке ) - необходимо сделать при помощи рекурсии.
____________________________________________________________________

хотябы с основная часть програмы.

Зарание благодаре!

[OlegP]

Можно сделать так:

Код

var f:text;

procedure v;
var a:integer;
begin
read(a);
while a<>0 do
begin
 if a<0 then
  begin
   writeln(f,a);
   read(a)
  end
 else
  begin
   v;
   writeln(f,a);
   a:=0
  end
end
end;

BEGIN
assign(f,'c:test.txt');
rewrite(f);
v;
close(f)
END.

прога выводит результаты в файл c:test.txt , сразу же выводятся числа, если они отрицательные, иначе происходит еще один вызов процедуры. На возврате печатаются положительные числа.

Сообщение отредактировано: volvo - 17.12.2004 17:31

[Гость]

Помогите пожалуйста с задачкой!!!
--------------------------------------------------------------------------------

Дана последовательность ненулевых целых чисел, за которой  следует 0.
Вывести сначала все отрицательные числа этой последовательности, а затем все положительные( в любом порядке ) - необходимо сделать при помощи рекурсии.
____________________________________________________________________

хотябы с основная часть програмы.

Зарание благодаре!

[Гость]

Можно сделать так:

Код

var f:text;

procedure v;
var a:integer;
begin
read(a);
while a<>0 do
begin
 if a<0 then
  begin
   writeln(f,a);
   read(a)
  end
 else
  begin
   v;
   writeln(f,a);
   a:=0
  end
end
end;

BEGIN
assign(f,'c:test.txt');
rewrite(f);
v;
close(f)
END.

прога выводит результаты в файл c:test.txt , сразу же выводятся числа, если они отрицательные, иначе происходит еще один вызов процедуры. На возврате печатаются положительные числа.

а тоже самое только без рекурсии как будет выглядеть?