Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Pascal]Сортировка символов


Автор: maxi91m 5.6.2007, 17:12
Напишите програму, сортирующую символы введённые с клавиатуры строки в порядке возрастания их номеров в ASCII-таблице.
Например, если введено:'CBA', в результате получить 'ABC'.  smile 
Зарание спосибо.

Автор: JAPH 7.6.2007, 13:27
Код

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

Автор: maxi91m 8.6.2007, 07:25
Спосибо.Без коментариев всё верно.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)