Ограниченный перебор через рекурсию

@NewStaff · Регистрация: 16.02.2020

Команда состоит из 9 человек, известно, что трое из них заняли призовые места. Определите возможные варианты распределения мест, используя рекурсию.

@JuriiMW · 17.02.2020, 09:11

Pascal

const участники : array of String = ('Коля','Вася','Петя','Саша','Игорь','Толя','Гена','Миша','Лёша');
var a : array of Integer := (-1,-1,-1);
procedure перебор(n:Integer);
begin
  if n=3 then a.Select((x,n)->$'{n+1}:{участники[x]}').Println else for var x := 0 to участники.Length-1 do if Not a.Contains(x) then begin a[n]:=x;перебор(n+1);a[n]:=-1;end;
end;
begin
  перебор(0);
end.

@NewStaff 0 / 0 / 0 Регистрация: 16.02.2020 Сообщений: 7
		1
	Ограниченный перебор через рекурсию 16.02.2020, 15:21. Показов 285. Ответов 1 Метки нет (Все метки) Команда состоит из 9 человек, известно, что трое из них заняли призовые места. Определите возможные варианты распределения мест, используя рекурсию. 0

Опции темы