Типизированные файлы

[Xeon332]

Пусть даны два файла целых чисел. Определите, равны ли они.

Я решил задачу, в которой просто сформировал файл целых чисел:

Uses Crt;
var
f : file of integer;
s : string;
tmp : integer;
c : char;
begin
clrscr;
write('Введите путь и имя файла: ');
readln(s);
rewrite(f);
repeat
write('Введите число: ');
read(tmp);
write(f,tmp);
writeln('Следующее - нажмите на любую клавишу, Выход - Esc.');
c := readkey;
close(f);
end.

Теперь не знаю, как сравнить два файла целых чисел...

[alexBlack]

Что значит термин РАВНЫ ? Как множества ? то есть все числа которые есть в первом есть и во втором ? Или числа должны быть равны в каждой позиции файла ?

[Xeon332]

Полностью определить нужно - равны ли ФАЙЛЫ целиком между собой. Я думал, что создав два файла целых чисел потом их сравнивать условным оператором - это врятли способ. Вот и не знаю...

[alexBlack]

var F1, F2 : file of integer;

 ...

 Assign(F1, 'file1.txt'); reset(F1);
 Assign(F2, 'file1.txt'); reset(F2);
 B := true;     // равны 
 While true do begin
     if EOF(F1) then begin
        if not EOF(F2) then B := false; 
        break
     end;
     if EOF(F2) then begin
        if not EOF(F2) then B := false; 
        break
     end;

     N1 := Read(F1);
     N2 := Read(F2);
     if N1 <> N2 then begin
        B := false;
        break
     end;

 end;

 if not B then { не равны };

 Close(F1);
 Close(F2);

Что-то вроде этого

[Xeon332]

Благодарю! Если не сложно, EOF чем является? Спасибо

[alexBlack]

EOF() - функция, кот.возвращает true, если позиция выходит за конец файла.

[puporev]

Вот содрал из интернета.

Пусть даны два текстовых файла. Определить равны ли они. Равенство понимается в смысле совпадения соответствующих символов и одинакового деления на строки

var f1,f2:text;
b:boolean;
s1,s2:string;
i:integer;
begin
assign(f1,'f1.txt'); reset(f1);
assign(f2,'f2.txt'); reset(f2);
b:=true;
while not eof(f1) do
begin
readln(f1,s1); readln(f2,s2);
if length(s1)=length(s2) then
begin
for i:=1 to length(s1) do
if s1[i] < > s2[i] then b:=false;
end
else b:=false;
if not b then break;
end;
if not eof(f2) then b:=false;
close(f1);
close(f2);
if b then writeln('files is equal') else writeln('files is not equal');
end.

[BadSanta]

Сообщение от alexBlack

EOF() - функция, кот.возвращает true, если позиция выходит за конец файла.

У меня возник вопрос: с помощью какой функции можно определить символьный размер файла (для оператора For i:=1 to ... do)??? или же просто долго и нудно пользоваться repeat until eof()=false????

[puporev]

Если нужно посчитать количество символов в текстовом файле, то можно так.

reset(f);
k:=0;
while not eof(f) do
  begin
   readln(f,s);
   k:=k+length(s);
  end;
write(k);