|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.12.2009, 21:00 | #1 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 19
|
Счётчик слов
Добрый вечер. Я пишу процедуру, которая в строке s считает слова, причём берёт каждое слово и считает его количество в строке. Всё вроде бы нормально написано, но где-то процедура зацикливается (зависает). Помогите разобраться с проблемой.
Код:
Код:
|
18.12.2009, 01:03 | #2 |
Форумчанин
Регистрация: 02.04.2009
Сообщений: 235
|
Код:
Всё гениальное - просто!
|
18.12.2009, 03:06 | #3 | ||
Форумчанин
Регистрация: 22.06.2009
Сообщений: 310
|
думаю это из-за того, что:
Цитата:
И то, что: Цитата:
Разбираться в этом коде я не решился, поэтому решил написать свой. Алгоритм: идем по строке S и выделяем слова, которые разделены пробелами. Каждое слово заносим в лист (Slova:TStringList;), а в A: array [1..100] of integer; ведем счетчик слов в соответствии с индексом слова в листе. И каждый раз сравниваем выделенное слово, есть ли оно в нашем списке. Если есть, то увеличиваем счетчик (А), если нет, то записываем слово в лист и счетчик устанавливаем единице. В конце выводим в Мемо слова и их количество. Код:
|
||
18.12.2009, 13:20 | #4 |
Пользователь
Регистрация: 27.10.2009
Сообщений: 19
|
Voody, очень интересны Вы придумали, я учту этот вариант, но тут вот какая проблема: текст настоящий, поэтому в нём слова ограничены не только пробелами, но и знаками препинания, цифрами и прочими символами не являющимися русскими буквами. Поэтому я в своём алгоритме определял слова с помощью всех символов не являющимися русскими буквами, по коду от 32 до 127, а русские от 192 до 255.
.Phoenix, переменная S описана глобально, поэтому её нет в процедуре. А если бы она не была описана, то процедура у меня бы не зависала, так как она бы не компилировалась. |
18.12.2009, 14:08 | #5 | |
Форумчанин
Регистрация: 22.06.2009
Сообщений: 310
|
Цитата:
добавляем Код:
и в коде одно изменение: Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Дана строка, состоящая из нескольких слов. Найти количество слов, которые содержат хотя бы одну букву "А" | Mashaa | Помощь студентам | 13 | 09.12.2009 13:28 |
по вводу слов в массив и подсчёт введённых слов | -ushёl- | Общие вопросы C/C++ | 4 | 16.11.2009 00:45 |
счётчик | Артур Иваныч | Microsoft Office Excel | 2 | 03.11.2009 11:52 |
Составить в алфавитном порядке список всех слов, встречающихся в тексте, и количество этих слов. | KAPAHDAW | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 17.02.2009 01:19 |
счётчик | ZYRGiX | HTML и CSS | 7 | 26.12.2007 16:12 |