Pascal

[Ericnex]

Помогите описать функцию проверяющую на равенство файлы f и g . Файлы заполнены вещественными числами(Проверить на равенство значит проверить одинаковые ли в файлах числа). Заранее спасибо!!!

[p51x]

ravny := true;
while not Eof(f) do begin
  read(f,a);
  read(g,b);
  if (a<>b) then begin
    ravny := false;
    break;
  end;
end;

[Serge_Bliznykov]

p51x, хорошо. только я бы обязательно предварительно проверил одинаковое ли количество чисел в каждом файле! (иначе возможна ошибка чтения за концом файла):

  if Filesize(f) <> Filesize(g) then
    ravny := false
  else begin
    ravny := true;
    while not Eof(f) do begin
      read(f, a);
      read(g, b);
      if (a <> b) then begin
        ravny := false;
        break;
      end;
    end;
  end;

________________________________
p.s. да, ещё не плохо бы уточнить.

Проверить на равенство значит проверить одинаковые ли в файлах числа

может означать, что файл f(2.0; 12.1) равен файлу g(12.1; 2.0) - ведь в этих файлах одинаковые числа, но в разном порядке.. Тогда задача решается далеко не так просто...

[p51x]

ну, пусть хоть ТС что-то сам сделает, а? ему еще слово function писать...