Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Наименьшая длина слова |
| 18192123 |
Сообщение
#1
|
 Профи  Группа: Пользователи Сообщений: 920 Пол: Женский Реальное имя: Марина Репутация:  2   |
Преобразовать данную строку, удалив из неё три слова наименьшей длины.
Слова могут разделяться только пробелами. Для строк использовать только length, chr, ord. Вопрос такой: как задать условие, чтобы избавиться именно от трёх слов наименьшей длины и как такие слова искать? Сообщение отредактировано: 18192123 - |
   |
 
|
  |
| Lapp |
Сообщение
#2
|
 Уникум Группа: Пользователи Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Цитата(18192123 @ 7.01.2007 13:59)  как задать условие, чтобы избавиться именно от трёх слов наименьшей длины и как такие слова искать? Найти слово наменьшей длины. Удалить его. Повторить с начала еще два раза.  А для поиска придется пройтись по всем словам, запомниная их длину и начало, а также параллельно отыскивая минимальное. Не совсем ясно выразился: пройтись по строке, отслеживая длину и начало минимального слова. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
|
|
|
18192123 Наименьшая длина слова 7.01.2007 16:59
18192123 вот всё , что смогла... однако так и не поняла про… 7.01.2007 18:07 volvo Основа будет выглядеть так:
...
s1 := '123 123… 7.01.2007 18:31 18192123
procedure _Delete(var s: String; start, len: Word… 7.01.2007 19:36
volvo dec(s[0], len); - уменьшить длину строки на Len, а… 7.01.2007 19:47 |
|
Текстовая версия | 5.11.2025 14:09 |
