|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.10.2011, 17:30 | #1 |
Регистрация: 29.09.2011
Сообщений: 8
|
Количество одинаковых слов в строке. Delphi
Требуется написать программу, которая выводит слова, встречающиеся более одного раза и пишет количество повторов. Так происходит для каждого слова. Вот мой код, но я видимо как-то не так организовал поиск равных элементов, подскажите пожалуйста как надо. Или может есть вообще другой вариант, без доп. массивов? Количество пробелов между словами - любое.
Код:
|
28.10.2011, 20:08 | #2 |
Регистрация: 29.09.2011
Сообщений: 8
|
Попробовал сделать без массива, сохраняя слово а затем удаляя его, но не знаю как организовать теперь его сравнение с последующими словами.
|
28.10.2011, 22:42 | #3 |
Пользователь
Регистрация: 06.10.2011
Сообщений: 11
|
Код:
________ Код нужно оформлять по правилам: тегом [CODE]..[/СODE] (это кнопочка с решёточкой #) Не забывайте об этом! Модератор. Последний раз редактировалось Serge_Bliznykov; 29.10.2011 в 09:25. |
28.10.2011, 23:45 | #4 |
Регистрация: 29.09.2011
Сообщений: 8
|
Благодарствую.
|
29.10.2011, 09:41 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
topside
просто для информации. Раз обработка строки идёт в Delphi, то можно привлечь имеющиеся компоненты. Например, TStringList. посмотрите варианты решения в темах: 1) повторение слов в txt файле 2) Статистика слов в тексте |
29.10.2011, 10:56 | #6 | |
Пользователь
Регистрация: 06.10.2011
Сообщений: 11
|
Цитата:
Вот по этому это не самый лучший вариант.... |
|
29.10.2011, 11:10 | #7 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Конкретизируйте свои замечания, пример строки и результат "неправильной работы" приведите, пожалуйста. Добавлено ну, и ещё, запустил я Ваш код. в принципе, код рабочий. но есть одна весьма нехорошая ошибка. введите такой текст: ты тыты ты тытышь тышь уже догадываетесь, какой результат выдаст Ваша программа? ну, а такой текст ещё нагляднее: a aa aaa aa aaa aa Последний раз редактировалось Serge_Bliznykov; 29.10.2011 в 11:20. |
|
29.10.2011, 11:17 | #8 |
Пользователь
Регистрация: 06.10.2011
Сообщений: 11
|
Нет, все нормально считает, не учел что TStringList сортируется.
Единственное, удалять TS вконце надо так TS.Free |
29.10.2011, 11:50 | #9 | ||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
в данных примерах в конце вызывается процедура FreeAndNil Цитата:
т.е. FreeAndNil(TS) эквивалентно такому коду: Код:
|
||
30.10.2011, 13:09 | #10 |
Пользователь
Регистрация: 06.10.2011
Сообщений: 11
|
Исправляю, теперь различает...
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Количество слов в строке | Настя93 | Помощь студентам | 7 | 24.02.2011 19:47 |
Определить количество слов в строке, введенной с клавиатуры. | Gohan | Помощь студентам | 2 | 20.02.2011 14:19 |
Определение количества одинаковых слов в строке. | brainy_man | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 10.05.2010 02:58 |
Количество одинаковых слов в таблице | K608723 | Microsoft Office Excel | 1 | 22.09.2009 00:33 |