Упорядочить символы в строке в порядке убывания

@Leo-Jon · Регистрация: 10.12.2009

Author24 — интернет-сервис помощи студентам

пожалуйста помогите написать прогу на borland pascal

Ввести строку символов. Упорядочить символы в строке в порядке убывания. Выдать на экран изменённую строку, а также наибольший и наименьший символ в строке.

@Inadequate · 28.12.2009, 22:18

Pascal

var
  s:string;
  temp:char;
  i,j:integer;
begin
  readln(s);
  for i:=1 to Length(s)-1 do
    for j:=i+1 to Length(s) do
      if s[i]<s[j] then
      begin
        temp:=s[i];
        s[i]:=s[j];
        s[j]:=temp
      end;
  writeln(s);
  writeln('Ìèíèìàëüíûé "',s[1],'"');
  writeln('Ìàêñèìàëüíûé "',s[Length(s)],'"')
end.

@yanyk1n · 28.12.2009, 22:20

Inadequate, ну раз уже отсортировали строку, не проще ли было бы:

Pascal

1 2	writeln('Минимальный "',s[length(s)],'"'); writeln('Максимальный "',s[1],'"');

@Inadequate · 28.12.2009, 22:31

k1ry4, да конечно, это я что-то подустал совсем... Там сейчас поправлю

@vad2211 · 28.12.2009, 22:36

Inadequate, интересно, интересно. Намотал на ус. Не думал что буквы можно сравнивать как цифры. Так сказать, "все познается в бою".

@yanyk1n · 28.12.2009, 22:40

vad2211, сравниваются не сами символы, а их коды по таблиуе ASCII

@Leo-Jon 0 / 0 / 0 Регистрация: 10.12.2009 Сообщений: 11
		1
	Упорядочить символы в строке в порядке убывания 28.12.2009, 19:53. Показов 1624. Ответов 5 Метки нет (Все метки) пожалуйста помогите написать прогу на borland pascal Ввести строку символов. Упорядочить символы в строке в порядке убывания. Выдать на экран изменённую строку, а также наибольший и наименьший символ в строке. 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	28.12.2009, 22:31	4
	k1ry4, да конечно, это я что-то подустал совсем... Там сейчас поправлю 0

@vad2211 119 / 119 / 41 Регистрация: 21.12.2009 Сообщений: 194
	28.12.2009, 22:36	5
	Inadequate, интересно, интересно. Намотал на ус. Не думал что буквы можно сравнивать как цифры. Так сказать, "все познается в бою". 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	28.12.2009, 22:40	6
	vad2211, сравниваются не сами символы, а их коды по таблиуе ASCII 0