t_id
936
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
522896399 | 947769 | True | False | Successfully run |
Record count: 1
uses Dos; const MAX_VAL = 128; var r : real; f : file of byte; b1, b2: byte; begin assign(f,'bug2296.dat'); rewrite(f); r := 12.2; write(f,Byte(round(sin(r)*(MAX_VAL-1)+MAX_VAL))); b1 := Byte(round(sin(r)*(MAX_VAL-1)+MAX_VAL)); close(f); reset(f); read(f,b2); if b1 <> b2 then begin writeln('b1: ',b1,' <> b2: ',b2); halt(1); end; close(f); erase(f); end.