оФОРМЛЕНИЕ

[Akcentbek]

НАПИСАЛ ФУНКЦИЮ \ НАХОДИТ СРЕДНЮЮ ДЛИНУ СВЯЗНЫХ ПОДПОСЛЕДОВАТЕЛЬНОСТЕЙ
ТЕПЕРЬ НУЖНО СДЕЛАТЬ ТАК ЧТОБЫ ФУНКЦИЯ ВЫПОЛНЯЛАСЬ ТОЛЬКО В ТОМ СЛУЧАЕ ЕСЛИ ФАИЛ ПОЛНОСТЬЮ СОСТОИТ ИЗ ЭЛЕМЕНТОВ ВЕЩЕСТВЕННОГО ТИПА
ЕСЛИ ФАИЛ НЕ УДОВЛЕТВОРЯЕТ ЭТОМУ ИЛИ НЕ НАИДЕН ВЫДАТЬ СООТВЕТСТВУЕЩЕЕ ПРЕДУПРЕЖДЕНИЕ
ПРИ ЭТО ВВОД \ВЫВОД НЕ ДОЛЖЕН БЫТЬ В ФУНКЦИЙ А ТОЛЬКО В ОСНОВНОЙ ПРОГРАММЕ

program kontrol;

  type
   TReal = real;
   TFile = file of TReal;
   var
   f: TFile;
   res: double;

  function mean(var f: TFile; var res: double): boolean;
   var
      r: TReal;
    len: longint;
      n: integer;

    begin

     n := 0;
     len := 0;




           WHILE NOT EOF(F) DO
           {$I-} read(f, r); {$I+}


           if r < 0.0 then
            begin

             inc(n);
             inc(len);
               while (not eof(f)) and (r < 0.0) do
                 begin
                   {$I-}
                     read(f, r);
                   {$I+}

                   if r < 0.0 then inc(len)
                 end;
                 if n <> 0 then
                  begin
                   mean := TRUE;
                   res := len/n;
                  end;



             end;
            END;

  begin

   assign(f, 'data.txt');
    rewrite(f);
   {$I-}   write(f, -1.0, -2.0, 1.0, -3.0,22.3,-45.6,7.8,-3.4,-7.5);  {$I+}
     close(f);

   assign(f, 'data.txt');
    reset(f);

     READLN(F);

   if mean(f, res) then
   writeln('res = ', res:0:3)

   else
   writeln('ERROR...');


  readln
 end.

[Serge_Bliznykov]

file of TReal;

файл не может НЕ СОСТОЯТЬ из элементов вещественного типа!
Единственное исключение - он (файл) может быть пустой (т.е. ни содержать ни одного числа). Других вариантов быть НЕ МОЖЕТ!

[Akcentbek]

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

[Serge_Bliznykov]

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

в той программе файл был задан НЕ через file of real ?!
т.е. Вы не знаете, каким образом другая программа писала в этот файл?!
тогда я боюсь вас разочаровать - имхо, достоверного способа определить формат файла в таком случае нет...

[Akcentbek]

не всмысле

что если через ioresult проверить если
не ноль значит не число, и ноль то число ?