Переписать в новый файл g все строки файла f - Pascal ABC

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

Задан текстовый файл f и строковая переменная s. Переписать в новый файл g все строки файла f, которая содержит значение переменной s в качестве подстроки.

Код к задаче: «Переписать в новый файл g все строки файла f - Pascal ABC»

textual
const
  filename = 'input.txt';
 
var
  f, g: text;
  s, x: string;
 
begin
  if FileExists(filename) then
  begin
    Assign(f, filename);
    Reset(f);
    Assign(g, 'output.txt');
    Rewrite(g);
    WriteLn('Введите строку: ');
    ReadLn(s);
    while not EOF(f) do
    begin
      ReadLn(f, x);
      if Pos(s, x) > 0 then
        WriteLn(g, x);
    end;
    Close(f);
    Close(g);
    WriteLn('Файл записан')
  end
  else
    WriteLn('Файл не найден');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 3.727 из 5


СДЕЛАЙТЕ РЕПОСТ