Рекурсия: введенные числа распечатать в обратном порядке

@Slavmaster · Регистрация: 10.11.2010

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

@FuKingBrain · 09.12.2010, 12:07

Pascal

use crt;
 
procedure chisla;
var
  a: integer;
begin
  clrscr;
  writeln('Введите число');
  readln(a);
  if a <> 0 then
    begin
      chisla;
      writeln(a);
    end;
end;

@Slavmaster · 09.12.2010, 12:32 **[ТС]**

напиши рожалуйсто полную я непонимаю

Добавлено через 7 минут
FuKingBrain, сделой полнуюююю пожалуйсто)))

@FuKingBrain · 09.12.2010, 21:45

Pascal

uses crt;
 
procedure chisla;
var
  a: integer;
begin
  clrscr;
  writeln('Введите число');
  readln(a);
  if a <> 0 then
    begin
      chisla;
      writeln(a);
    end;
end;
 
begin
  chisla;
end.

@Slavmaster · 14.12.2010, 12:17 **[ТС]**

а почему в этой программе любое число которое я не ввиду исчезает?что нетак

@SuPeR XaKer · 14.12.2010, 12:22

clrscr;

убери

@Slavmaster · 14.12.2010, 12:25 **[ТС]**

не в этом дело я убрал но оно серовно чюш делоет(если можете проверте вы у ся ее)

@Slavmaster 4 / 4 / 0 Регистрация: 10.11.2010 Сообщений: 58
		1
	Рекурсия: введенные числа распечатать в обратном порядке 09.12.2010, 11:40. Показов 1422. Ответов 6 Метки нет (Все метки) Написать рекурсивную процедуру, которая считывает вводимые с клавиатуры числа до тех пор, пока не будет обнаружен нуль. Затем введенные числа распечатываются в обратном порядке. Нуль не печатать. 0

@Slavmaster 4 / 4 / 0 Регистрация: 10.11.2010 Сообщений: 58
	09.12.2010, 12:32 [ТС]	3
	напиши рожалуйсто полную я непонимаю Добавлено через 7 минут FuKingBrain, сделой полнуюююю пожалуйсто))) 0

@Slavmaster 4 / 4 / 0 Регистрация: 10.11.2010 Сообщений: 58
	14.12.2010, 12:17 [ТС]	5
	а почему в этой программе любое число которое я не ввиду исчезает?что нетак 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	14.12.2010, 12:22	6
	clrscr; убери 0

@Slavmaster 4 / 4 / 0 Регистрация: 10.11.2010 Сообщений: 58
	14.12.2010, 12:25 [ТС]	7
	не в этом дело я убрал но оно серовно чюш делоет(если можете проверте вы у ся ее) 0

Опции темы