 Помогите решить задачку на строки |
Прочтите прежде чем задавать вопрос!
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. Если не трудно подскажите код как их описать, а также замечания по алгоритму. Заранее всем спасибо!  |
   |
 
|
  |
Ответов
| мисс_граффити |
19.10.2006 23:07
Сообщение
#2
|
 просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
ну... при очень большом желании можно и так...
а вообще есть ф-ция Цитата Pos(SubS, s : string) : byte - Ищет вхождение подстроки SubS в s и возвращает номер первого символа SubS в s, или 0, если s не содержит SubS потом - процедура Цитата Delete(VAR s : String; start, len : Integer) - Удалает подстроку длиной len начиная с позиции start строки s Длину ты знаешь, положение тоже нашел. Вот и вся твоя задача  -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
Сообщений в этой теме
wary Помогите решить задачку на строки 19.10.2006 21:34
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 volvo Я прогнал, вроде работает..Аналогично - в Turbo Pa... 21.10.2006 13:46 wary Огромное всем спасибо, задача тщательно разобрана ... 22.10.2006 11:10 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 12.08.2025 15:27 |