Рекуррентная процедура: вывод на экран заданной последовательности чисел

@Виктор 134 · Регистрация: 12.10.2016

Студворк — интернет-сервис помощи студентам

Дано натуральное число n. Написать рекуррентную процедуру вывода на экран следующей последовательности чисел
1
2 1
3 2 1
........
N n-1 n-2 ... 1

@Zwelenewskiy · 20.06.2017, 20:32

Составить блок-схему к программе (рекурсия)

@JuriiMW · 21.06.2017, 05:24

Zwelenewskiy, там код не PABC.NET…
Код под данное условие примерно такой:

Pascal

function p(i:integer):String:=''+i+(i>1?' '+p(i-1):'');
begin
  Range(1,ReadLnInteger('n =')).Select(i->p(i)).Println(NewLine);
end.

@Zwelenewskiy · 21.06.2017, 08:27

JuriiMW, почему-то я думаю,что нужен был код именно не PABC.NET =))

@JuriiMW · 21.06.2017, 08:36

Zwelenewskiy, тем не менее: раз в разделе PABC.NET → получайте что не хотели ;–)

@volvo · 21.06.2017, 11:36

Сообщение от JuriiMW

получайте что не хотели

Вот и получили, что не хотели. Хотели процедуру, получили функцию.

Вот с процедурой:

Pascal

procedure p(i : integer);
begin
  write(i, ' ');
  if i > 1 then p(pred(i)) else writeln;
end;
 
begin
  Range(1, ReadlnInteger('n =')).ForEach(p);
end.

@Виктор 134 0 / 0 / 2 Регистрация: 12.10.2016 Сообщений: 137
		1
	Рекуррентная процедура: вывод на экран заданной последовательности чисел 20.06.2017, 20:22. Показов 1046. Ответов 5 Метки нет (Все метки) Дано натуральное число n. Написать рекуррентную процедуру вывода на экран следующей последовательности чисел 1 2 1 3 2 1 ........ N n-1 n-2 ... 1 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	20.06.2017, 20:32	2
	Составить блок-схему к программе (рекурсия) 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	21.06.2017, 08:27	4
	JuriiMW, почему-то я думаю,что нужен был код именно не PABC.NET =)) 0

@JuriiMW 5065 / 2637 / 2348 Регистрация: 10.12.2014 Сообщений: 10,003
	21.06.2017, 08:36	5
	Zwelenewskiy, тем не менее: раз в разделе PABC.NET → получайте что не хотели ;–) 0

Опции темы