3 Текстовых файла со строками СРОЧНО, Задача.СРОЧНО. Опции

[Kibo_rg]

Люди помогите решить задачу.
Данны 2 текстовых файла.Нужно записать в 3 текстовый файл только те строки которые есть в первом,но нет во втором.

Сообщение отредактировано: Kibo_rg - 20.04.2007 18:30

[Tan]

Вот что у меня вышло (на 2х примерах потестил) :

uses crt;
Const fname1 = 'Data1.txt';
      fname2 = 'Data2.txt';
      fname3 = 'Data3.txt';
var F1, F2, F3 : TEXT;
        S, buf : string;
           Yes : boolean;
begin
Clrscr;
assign (F1, fname1);
assign (F2, fname2);
assign (F3, fname3);
Reset (F1);
Reset (F2);
Rewrite (F3);
while not EOF(F1) do
 begin
      readln (F1, S);
      Reset (F2);
       while not EOF(F2) do
           begin
             Readln (F2, buf);
             If S = Buf then
               begin
                  Yes := True; {если во 2м файле есть строка 1го}
                  Break; {выходим из цикла}
               end else Yes := False;
           end;
              If not Yes then Writeln (F3, S);
  end;
Close (F3); Reset (F3);
while not EOF(F3) do
   begin
       readln (F3, S);
       writeln (S); {содержание 3го файла на экран}
   end;
Close (F1); Close (F2); Close (F3);
readkey;
end.

Сообщение отредактировано: Tan - 20.04.2007 20:31