![]() |
|
Модераторы: volvo877, Snowy, MetalFan |
![]()
|
|
| MuRDoKgB |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 5.5.2009 Репутация: нет Всего: нет |
Нужна помощь в решении задачки!!!
Вот собственно и сама задача: Написать программу, определяющую, на какую букву чаще всего начинаются слова в заданном текстовом файле. Результат вывести на экран и в текстовый файл. |
|||
|
||||
| Данкинг |
|
|||
![]() Yersinia pestis ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 8302 Регистрация: 7.11.2006 Где: მოსკოვი Репутация: нет Всего: 130 |
Поздравляю. -------------------- There's nothing left but silent epitaphs. |
|||
|
||||
| Keeper89 |
|
|||
|
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: нет Всего: 58 |
Присоединяюсь к поздравлениям! Вопросы есть - пиши, нет - сюда.
|
|||
|
||||
| MuRDoKgB |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 5.5.2009 Репутация: нет Всего: нет |
Нада меня на мысль подталкнуть!!!
|
|||
|
||||
| Keeper89 |
|
|||
|
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: нет Всего: 58 |
Мысль - выделяешь в тексте последовательно слова и считываешь 1 букву. Сохраняешь и потом ведешь подсчет.
|
|||
|
||||
| MuRDoKgB |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 5.5.2009 Репутация: нет Всего: нет |
Keeper89 я так понял, что первую буквы слов сохраняешь в новую строку, а потом эту строку проверяешь от а до я?
|
|||
|
||||
| Keeper89 |
|
|||
|
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: нет Всего: 58 |
MuRDoKgB, мой вариант: завести столько счетчиков, сколько букв в "твоем" алфавите (можно массив типа Byte или Word). Встретил букву - увеличил соответствующий счетчик на единицу.
|
|||
|
||||
![]()
|
| Правила форума "Delphi" | |
|
|
Запрещается! 1. Обсуждать и делится взломанными компонентами или программным обеспечением 2. Публиковать ссылки на варез 3. Оффтопить
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |