 Работа со строками, задача на работу со строками/символами |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| NightPaladin |
  27.11.2004 16:34
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 67 Пол: Мужской Репутация:  0   |
Вот - очень интересует решение даной задачи.
Буквы назовем “соседями”, если они входят в какую-либо пятерку подряд идущих букв русского алфавита, например ”КЛМНО”. Назовем слово «дружественным», если слово составлено из “соседей” (буквы могут входить в слово много раз, некоторые могут отсутствовать). Например, ГАВ, БАБА - «дружественные». Дана строка, в которой слова разделены пробелами, вывести все дружественные слова. Пример: Входные данные: Выходные данные: РАЗ ДВА ТРИ ЧЕТЫРЕ ПЯТЬ ДВА АБВГД ГДЕ ЕЖ АБВГД ГДЕ ЕЖ -------------------- На горе лежит дискета
У неё испорчен boot Через дырочку в конверте Её вирусы грызут |
   |
 
|
  |
Ответов
| volvo |
27.11.2004 16:59
Сообщение
#2
|
|
Гость |
NightPaladin
Можно предложить следующее: напиши функцию, которая будет находить самую первую и самую последнюю (по алфавиту) буквы, которае содержатся в данном слове. А потом просто проверить, если "разница" между этими буквами не больше 5, то слово - "дружественное" ... Алгоритм разбиения строки на слова есть в ФАКе... Сообщение отредактировано: volvo - 27.11.2004 17:00 |
|
|
|
Сообщений в этой теме
NightPaladin Работа со строками 27.11.2004 16:34
NightPaladin Спосибо большое сейчас попробую написать, а то у м... 27.11.2004 20:17 NightPaladin volvo или просто добрые люди посмотрите чё не так ... 28.11.2004 16:01 volvo Попробуй вот так:
Uses Crt;
Type
TWords =... 28.11.2004 16:33
NightPaladin Заработало :no: , от всей души говорю VOLVO - ТЫ Л... 28.11.2004 16:50 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 23:36 |