blob: 64f5c97fe409efa87158e83e873582daf0343d7b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
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.
|
