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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
program iomwrmte;
uses
typ,
iom;
const
n1 = -5;
n2 = 10;
m1 = -3;
m2 = 20;
r = m2 - m1 + 1;
p = 3;
q = 2;
n = 7;
m = 15;
var
i, j, f, s: ArbInt;
a: array[n1..n2, m1..m2] of ArbFloat;
begin
Assign(output, ParamStr(2));
rewrite(output);
Write(output, ' program results iomwrmte');
s := sizeof(ArbFloat);
case s of
4: writeln(output, '(single)');
6: writeln(output, '(real)');
8: writeln(output, '(double)')
end;
writeln(output);
for i := 1 to n do
for j := 1 to m do
a[i + p - 1, j + q - 1] := i + j * 1e-3;
for f := minform to maxform do
begin
writeln(output, 'A = (form=', f: 2, ')');
iomwrm(output, a[p, q], n, m, r, f);
writeln(output);
end;
Close(output);
end.
program iomwrmte;
uses
typ,
iom;
const
n1 = -5;
n2 = 10;
m1 = -3;
m2 = 20;
r = m2 - m1 + 1;
p = 3;
q = 2;
n = 7;
m = 15;
var
i, j, f, s: ArbInt;
a: array[n1..n2, m1..m2] of ArbFloat;
begin
Assign(output, ParamStr(2));
rewrite(output);
Write(output, ' program results iomwrmte');
s := sizeof(ArbFloat);
case s of
4: writeln(output, '(single)');
6: writeln(output, '(real)');
8: writeln(output, '(double)')
end;
writeln(output);
for i := 1 to n do
for j := 1 to m do
a[i + p - 1, j + q - 1] := i + j * 1e-3;
for f := minform to maxform do
begin
writeln(output, 'A = (form=', f: 2, ')');
iomwrm(output, a[p, q], n, m, r, f);
writeln(output);
end;
Close(output);
end.
|
