VPF::Дана строка, состоящая из слов, отделенных друг

manhant32

Дата 21.12.2014, 12:52 (ссылка)

(голосов:1)

Загрузка ...

Новичок

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

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

Дана строка, состоящая из слов, отделенных друг от друга одним или
несколькими разделителями (пробелы,точки,запятые, скобки и пр.). Вывести
на экран порядковый номер слова минимальной длины.

Заранее спасибо !!!

Данкинг

Дата 21.12.2014, 15:27 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Сначала следует чётко определить, какие бывают разделители. "и пр." здесь не прокатит.

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

There's nothing left but silent epitaphs.

Illusion Dolphin

Дата 21.12.2014, 15:45 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


uses
  Generics.Collections, Generics.Defaults;

var
  S: string;
  Words, SortedWords: TList<string>;
  Index, WordNumber: Integer;
begin
  S := 'This is a long string with some content';

  Words := TList<string>.Create;
  SortedWords := TList<string>.Create;
  try
    //пробелы,точки,запятые, скобки
    Words.AddRange(S.Split([' ', '.', ',', '(', ')'], TStringSplitOptions.ExcludeEmpty));
    SortedWords.AddRange(Words);
    SortedWords.Sort(TComparer<string>.Construct(
      function (const Left, Right: string): Integer
      begin
        Result := Length(Left) - Length(Right);
      end
    ));

    WordNumber := Words.IndexOf(SortedWords[0]) + 1;
    ShowMessage(IntToStr(WordNumber));
  finally
    Words.Free;
    SortedWords.Free;
  end;
end;

Это сообщение отредактировал(а) Illusion Dolphin - 21.12.2014, 16:49

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

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