Минимальное число

[Progs1024]

Задача состоит в следующем... Дано натуральное четырёхзначное число. Нужно найти минимальное натуральное 4х значное число, состоящее из тех же цифр, что и заданное.
Например. Дано число 5928. Нужно что бы выходило 2589.

[Stilet]

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

[Progs1024]

ну у меня есть идея использовать div... основная моя проблема это поставить числа по возрастанию

[Stilet]

основная моя проблема это поставить числа по возрастанию

А ты почитай про сортировку. Любой способ - пузырьком, шелла.
Все это есть на http://www.delphiworld.narod.ru/_all_articles_.html.
Потом приводишь число в строку а строка это массив символов - его и сортирь

[Progs1024]

вот как раз таки разсортирить моя главная проблема... помоги пожалста как эт сделать?

[Stilet]

помоги пожалста как эт сделать?

Иди по ссылке. Там поищи "Сортировка". Там все есть.

[Progs1024]

спасибо большое!

[Plague]

А если дано например число 4001 то ответ будет 1004. Т.е. если в данном числе есть 0 то надо както модифицировать сортировку.

[LeBron]

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

А если дано например число 4001 то ответ будет 1004. Т.е. если в данном числе есть 0 то надо както модифицировать сортировку.

В учебниках с решением этой задачи обычно делают так: при сортировке пузырьком, если речь идет о сравнивании первой пары элемментов, то их можно менять лиш если второй больше ноля. Просто ставим дополнительное ограничение внутрь самого цикла проверки - если сравниваем i-ый с i+1ым, то должно выполнятся:
if (i>1) or ((i=1) and (ar[2]<>0)) then begin // вместо ar[2] можно ar[i+1];

[Arigato]

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

А ты почитай про сортировку. Любой способ - пузырьком, шелла.

В такой задаче использование подобных методов сортировки выглядит извращением
Я бы применил линейный метод сортировки.
Вот пример решения:

  Nums: array[0..9] of Integer;
begin
  ReadLn (A);
  FillChar (Nums, SizeOf (Nums), 0);
  while A > 0 do
  begin
    Inc (Nums[A mod 10]);
    A := A div 10;
  end; {while}
  for A := 1 to 9 do
    if Nums[A] > 0 then
    begin
      Write (A);
      if Nums[0] > 0 then
      begin
        for I := 1 to Nums[0] do
          Write (0);
        Nums[0] := 0;
      end; {if}
      for I := 1 to Nums[A] - 1 do
        Write (A);
    end; {if}