Напечатать все строки файла, содержащие в качестве фрагмента заданный текст

@Summer-Rain · Регистрация: 26.10.2011

Студворк — интернет-сервис помощи студентам

Имеется текстовый файл. напечатать все его строки, содержащие в качестве фрагмента заданный текст.

@КонецСвета · 08.03.2012, 16:50

Pascal

var
 s,ss:string;
 f:text;
 k: integer;
 begin
 write('Задайте текст: ');
 readln(s);
 assign(f,'C:\in.txt');
 reset(f);
 write('Строки, содержашие в качестве фрагмента строку s');
 while not (Eof(f)) do
       begin
       readln(f,ss);
       if pos(s,ss)<>0 then
          begin
          inc(k);
          if k=1 then writeln(':');
          writeln(ss);
          end;
 end;
 if k=0 then writeln(' отсутствуют');
 close(f);
 end.

@Summer-Rain · 08.03.2012, 17:01 **[ТС]**

Спасибо огромное!

@Summer-Rain 2 / 2 / 0 Регистрация: 26.10.2011 Сообщений: 25
		1
	Напечатать все строки файла, содержащие в качестве фрагмента заданный текст 08.03.2012, 16:36. Показов 1332. Ответов 2 Метки нет (Все метки) Имеется текстовый файл. напечатать все его строки, содержащие в качестве фрагмента заданный текст. 0

@Summer-Rain 2 / 2 / 0 Регистрация: 26.10.2011 Сообщений: 25
	08.03.2012, 17:01 [ТС]	3
	Спасибо огромное! 0

Опции темы

Напечатать все строки файла, содержащие в качестве фрагмента заданный текст

Решение