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

[L1s1c1a]

дан файл f, элементы которого являются действительными числами. Найти сумму квадратов элементов файла и последний элемент файла.

[Serge_Bliznykov]

var f : file of real;
 d, sumq : real;
begin
  Assign(f, 'ИмяФайла.dat'); { если Pascal современный, то AssignFile(...) }
  Reset(f);
  if Eof(f) then WriteLn('Файл пуст')
  else begin
     sumq := 0;
     while Not Eof(f) do begin
         Read(f, d);
         sumq := sumq + sqr(d);
     end;
     WriteLn('Сумма квадратов = ',sumq:0:2,' последний элемент файла =',d:0:2);
  end;
  Close(f); { если Pascal современный, то  CloseFile(f) }
end.

[L1s1c1a]

Сообщение от Serge_Bliznykov

var f : file of real;
 d, sumq : real;
begin
  Assign(f, 'ИмяФайла.dat'); { если Pascal современный, то AssignFile(...) }
  Reset(f);
  if Eof(f) then WriteLn('Файл пуст')
  else begin
     sumq := 0;
     while Not Eof(f) do begin
         Read(f, d);
         sumq := sumq + sqr(d);
     end;
     WriteLn('Сумма квадратов = ',sumq:0:2,' последний элемент файла =',d:0:2);
  end;
  Close(f); { если Pascal современный, то  CloseFile(f) }
end.

При выполнении выдает ошибку на 10 строке "Чтение после конца потока невозможно"

[Аватар]

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

[L1s1c1a]

Сообщение от Аватар

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

Числа через пробел, обычный txt файл

[L1s1c1a]

Всё, понял свою ошибку, извиняюсь, работает.
Спасибо за помощь

[Аватар]

В типизированном файле двоичная информация. file of real не пойдет

[Serge_Bliznykov]

Сообщение от L1s1c1a

При выполнении выдает ошибку на 10 строке "Чтение после конца потока невозможно"

Аватар, правильно Вам ответил. Вы не такой файл пытаетесь подсунуть.
для начала нужно подготовить файл с действительными числами.
Это нельзя сделать "вручную" (в текстовом редакторе), это можно сделать только написав для этого отдельную программу.
например, такую:

var f : file of real;
 d : real;
 i, n : integer;
begin
  WriteLn('Сколько чисел записать в файл: ');
  ReadLn(n);

  Assign(f, 'ИмяФайла.dat'); { если Pascal современный, то AssignFile(...) }
  Rewrite(f); // перезаписать файл
  
  for i:=1 to n do begin
    Write('Введите ',i,' действительное число: ');
    ReadLn(d);

    Write(f, d); // запишем это число в типизированный файл действительных чисел

  end;

  Close(f); { если Pascal современный, то  CloseFile(f) }

end.

А в качестве домашнего задания, чтобы убедиться, что Вы поняли тему, напишите программу, которая выведет на экран все числа из вашего типизированного файла.


UPDATE
опоздал...