Программа для линейного поиска слова - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток друзья. Возникла 2 проблемы. Туплю по конкретному конечно. Есть программа. По линейному поиску слова в строке. Вот код:
Проблемы две. 1) Как мне учесть, что бы между словами программа учитывала как ввод одного пробела,так и нескольких.(Грубо говоря,как удалять лишние пробелы и записать в массив одно слово,не смотря на то сколько там пробелов до другого слова) 2)Как сделать грамотное условие в цикле for(Надо именно цикл for) Что бы при нахождении слова выводилось сообщение,что слово найдено(С этим проблем нет).И как сделать,что бы условие выводилось всего один раз,если слово не найдено(В этом собственно и проблема)

Решение задачи: «Программа для линейного поиска слова»

textual
Листинг программы
while pos('  ',s)>0 do//в апострофах 2 пробела
delete(s,pos('  ',s),1);/1 удаляем

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.636 из 5
Похожие ответы