|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.12.2007, 12:52 | #1 |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
#Delphi Строки
Здравствуйте, программисты, помогите пожалуйста...
Выполнить задание следующим образом: Текст ввести с помощью компонента Memo. Вывести слова исходного текста в алфавитном порядке. Дан текст на русском языке. Определить сколько раз встречается в нем самое короткое слово. |
24.12.2007, 15:09 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Ну, и где ваш, пусть даже и неработающий вариант?
Или вы тоже заскочили сюда за халявой? |
24.12.2007, 17:37 | #3 |
Пользователь
Регистрация: 19.11.2007
Сообщений: 36
|
Код:
Здесь надо плюс к этому определить,сколько раз встречается самое короткое слово. Помогите пожалуйста. |
24.12.2007, 23:31 | #4 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Memo1.Text рассматриваем как длинную строку и ищем в ней все пробелы при помощи функции PosEx. Каждый раз при получении позиции пробела сравниваем ее с предыдущей - то есть косвенно определяем длину слова и если она меньше, чем у нас было, устанавливаем новую величину (и запоминаем слово). В конце концов получаем длину самого короткого слова и само слово. Попутно, видимо, нужно анализировать полученное слово на "прилипшие" запятые, точки и прочие знаки препинания. При помощи той же функции PosEx находим количество вхождений этого слова в Memo1.Text. Это и будет ответ на вопрос. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Delphi. Строки. | inmate | Помощь студентам | 2 | 19.05.2008 18:14 |
считать из файла две строки, вывести на экран символы первой строки, которые отсутствуют во второй | gotex | Помощь студентам | 4 | 08.05.2008 02:27 |
Обработка XML строки при загрузке dbf в Delphi | SereJa1020 | БД в Delphi | 1 | 18.12.2007 18:28 |
Строки в Delphi. | Wise | Помощь студентам | 9 | 03.12.2007 17:58 |
Выполнение командной строки в Delphi | Alar | Общие вопросы Delphi | 0 | 29.10.2006 19:44 |