Версия для печати темы

Автор: Kibo_rg 20.04.2007 18:02

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

Автор: мисс_граффити 20.04.2007 20:03

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

Автор: Tan 20.04.2007 20:20

Вот что у меня вышло (на 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.

Автор: Kibo_rg 21.04.2007 2:45

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

Автор: мисс_граффити 21.04.2007 2:54

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

Автор: Kibo_rg 21.04.2007 2:57

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