t_id
1488
t_adddate
2005/02/06
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022853917 | 1027398 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3533 } { Submitted by "Vasily Volchenko" on 2005-01-08 } { e-mail: Vasily.Volchenko@mstu.edu.ru } program Bug; {x$mode objfpc}{x$H+} //Local function bug uses Classes,Math,SysUtils; procedure p1; var tc,t0:double; s1,s2,s3 : string; function Theta(x:double):double; begin {Result}Theta:=(x-tc)/(t0-tc); end; begin tc:=0;t0:=20; str(theta(20),s1); str(theta(2),s2); str(theta(20)-theta(2),s3); writeln(s1,' ',s2,' ',s3); if (s1<>' 1.000000000000000E+000') or (s2<>' 1.000000000000000E-001') or (s3<>'-9.000000000000000E-001') then halt(1); end; begin p1; end.