Использование файловой переменной, задачки Опции

[Александра]

Помогите пожалуйста срочно решить!!

1. Дан файл вещественных чисел. Определить количество нулевых значений в этом файле.

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

3. Даны два символьных файла одинакового размера. Произвести обмен информацией между ними.

4. В текстовом файле Т записана непустая последовательность вещественных чисел, разделенных пробелами. описать функцию Max(T) для нахождения наибольшего из этих чисел.

Заранее спасибо.кто поможет!!!

[Den64]

Это по поводу первой задачки:

Program _1;
Uses Crt;
Var
  i,n:Integer;
  r:Real;
  name:String;
  F:File Of Real;
Begin
  ClrScr;
  Write('Введите имя файла:  ');
  ReadLn(name);
  Assign(F,name);
  Reset(F);
  n:=0;
  For i:=0 To FileSize(F)-1 Do
    Begin
      Read(F,r);
      If r=0 Then n:=n+1;
    End;
  WriteLn;
  WriteLn(n,' - нулевых значений');
  ReadLn;
End.

За спасибо могу решить и другие задачи, но мне непонятно что значит тождественные во второй задачке и другие условия какие-то непонятные все.
{Это кто такие задания тупые и непонятные выдавал ??}

[klem4]

Пользуйтесь наконец поиском ! Все задачи решались.

+ FAQ : Файлы

[volvo]

Den64
А скажи мне, зачем придумали функцию Eof(f) ? При работе с файлом как раз более логично производить действия "Пока не конец файла", чем вычислять его длину...