Даны два текстовых файла с целыми числами.Определить,совпадают ли эти файлы

КРИС31

Даны два текстовых файла с целыми числами.Определить,совпадают ли эти файлы?
1 ответ

КРИС31

  
 uses dos; //Для функции FileSize
  Var F1,F2:Text;
          S1,S2:String; //Строка из первого и строка из второго фалов
          Flag:Boolean; //Признак расхождения
begin
   Flag:=True;
  { TODO -oUser -cConsole Main : Insert code here }
   Assign(F1,'d:\1.txt');     //Ïîëó÷èëè äîñòóï ГЄ ïåðâîìó ГґГ*éëó
   Assign(F2,'d:\2.txt');     //Ïîëó÷èëè äîñòóï ГЄГ® âòîðîìó ГґГ*éëó
    Reset(F1);Reset(F2);          //ÎòêðûâГ*ГҐГ¬ ГґГ*éëû òîëüêî äëÿ Г·ГІГҐГ*ГЁГї
        While (not EOF(F1)) or (not(EOF(F2))) do Begin   //ÏîêГ* Г*ГҐ äîñòèãГ*ГіГІ ГЄГ®Г*ГҐГ¶ ëþáîãî ГЁГ§ ГґГ*éëîâ Г±Г°Г*ГўГ*ГЁГўГ*ГҐГ¬ ñòðîêè
             readln(F1,S1);
             readln(F2,S2);
             if S1<>S2 then Flag:=False; //ÎáîçГ*Г*Г·Г*ГҐГ¬, Г·ГІГ® Г*Г*øëè Г°Г*çëè÷èå
        end;
 
        {Ïðîâåðÿåì Г°Г*çìåðû ГґГ*éëîâ ГЁ Г*Г*ëè÷èå ГўГ±ГҐГµ ГЁГ§ ñòðîê ïåðâîãî ГґГ*éëГ* ГўГ*óòðè âòîðîãî}
        if (Flag) and (FileSize(F1)=FileSize(F2)) then write('Ravni') else write('Ne ravni');
   Close(F1);    //Г‡Г*ГЄГ*Г*Г·ГЁГўГ*ГҐГ¬ Г°Г*áîòó Г± ïåðâûì ГґГ*éëîì
   Close(F2);    //Г‡Г*ГЄГ*Г*Г*Г·ГЁГўГ*ГҐГ¬ Г°Г*áîòó Г±Г® âòîðûì ГґГ*éëîì
 
   readln;
end.