blob: 090319b0ac5d1658f22e17d6a7f502dbfa3c9e8a (
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
28
29
30
31
|
program prec;
uses SysUtils;
var
i:Integer;
v: Double;
s: string;
begin
v := 1.0000000000001;
for i := 1 to 20 do
begin
s := FloatToStrF(v, ffGeneral, i, 0);
WriteLn(i, ' ', s);
if (i < 14) then
begin
if (s <> '1') then
begin
writeln('error');
halt(1);
end;
end
else
if (s <> '1'+DecimalSeparator+'0000000000001') then
begin
writeln('error');
halt(1);
end;
end;
end.
|
