t_id
92
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
447829469 | 935641 | True | False | Successfully run |
Record count: 1
const s: array[0..16] of string[13] = ('99999.900000', '99999.990000', '99999.999000', '99999.999900', '99999.999990', '99999.999999', '100000.000000', '100000.000000', '100000.000000', '100000.000000', '100000.000000', '100000.000000', '100000.000000', '100000.000000', '100000.000000', '100000.000000', '100000.000000'); var e,e2,e3: double; s2: string; c: longint; begin e := 100000.0; e2 := 0.1; c := 0; repeat e3 := e-e2; str(e3:0:6,s2); writeln(s2); if s2 <> s[c] then begin writeln(' Error, should be ',s[c]); halt(1); end; e2 := e2 /10.0; inc(c); until e2 < 1e-17; end.