mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 05:39:29 +01:00
28 lines
424 B
ObjectPascal
28 lines
424 B
ObjectPascal
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.
|