Перестановка цифр в целом числе. Паскаль.

[Cheetah]

Нужно перестановкой цифр в произвольном целом числе получить максимально возможное число. Понимаю, что задачка должна решаться элементарно, но как это сделать никак не доходит, поэтому прошу помощи =)

[AVer]

Переводишь число в строку, а потом каждую цифру обратно в число и сортируешь по убыванию.

Var I,J,N:Integer;
    S:String;
    A:Char;
    B:Boolean;
begin
ReadLn(N);
Str(N,S);
B:=True;
While B Do
Begin
B:=False;
For I:=2 to Length(S) Do
 Begin
 Val(S[I-1],J,J);
 Val(S[I],N,N);
 If N > J Then
  Begin
  A:=S[I];
  S[I]:=S[I-1];
  S[I-1]:=A;
  B:=True;
  End;
 End;
End;
Val(S,N)
WriteLn(N);
ReadLn;
end.

Без особой оптимизации как то так.

[Cheetah]

Нельзя так к сожалению, тема другая, надо что-то с циклами мутить

[Viteef]

перестановкой цифр в произвольном целом числе получить максимально возможное число

Проще говоря это сортировка по убыванию.

45674 >> 76544

Нельзя так к сожалению, тема другая, надо что-то с циклами мутить

В алгоритме сортировки разве нету циклов?

[Cheetah]

Короче вот так как было написано выше со строками нельзя))

[puporev]

Сделай так.

{поменять порядок цифр в числе так чтобы оно было наибольшим}
uses crt;
var a,s:longint;i,k,n,j,x:integer;b:array[1..20] of integer;
begin
   clrscr;
   writeln('a = ');readln(a);
   n:=0;
   while a>0 do  {разделяем число на цифры и заносим их в массив}
     begin
        k:=a mod 10;     {15287=1,5,2,8,7}
        n:=n+1;
        b[n]:=k;
        a:=a div 10;
     end;
   for i:=1 to n-1 do    {сортируем массив по убыванию}
     begin                 {1,5,2,8,7=8,7,5,2,1}
        for j:=1 to n-1 do
           if b[j]>b[j+1] then
              begin
                 x:=b[j];b[j]:=b[j+1];b[j+1]:=x;
              end;
     end;
  for i:=n downto 1 do    {создаем новое число}
      s:=10*s+b[i];
writeln(s);               {8,7,5,2,1=8*10*10*10*10+7*10*10*10+5*10*10+2*10+1}
readln;
end.