Текстовый файл - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

Текстовый файл

Опции

LeoDaVinci

24.02.2007 19:56

Сообщение #1

Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация:

Как вывести на экран те строки текстого файла, которые сдержат данное слово?

procedure Vivod(var f:tf);
var
  x,s:st;
begin
  reset(f);
  writeln('Vvedite slovo:');
  readln(s);
  while not EOF(f) do
  [Вот тут у меня ступор ] 
  read(f,x);
  write(x);

  closefile(f);
end;

теги...
мисс_граффити

Сообщение отредактировано: мисс_граффити - 24.02.2007 20:14

Ответов

klem4	24.02.2007 20:07 Сообщение #2
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44	Bokul, слово "ром", строка "паром" ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'

Perfez	24.02.2007 20:13 Сообщение #3
Бывалый Группа: Модераторы Сообщений: 231 Пол: Женский Репутация: 6	Цитата(klem4 @ 24.02.2007 21:07) Bokul, слово "ром", строка "паром" ... А что?Разве POS не сработает?

Сообщений в этой теме

LeoDaVinci Текстовый файл 24.02.2007 19:56

Bokul procedure Vivod(var f:tf);// что за тип? text? va... 24.02.2007 20:02

klem4 Bokul, слово "ром", строка "паром... 24.02.2007 20:07

Perfez Bokul, слово "ром", строка "паром... 24.02.2007 20:13

Bokul Точно, давно не программировал.. LeoDaVinci, тогд... 24.02.2007 20:13

LeoDaVinci Типы все объявлены, ошибок программа не выдаёт. Фа... 24.02.2007 20:17

Bokul Полный код, тестовый файл, вводимое слово.. 24.02.2007 20:22

LeoDaVinci program Project2; {$APPTYPE CONSOLE} uses ... 24.02.2007 21:40

Bokul procedure Vivod(var f:tf); var x,s:st; begin ... 24.02.2007 21:53

LeoDaVinci Всё что нужно заработало. Всем спасибо :blum: :) 24.02.2007 22:03

« Предыдущая тема · Задачи · Следующая тема »

1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)

Пользователей: 0

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

Текстовая версия

20.07.2025 18:43

Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"