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
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
{ Test for FloatToStr and CurrToStr functions. }
uses sysutils;
const
MaxCurrency : currency = 922337203685477.5807;
MinCurrency : currency = -922337203685477.5807;
var
ErrCount: longint;
procedure CheckVal(f: Extended);
var
s: string;
f1: Extended;
begin
s := FloatToStr(f);
f1 := StrToFloat(s);
if (f<>f1) and (Abs(f-f1)/Abs(f) > 6e-15) then begin
WriteLn('Error (Double):',Abs(f-f1)/Abs(f), ' Input:', f, ' Output:', s);
Inc(ErrCount);
end;
f := Single(f);
s := FloatToStr(Single(f));
f1 := StrToFloat(s);
if (f<>f1) and (Abs(f-f1)/Abs(f) > 6e-10) then begin
WriteLn('Error (Single):',Abs(f-f1)/Abs(f), ' Input:', f, ' Output:', s);
Inc(ErrCount);
end;
end;
procedure Cycle(f: Extended);
var
i: Integer;
begin
for i := 1 to 50 do begin
CheckVal(f);
CheckVal(-f);
f := f/10;
end;
end;
procedure CycleInc(f, increment: Extended);
var
i: Integer;
begin
Cycle(f);
for i := 0 to 30 do begin
Cycle(f+increment);
Cycle(f-increment);
increment := increment/10;
end;
end;
procedure CheckResult(const s, ref: string);
begin
if s <> ref then
begin
writeln('Got : ', s);
writeln('Should be: ', ref);
Inc(ErrCount);
end;
end;
var
e: extended;
d: double;
s: single;
c: currency;
i: Integer;
tests: array [0..4] of Double = (123456789123456789., 1e20, 1.6e20, 5e20, 9e20);
begin
e:=1234567890123.4;
d:=12345.12345;
s:=12345.12;
c:=12345.1234;
CheckResult(FloatToStrF(e,ffExponent,15,1), '1'+DecimalSeparator+'23456789012340E+12');
CheckResult(FloatToStrF(d,ffExponent,11,0), '1'+DecimalSeparator+'2345123450E+4');
CheckResult(FloatToStrF(s,ffExponent,8,0), '1'+DecimalSeparator+'2345120E+4');
CheckResult(FloatToStrF(s,ffExponent,8,7), '1'+DecimalSeparator+'2345120E+0004');
CheckResult(FloatToStrF(e,ffExponent,8,3), '1'+DecimalSeparator+'2345679E+012');
CheckResult(FloatToStrF(c,ffExponent,10,0), '1'+DecimalSeparator+'234512340E+4');
CheckResult(FloatToStrF(c,ffExponent,11,2), '1'+DecimalSeparator+'2345123400E+04');
CheckResult(FloatToStrF(c,ffExponent,10,4), '1'+DecimalSeparator+'234512340E+0004');
CheckResult(FloatToStrF(-12345.12345,ffExponent,11,0), '-1'+DecimalSeparator+'2345123450E+4');
CheckResult(FloatToStrF(-0.00000123,ffGeneral,15,0), '-1'+DecimalSeparator+'23E-6');
CheckResult(FloatToStrF(-12345.12345,ffGeneral,7,0), '-12345'+DecimalSeparator+'12');
CheckResult(CurrToStr(-12345.1234), '-12345'+DecimalSeparator+'1234');
CheckResult(CurrToStr(MaxCurrency), '922337203685477'+DecimalSeparator+'5807');
CheckResult(CurrToStr(MinCurrency), '-922337203685477'+DecimalSeparator+'5807');
NegCurrFormat:=8;
CheckResult(FloatToStrF(-12345.1234,ffCurrency,19,4), '-12' + ThousandSeparator + '345'+DecimalSeparator+'1234 ' + CurrencyString);
CheckResult(FloatToStrF(MinCurrency,ffCurrency,19,4), '-922' + ThousandSeparator + '337' + ThousandSeparator + '203' + ThousandSeparator + '685' + ThousandSeparator + '477'+DecimalSeparator+'5807 ' + CurrencyString);
for i := 0 to High(tests) do begin
e := tests[i];
CycleInc(e,1e20);
CycleInc(e,9e20);
CycleInc(e,e);
CycleInc(e,e/2);
CycleInc(e,e/3);
end;
if ErrCount > 0 then
begin
writeln('Test failed. Errors: ', ErrCount);
Halt(1);
end
else
writeln('Test completed.');
end.
|
