fpc/packages/numlib/examples/iomrevex.pas

program iomrevex;

uses
  typ, iom;

const
  n = 5;
  
var
  v: array[1..n] of ArbFloat;
  
begin
  Assign(input, ParamStr(1));
  reset(input);
  Assign(output, ParamStr(2));
  rewrite(output);
  {inlezen van de vector v}
  iomrev(input, v[1], n);
  writeln('program results iomrevex');
  writeln;
  {afdrukken van de vector}
  writeln('v =');
  writeln;
  iomwrv(output, v[1], n, 12);
  Close(input);
  Close(output);
end.