Переписать в третий файл только те строчки, которые есть и в первом, и во втором файлах.

@Ne_domogaco · Регистрация: 11.03.2014

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

Заданы 2 текстовых файла. Переписать в третий только те строчки, которые есть и в первом, и во втором файлах.

@CodeR · 04.05.2014, 15:11

Pascal

Var f,g,h:text;
    s,st:string;
    b:boolean;
Begin
    Assign(f,'in1.txt');Reset(f);
    Assign(g,'in2.txt');
    Assign(h,'out.txt');Rewrite(h);
    While not Eof(f) do
    Begin
      readln(f,s);
      Reset(g);
      b:=false;
      While (not Eof(g)) and (not b) do
      Begin
        readln(g,st);
        if st=s then b:=true;
      End;
      if b then writeln(h,s);
      Close(g);
    End;
    Close(f);Close(h);
    writeln('Результат в файле "out.txt"');
    readln;
End.

@Ne_domogaco 0 / 0 / 0 Регистрация: 11.03.2014 Сообщений: 6
		1
	Переписать в третий файл только те строчки, которые есть и в первом, и во втором файлах. 04.05.2014, 12:56. Показов 1565. Ответов 1 Метки нет (Все метки) Заданы 2 текстовых файла. Переписать в третий только те строчки, которые есть и в первом, и во втором файлах. 0

Опции темы

Переписать в третий файл только те строчки, которые есть и в первом, и во втором файлах.

Решение