mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-05 17:18:44 +02:00
28 lines
425 B
ObjectPascal
28 lines
425 B
ObjectPascal
program iomwrvex;
|
|
|
|
uses
|
|
typ, iom;
|
|
|
|
const
|
|
n = 5;
|
|
|
|
var
|
|
i: integer;
|
|
v: array[1..n] of ArbFloat;
|
|
|
|
begin
|
|
Assign(output, ParamStr(1));
|
|
rewrite(output);
|
|
writeln('program results iomwrv');
|
|
writeln;
|
|
{genereren van de vector v}
|
|
randomize;
|
|
for i := 1 to n do
|
|
v[i] := 2 * random - 1;
|
|
iomwrv(output, v[1], n, 15);
|
|
{afdrukken van de vector}
|
|
writeln;
|
|
iomwrv(output, v[1], n, 12);
|
|
Close(output);
|
|
end.
|