Работа с файлами в Pascale

[Ericnex]

Проверьте что не так в проге Даны два файла f и g из вещественных чисел. Описать логическую функцию, проверяющую на равенство файлы f и g.
Program lab9_2;
var y:boolean;
f,g:file of real;
r1,r2:real;
name1,name2:string;
i:integer;
begin
{$I+}
assign(f,name1);
assign(g,name2);
reset(f);
reset(g);
y:=true;
if FileSize(f)=FileSize(g) then
begin
for i:=1 to FileSize(f) do
for i:=1 to FileSize(g) do
begin
read(f,r1);
read(g,r2);
if r1<>r2 then begin
y:=false;
end;
end;
end;
close(f);
close(g);
if y=true then writeln('faili ravni')
else writeln ('faili ne ravni');
readln;
{$I-}
end.

[[CODER]]

То что бросилось в глаза

assign(f,'name1.txt');
assign(g,'name2.txt');
------
for i:=1 to FileSize(f) do
for j:=1 to FileSize(g) do

кажется так

[Ericnex]

Нет не совсем то у меня типизированные файлы и мне сказали что надо каким то другим специальным циклом пройти

[Филантроп]

ну во - первых не

for i:=1 to FileSize(f) do
for j:=1 to FileSize(g) do

а только

for i:=0 to FileSize(f)-1 do

во вторых

for i:=0 to FileSize(f)-1 do
begin
seek(f,i);
seek(g,i);
read(f,r1);
read(g,r2);
if r1<>r2 then begin
y:=false;break;
end;

[Ericnex]

А циклом по j проходить не надо?

[Филантроп]

А циклом по j проходить не надо?

нет не надо!!!

[Serge_Bliznykov]

1) гарантированая ошибка в начальном присвоении y
перед проверкой на совпадение размеров файлов.
должно быть: y := false;

2) Вам же надо написать функцию? И где она?

3) если файлы состоят из одних и тех же элементов, но эти элемерты в разном порядке, это одинаковые файлы или нет?! Если считаем, что порядок ВАЖЕН (и, следовательно, файлы неодинаковые) то:

program lab9_2;

function CheckIsFilesEquals(const Name1, Name2 : string) : boolean;
var 
  f, g: file of real;
  r1, r2: real;
  i : integer;
  y : boolean;
begin
{$I-}
  CheckIsFilesEquals := false;
  assign(f, name1);
  assign(g, name2);
  reset(f);
  if IOResult<>0 then Exit;
  reset(g);
  if IOResult<>0 then begin Close(f); Exit end;

  if FileSize(f) = FileSize(g) then
  begin
    i := 1;
    y := true; {а вот теперь считаем, что файлы одинаковые}
    while y and (i<= FileSize(f)) do begin
        read(f, r1);
        read(g, r2);
        if r1 <> r2 then 
          y := false;
        inc(i)
      end;
   CheckIsFilesEquals := y;
  end;
  close(f);
  close(g);
{$I+}
end;

begin

  if CheckIsFilesEquals('Name1.txt','Name2.txt')
          then writeln('faili ravni')
          else writeln('faili ne ravni');
  readln;
end.

[Ericnex]

Спасибо прога работает