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

Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++

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

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

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

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

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

Опции

LeoDaVinci

24.02.2007 23: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;

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

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

Ответов

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

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