 Помогите решить задачку на строки |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| wary |
 19.10.2006 21:34
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 17 Пол: Мужской Репутация:  0   |
Условие: Дана строка символов. Дано слово (например "окно"). Удалить из заданной изначально строки слово "окно"
Алгоритм решения, который я придумал: 1. Определяем как константу слово "окно" (slovo_okno) 2. Вводим произвольную строку (st1) 3. Курабасим в цикле строку (st1) и выявляем в ней слово "окно" 4. Удаляем выявленно слово "окно" 5. Выводим на экран то что осталось от строки (st1) Поскольку я новичок в паскале, немного трудновато с описание п.3 и п.4. Если не трудно подскажите код как их описать, а также замечания по алгоритму. Заранее всем спасибо!  |
   |
 
|
  |
Ответов
| volvo |
21.10.2006 13:46
Сообщение
#2
|
|
Гость |
Цитата(lapp @ 21.10.2006 12:43) Я прогнал, вроде работает.. Аналогично - в Turbo Pascal 7.0 и Virtual Pascal 2.1 ...Гость, какой у тебя компилятор? |
|
|
|
Сообщений в этой теме
wary Помогите решить задачку на строки 19.10.2006 21:34
мисс_граффити ну... при очень большом желании можно и так...
а в... 19.10.2006 23:07 volvo Не забыть проверять только, что найденный кусок те... 19.10.2006 23:18
Гость Bokul программка почему-то не работает....а обзыва... 21.10.2006 13:23 lapp
Bokul программка почему-то не работает....а обзыв... 21.10.2006 13:43 Bokul var s,word:string; b:boolean; buf:byte;
begin
wri... 20.10.2006 1:20 lapp Bokul, у меня под рукой нет компилятора, чтоб пров... 20.10.2006 5:34 wary Огромное всем спасибо, задача тщательно разобрана ... 22.10.2006 11:10 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 8.12.2025 21:34 |