VPF::Как отсортировать данные по алфавиту?

Elevy

Дата 10.3.2006, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 10.3.2006

Репутация: нет
Всего: нет

Поскажите алгоритм и операторы сортировки данных (строковых переменных) по алфавиту?

karataev

Дата 10.3.2006, 11:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 56
Регистрация: 28.1.2006
Где: Россия, Нижний Но вгород

Репутация: нет
Всего: нет

Так же как и сортировка чисел. Пример самой простой сортировки:

Код


  var str  :array[1..100] of string;
      temp :string;
      j,i  :byte;

begin
for j:=1 to 99 do
 for i:=j+1 to 100 do
  if str[i]<str[j] then
   begin
   temp:=str[j];
   str[j]:=str[i];
   str[i]:=temp;
   end;
end.

А вообще существует множество более быстрых сортировок... smile

Это сообщение отредактировал(а) karataev - 10.3.2006, 11:12

armageddon

Дата 10.3.2006, 17:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 9.11.2005
Где: 239

Репутация: нет
Всего: нет

выделяешь первую букву слова
а потом сравниваешь её числовое значение в соответствии с таблицей
ord()-получить значение кода((если я не ошибаюсь))

karataev

Дата 14.3.2006, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Цитата(armageddon)

выделяешь первую букву слова

Сортировка по алфавиту это сортировка не только по первой букве.

Это сообщение отредактировал(а) karataev - 14.3.2006, 18:49

armageddon

Дата 14.3.2006, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 9.11.2005
Где: 239

Репутация: нет
Всего: нет

если не по первой, так по 1,2......
вначале разбираемся с одним символом, потом с другим и т.д

volvo877

Дата 14.3.2006, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(armageddon @ 14.3.2006, 18:35

)

вначале разбираемся с одним символом, потом с другим и т.д

Ну, правильно... Зачем пользоваться тем, что уже заложено в язык? Надо самому себе создать проблемы, а потом успешно их решать... Или не очень успешно, но велосипед ПО-ЛЮБОМУ изобретать НАДО !!! smile

armageddon

Дата 16.3.2006, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 9.11.2005
Где: 239

Репутация: нет
Всего: нет

прога полутся с меньшим объмом памяти(если конечно нам известно максимальное кол-во символов в слове)

karataev

Дата 18.3.2006, 08:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Цитата(armageddon @ 16.3.2006, 22:18)

прога полутся с меньшим объмом памяти(если конечно нам известно максимальное кол-во символов в слове)

Ой, да хорош уже выпендриваться!

nikitao

Дата 21.3.2006, 21:11 (ссылка)

(нет голосов)

Загрузка ...

Кот-программист

Профиль
Группа: Завсегдатай
Сообщений: 1206
Регистрация: 30.8.2005
Где: Спб

Репутация: нет
Всего: 26

Цитата(armageddon @ 14.3.2006, 20:35

)

если не по первой, так по 1,2......
вначале разбираемся с одним символом, потом с другим и т.д

armageddon, и чего мы дабьемся по сравнению со стандартной работой со строками smile

Цитата(armageddon @ 16.3.2006, 23:18

)

прога полутся с меньшим объмом памяти(если конечно нам известно максимальное кол-во символов в слове)

Почему

Цитата(karataev @ 18.3.2006, 09:45

)

Ой, да хорош уже выпендриваться!

karataev, smile

--------------------

Жизнь - печальная штука.

~FoX~

Дата 22.3.2006, 10:19 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68

А StrComp не покатит?

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »