Упорядочить буквы и цифры (Pascal)

[BzDoN]

Нады в Пасале ввести буквы и цифры. И так чтобы в конце он вывел по очереди их. Допустим вводишь " a931tz2" и чтобы в конце вывело "1239atz". Спасибо за ранее...

[Sazary]

Так, например:

uses crt;
var
s,digs,bkv : string;
i,dc,bc : integer;

procedure srt(n : integer; var mas : string);
 var i,j,k : integer;
 ch : char;
 begin
 for i:=1 to n-1 do
  begin
  k := i;
  for j:=i+1 to n do
   if mas[j]<mas[k] then
    k := j;
  ch := mas[k];
  mas[k] := mas[i];
  mas[i] := ch;
  end;
 end;

begin
clrscr;
writeln('Enter string: ');
readln(s);
dc := 0;
bc := 0;
digs := '';
bkv := '';
for i:=1 to length(s) do
 if s[i] in ['0'..'9'] then
  begin
  inc(dc);
  digs := digs + s[i];
  end
 else
  begin
  inc(bc);
  bkv := bkv + s[i];
  end;
srt(dc,digs);
writeln('New string: ');
writeln(digs,bkv);
readln;
end.

[Jean-Esther]

Берешь любой алгоритм сортировки и применяешь на строке.
Например,

var i,j:byte; s:string;
procedure SWAP(var a,b:char);
var c:char;
begin c:=a; a:=b; b:=c end;
begin readln(s); for i:=1 to length(s) do for j:=1 to length(s)-1 do if s[j]>s[j+1] then SWAP(s[j],s[j+1]); write(s); readln end.

[BzDoN]

СПАСИБО ВАМ ОГРОМНОЕ!!!

[Chudo4258]

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var M:set of char;
    S:string;
    i:integer;
    j:char;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(S);
  M:=[];
  for i:=1 to length(s) do
   M:=M+[s[i]];
  for j:='0' to '9' do
   if j in M then write(j,'  ');
  for j:='a' to 'я' do
   if j in M then write(j,'  ');
  readln;
end.

[BzDoN]

Сообщение от Jean-Esther

Берешь любой алгоритм сортировки и применяешь на строке.
Например,

var i,j:byte; s:string;
procedure SWAP(var a,b:char);
var c:char;
begin c:=a; a:=b; b:=c end;
begin readln(s); for i:=1 to length(s) do for j:=1 to length(s)-1 do if s[j]>s[j+1] then SWAP(s[j],s[j+1]); write(s); readln end.

По поводу этого кода.... В смысле приминять на строке??? Просто всё это в Паскале ввести и заработает?? А то прост мои знания минимальны в Паскале... и я не понял вот это: "Берешь любой алгоритм сортировки и применяешь на строке".

[Plague]

реализация сортировки подсчетом:

var s:string;
    a:array[0..255] of integer;
    i,j:integer;
begin
  readln(s);
  for i:=1 to length(s) do inc(a[ord(s[i])]);
  for i:=0 to 255 do
  for j:=1 to a[i] do write(chr(i));
end.

[Jean-Esther]

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

По поводу этого кода.... В смысле приминять на строке??? Просто всё это в Паскале ввести и заработает?? А то прост мои знания минимальны в Паскале... и я не понял вот это: "Берешь любой алгоритм сортировки и применяешь на строке".

Нет, не работает. Пишет, строка длинная. Значит, строку №5 нужно разбить на две, как минимум. Вот, теперь работает.
Алгоритмы сортировки позволяют сортировать массивы (читай, наборы) сравниваемых элементов (обычно чисел, но символ также можно сравнивать — RTFM), а значит, если мы запустим любой алгоритм (в моем примере это пузырёк без какой-либо оптимизации) по отношению к строке, как к массиву символов (заметь, открытому — такое своеобразное условие, что кроме строки никакие другие массивы не могут быть открытыми в TP). Почему будет работать? Ну, во-первых, цифры имеют аски-коды 48-57, буквы — 70+ (точно не помню). Во-вторых, ну-с, в общем, программа работает, и это не может не радовать.

P.S. у Plague интересное решение.

[Plague]

Сортировка подсчетом вообще интересная вещь.
Сложность сортировки массива А(n), за N-шагов.
Но применима не для всех массивов.