Преобразовать заданный текст в последовательность символов в порядке старшинства

@mesnalex · Регистрация: 19.06.2013

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

Задание.
ТИП ДАННЫХ STRING
Преобразовать заданный текст в последовательность символов в порядке старшинства(возрастание порядковых номеров)

Вопрос.
Что значит преобразовать в последовательность символов? Строка в Pascal и так трактуется как последовательность символов. Или надо перевести каждый символ текста в переменную char? И что за возрастание порядковых номеров!!?

Если не трудно объясните на примере:

Допустим есть текст "Доброе утро страна!" Каким должен быть результат работы программы?

Спасибо.

@Rurr · 19.06.2013, 09:40

каждый символ имеет свой номер тебе нужно перевести строку в номера потом перестроить ее начиная с найменшего и наверно преобразовать обратно в символы.

@mesnalex · 19.06.2013, 11:56 **[ТС]**

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

каждый символ имеет свой номер

Это как индекс в массиве что ли? тогда они уже по возрастанию.

0 1 2 3 4 5 6 7 8 9
д о б р о е у т р о

Добавлено через 13 минут
Всем спасибо. Получил ответ от преподавателя. )))

нужно выделить каждую char из string, вот таким образом например

Delphi

var
c:char;
s:string;
begin
...
c:=s[i]

где i - номер символа.
потом есть некоторая таблица символов, где они стоят в своем порядке и имеют номер, который ты можешь узнать через функцию ord(c). Вот по этому номеру и нужно упорядочить и зусунуть в другой стринг.
Доброе утро страна - это будет: аабд.... и тд

Напишу задачку выкину. Может пригодится кому.

Добавлено через 1 час 44 минуты
Решил

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 var
 S,S1: string;
 a: array of integer;
 c:char;
 i,x,n,j,k:integer;
begin
 S:=Form1.Edit1.Text;
 Form1.Edit2.Text:='';
 n:=length(s);
 SetLength(a,n);
 for i:=1 to length(s) do
  begin
    c:=S[i];
    x:=ord(c);
    a[i-1]:=x;
  end;
 //сортируем одномерный массив методом пузырька
 For i:=0 to n-2 do
    For j:=n-1 DownTo i+1 do
     if(a[j-1]>a[j]) then begin
      k:=a[j-1];
      a[j-1]:= a[j];
      a[j]:=k;
     end;
 for i:=0 to n-1 do
  begin
    S1:=S1+Chr(a[i]);
  end;
 {for i:=0 to n-1 do
  begin
   form1.Edit2.Text:=form1.Edit2.Text+intToStr(a[i])+' ';
  end;}
  for i:=1 to length(s) do
  begin
   form1.Edit2.Text:=s1;
  end;
end;

@Rurr · 19.06.2013, 13:16

Не по теме.

я это и имел ввиду!

@mesnalex · 19.06.2013, 15:54 **[ТС]**

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

Не по теме.

я это и имел ввиду!

Извени

Я просто не въехал с порядковыми номерами. Они берутся из аски кодов. Но все равно спасибо!

@mesnalex 0 / 0 / 1 Регистрация: 19.06.2013 Сообщений: 5
		1
	Преобразовать заданный текст в последовательность символов в порядке старшинства 19.06.2013, 09:14. Показов 1010. Ответов 4 Метки нет (Все метки) Задание. ТИП ДАННЫХ STRING Преобразовать заданный текст в последовательность символов в порядке старшинства(возрастание порядковых номеров) Вопрос. Что значит преобразовать в последовательность символов? Строка в Pascal и так трактуется как последовательность символов. Или надо перевести каждый символ текста в переменную char? И что за возрастание порядковых номеров!!? Если не трудно объясните на примере: Допустим есть текст "Доброе утро страна!" Каким должен быть результат работы программы? Спасибо. 0

@Rurr 23 / 23 / 11 Регистрация: 12.01.2013 Сообщений: 223
	19.06.2013, 09:40	2
	каждый символ имеет свой номер тебе нужно перевести строку в номера потом перестроить ее начиная с найменшего и наверно преобразовать обратно в символы. 0

@Rurr 23 / 23 / 11 Регистрация: 12.01.2013 Сообщений: 223
	19.06.2013, 13:16	4
	Не по теме. я это и имел ввиду! 0

@mesnalex 0 / 0 / 1 Регистрация: 19.06.2013 Сообщений: 5
	19.06.2013, 15:54 [ТС]	5
	Сообщение от Rurr Не по теме. я это и имел ввиду! Извени Я просто не въехал с порядковыми номерами. Они берутся из аски кодов. Но все равно спасибо! 0