Отсортировать цифры числа!

[Виталик124]

Задано натуральное число, отсортировать цифры числа в любой последовательности! просто хочу понять суть! как это делается!

[PathTheir]

Читаем число как строку, и сортируем ее с помощью любого алгоритма сортировки.

[Serge_Bliznykov]

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

Читаем число как строку, и сортируем ее с помощью любого алгоритма сортировки.

или с помощью N mod 10 / N := N div 10; "разбираем" число на отдельные цифры, которые помещаем в тот же массив, массив сортируем. Результат либо переводим в число, либо банально выводим.
Профит.

[Poma][a]

Добавлю.. Использовать лучше сортировку подсчетом..

[Виталик124]

а можно поподробней, про этот способ! просто я как раз сейчас над ним сижу! у меня выбивает ошибку : Нельзя преобразовать тип integer к array [1..100] of integer

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

Читаем число как строку, и сортируем ее с помощью любого алгоритма сортировки.

Да, но этот способ не воспринимает мой препод! я то понял как сортировать
с помощью строк - это действительно легче и понятней (мне так кажется), но он говорит, что нужно через mod и div!

Если что, то вот прога :

program sortirovka_cifr;

var
  err, n: integer;
  s: string; 
  ch: char;
  i, j: integer;

begin
  writeln('vvedite_chislo');
  readln(n);
  str(n, s);
  for i := 1 to length(s)  do
  begin
    for j := i + 1 to length(s) do
      if s[j] > s[i] then 
      begin
        ch := s[i];
        s[i] := s[j];
        s[j] := ch;
      end;
  end;
  val(s, n, err);
  writeln('otsortirovannoe_chislo ', n);
end.

... и единственный вопрос, что такое err?

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

или с помощью N mod 10 / N := N div 10; "разбираем" число на отдельные цифры, которые помещаем в тот же массив, массив сортируем. Результат либо переводим в число, либо банально выводим.
Профит.

а можно поподробней, про этот способ! просто я как раз сейчас над ним сижу! у меня выбивает ошибку : Нельзя преобразовать тип integer к array [1..100] of integer...

[Serge_Bliznykov]

Сообщение от Виталик124

а можно поподробней, про этот способ! просто я как раз сейчас над ним сижу! у меня выбивает ошибку : Нельзя преобразовать тип integer к array [1..100] of integer...

примерно так:

program sortirovka_cifr;

var
  n: integer;
  digits: array[1..20] of byte; { дадим массиву "говорящее" имя }
  i, j, k, NN: integer;

begin
  writeln('vvedite_chislo');
  readln(n);

  {сначала поместим все цифры числа в массив digits, каждая цифра отдельно}
  k := 0; {индекс в массиве чисел}
  NN := n;
  while NN > 0 do begin
    inc(k);
    digits[k] := NN mod 10;
    NN := NN div 10;
  end;

  {отсортируем массив}
  for i := 1 to k-1  do
  begin
    for j := i + 1 to k do
      if digits[j] > digits[i] then
      begin
        NN := digits[i];
        digits[i] := digits[j];
        digits[j] := NN;
      end;
  end;

  {выведем цифры из массива на экран}
  Write('otsortirovannoe_chislo ');
  for i:=1 to K do Write(digits[i]);
  WriteLn;
  Readln
end.

p.s. при необходимости можно обратно "собрать" элементы массива в число.
Делать это удобнее от младших разрядов к старшим.

[ViktorR]

Вот у меня возник вопрос.
А что, сам процесс сортировки обязателен как отдельный процесс?
Представление данных до сортировки и после может быть ведь различным.
У меня получилось так:

var n, NN : integer;
   i : integer;
   digits : array[0..9] of byte;
begin
   write('Vvedite chislo: ');
   readln(n);
   NN := n;
   while NN > 0 do
   begin
      inc(digits[NN mod 10]);
      NN := NN div 10;
   end;
   writeln('Otsortirovannoe chislo');
   for i := 0 to 9 do
      while digits[i] > 0 do
      begin
         write(i:3);
         dec(digits[i]);
      end;
      readln;
end.

Вроде и покороче и попроще.

Как-то так, ...

[Poma][a]

Именно это я и имел ввиду..

Можно еще так :

ReadLn(s);
for i := 1 to Length(s) do
   Inc(digits[s[i]]);

for ch := '0' to '9' do
    while digits[ch] > 0 do begin
           Write(ch);
           Dec(digits[i])
    end;

И всё же.. лучше проинициализировать digits, несмотря на глобальные переменные в данном случае