![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Subaru |
![]() ![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 9 Пол: Мужской Репутация: ![]() ![]() ![]() |
есть строка :'I I I LIVE IN THIS THIS WORLD'
надо чтоб она удалила не-нужные слова (чтоб вышло 'I LIVE IN THIS WORLD') я не понемаю как проверить есть ли там два одинакового слова один за одним... ![]() помогите... ![]() -------------------- What Can I Say ? I'm Just a Car !
Need pascal help ? Go to Volvo !!! |
![]() ![]() |
Altair |
![]()
Сообщение
#2
|
![]() Ищущий истину ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 824 Пол: Мужской Реальное имя: Олег Репутация: ![]() ![]() ![]() |
Цитата эта прога неправильно работает, когда одинаковы два последних слова, например "I live in this world world" эээ... тот код, что представлен выше работает... Или Subaru его отредактировал? Замечание: Можно программу еще модернизировать. В условии не сказанно, что слова разделяются одним пробелом. Если в строке между словами встретится 2 и более пробелов, то не все лишние слова удалятся. Это желательно исправить... что бы не исправлять основной алгоритм, можно перед удалением лишних слов, удалить лишние пробелы... И еще желательно слелать программу более универсальной - вместо константы строки, лучше вводить ее во время работы программы. Тогда ее можнобудет скомпилировать в загрузочный модуль (EXE) и использовать как полнофункциональную программу. (кстати такая программа может пригодится при удалении лишних строк из файла.) Замечание 2 Паскали разные бывают .... ![]() такая строка: Код s[0] := Chr(Pred(Length(s))); Будет ошибкой при компилировании в FPC (free pascal) ЗЫ: мое первое сообщение тоже было про строки ![]() -------------------- Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С) |
![]() ![]() |
![]() |
Текстовая версия | 20.07.2025 18:36 |