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
|
const
s: array[1..21] of string =
('10.00000000000000000',
'1.00000000000000000',
'0.10000000000000000',
'0.01000000000000000',
'0.00100000000000000',
'0.00010000000000000',
'0.00001000000000000',
'0.00000100000000000',
'0.00000010000000000',
'0.00000001000000000',
'0.00000000100000000',
'0.00000000010000000',
'0.00000000001000000',
'0.00000000000100000',
'0.00000000000010000',
'0.00000000000001000',
'0.00000000000000100',
'0.00000000000000010',
'0.00000000000000001',
'0.00000000000000000',
'0.00000000000000000');
var
e: extended;
c: longint;
s2: string;
lenadjust: longint;
begin
if sizeof(extended) = 8 then
lenadjust := 2
else
lenadjust := 0;
e := 10.0;
for c := 1 to 21 do
begin
str(e:0:17,s2);
writeln(s2);
if s2 <> copy(s[c],1,length(s[c])-lenadjust) then
begin
writeln(' Error, should be ',copy(s[c],1,length(s[c])-lenadjust));
halt(1);
end;
e := e / 10.0;
end;
end.
|
