Написать рекурсивную процедуру генерации всех перестановок чисел от 1 до n

[Proskurina]

Написать рекурсивную процедуру генерации всех перестановок чисел от 1 до n

[Serge_Bliznykov]

задача как-то криво сформулирована.
А что такое "перестановка числа" ?!

например, перестановка числа 29 чему равна?! а числа 3575 ?

[Reisch_Helena]

перестановка числа 29 чему равна?!

29
92

а числа 3575 ?

3575
5375
7535
7355..

[Stilet]

var s:string;j,i:integer;
begin
 s:='12345';
 for i:=1 to Length(s) do begin
  for j:=1 to Length(s) do begin
   write(s[(j+i) mod length(s)+1]);
  end; writeln;
 end;
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Пойдет?

[Reisch_Helena]

в этой задаче как я поняла, должна быть процедура, вызывающая внутри себя, себя же. это и будет рекурсия

[TinMan]

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

в этой задаче как я поняла, должна быть процедура, вызывающая внутри себя, себя же. это и будет рекурсия

Посмотри вот эту тему, пост №13

Добавлено:
Там потребуется изменение. Вместо простой строки надо поставить массив чисел от 1 до n. Если хочешь, могу написать главное..

Ну, внес я нужные изменения, чтоб работала не со строкой, а с массивом чисел.. В результате, ессно, все равно запускать ее для n больше 9 - бессмысленно, потому как слишком долго . А если работать для n<=9, то это - цифры, и можно использовать тот код без изменений, написав нужную строку (типа '123456' для n=6). Ладно, короче, вот код с массивом чисел:

const
  n= 8;

type
  tA= array[1..n] of word;

procedure Permute(a: tA; p: word);
var
  i,b: word;
begin
  if p=n then begin
    for i:=1 to n do write(a[i]:3);
    writeln
  end
  else begin
    b:= a[p];
    for i:=p to n do begin
      a[p]:= a[i];
      a[i]:= b;
      Permute(a,p+1);
      a[i]:= a[p]
    end
  end
end;

var
  i: word;
  a: tA;

begin
  for i:=1 to n do a[i]:= i;
  Permute(a,1)
end.