Версия для печати темы

Автор: Александра 16.04.2006 16:54

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

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

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

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

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

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

Автор: Den64 17.04.2006 4:07

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

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 17.04.2006 15:58

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

+ http://forum.pascal.net.ru/index.php?showtopic=3584

Автор: volvo 17.04.2006 16:42

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