Question

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

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var f:file of real;
  // создаем файл
  Rewrite(f,'MyFileOfReals.bin');
  var a:=SeqRandom(10,1,30).Select(t->t/10).ToArray;
  a.Println;
  for var i:=0 to a.Length-1 do Write(f,a[i]);
  f.Close;
  // файл создан, далее собственно задание
  Reset(f,'MyFileOfReals.bin');
  f.Seek(f.FileSize-1);
  var p:=f.Read;
  p.Println;
  f.Close
end.