Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как отсортировать string-массив? 
:(
    Опции темы
Xeim
Дата 5.12.2008, 02:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
Как отсортировать string-массив?
PM MAIL   Вверх
volvo877
Дата 5.12.2008, 09:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 2
Всего: 116
Точно так же, как и любой другой... Поиском пользуйся, реализации сортировки уже выкладывались.
PM MAIL   Вверх
Dobermann
Дата 5.12.2008, 10:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
http://rsc-team.ru/cgi-bin/index.pl?rzd=2&...tion&ind=22
PM   Вверх
Xeim
Дата 5.12.2008, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 0
Но там же не числа, и даже не буквы! Там стринги!

То есть там слова, и их надо отсортировать по алфавиту.  smile Я знаю как отсортировать массив из чисел, но из слов - не знаю.

Добавлено через 1 минуту и 33 секунды
volvo877, скажите пожалуйста, по каким словам искать? Находит только  темы с сортировкой integer-массивов и мою тему.
PM MAIL   Вверх
Dobermann
Дата 5.12.2008, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Типа алфавитного порядка чтоли???
В стринге ведь можно обращаться к каждой букве, ну так считай char'ом ее ascii код, да и за тем выстрой по таблице.

Добавлено через 3 минуты и 4 секунды
Всмысле считывай первыю букву слова и тут же считывай ее ascii-код, затем выстраивай слова по увеличению этого значения, и получится то что надо
PM   Вверх
THandle
Дата 5.12.2008, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: нет
Всего: 372
Xeim, точно так же сортируй. Строки сравниваются точно так же (>, >=, <, <=, =). Алгоритм будет тот же самый. Сейчас набросаю.

Добавлено через 4 минуты и 22 секунды
Код

program Project1;

const
  MAX = 5;

type
  TArray = array [1..MAX] of String;

procedure PrintArray(iArray: TArray);
var
  i: integer;
begin
  for i := 1 to MAX do
    WriteLn(iArray[i]);
end;

procedure Swap(var iArray: TArray; iPos1, iPos2: integer);
var
  tmp: String;
begin
  tmp := iArray[iPos1];
  iArray[iPos1] := iArray[iPos2];
  iArray[iPos2] := tmp;
end;

procedure BubbleSort(var iArray: TArray);
var
  i, j: integer;
begin
  for i := 1 to MAX - 1 do
    for j := 1 to MAX - i do
      if iArray[j] > iArray[j+1] then
         swap(iArray, j, j + 1);
end;

var
  IArray: TArray;
  i: integer;
begin
  for i := 1 to MAX do
  begin
    write('Enter element: ');
    readln(iArray[i]);
  end;
  PrintArray(IArray);
  BubbleSort(IArray);
  writeln('After sort: ');
  PrintArray(IArray);
  readln;
end.
PM   Вверх
Dobermann
Дата 5.12.2008, 20:11 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Чёт не понятно, массив у тебя по длине слов сортируется или как???
PM   Вверх
volvo877
Дата 5.12.2008, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 2
Всего: 116
Dobermann, ты сначала разберись в основах языка, а потом отвечай, договорились? Сортируется массив в лексикографическом порядке. Открой любую книгу по Паскалю и читай главу "Строки".
PM MAIL   Вверх
Dobermann
Дата 6.12.2008, 10:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Цитата(volvo877 @  5.12.2008,  20:22 Найти цитируемый пост)
Сортируется массив в лексикографическом порядке.

Нет такого, я посмотрел! Максимум, по нулевому байту (то бишь по длине слова)
PM   Вверх
THandle
Дата 6.12.2008, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: нет
Всего: 372
Dobermann, http://valera.asf.ru/delphi/book/tp11.shtml

первая же ссылка из гугла
PM   Вверх
Dobermann
Дата 6.12.2008, 13:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 0
Клянусь, не знал!!! Сорри за  smile 
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

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

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1256 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.