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

[Kibo_rg]

Показывай, что пробовал делать... Рассказывай, что не получается...

У меня ничего мягко говоря не получается.задача нужна мне на турбо паскале до вторника.если сможешь помочь помоги пожалуйста.

Сообщение отредактировано: Kibo_rg - 21.04.2007 2:51

[мисс_граффити]

тебе же Tan готовую программу написал.

[Kibo_rg]

Большое спасибо Tan.