t_id
1318
t_adddate
2004/07/10
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022461558 | 1027340 | True | False | Successfully run |
Record count: 1
{ %target=linux,freebsd } {$mode objfpc} program testr; uses sysutils; function sprintf(buf,fmt : pchar) : longint; varargs;cdecl; external 'c'; function cosh(f : double) : double; cdecl; external 'm'; function ccos(f : double) : double; cdecl; external 'm' name 'cos'; Type TTest = Class(TObject) Constructor Create(Max : Integer); end; Constructor TTest.Create(Max : Integer); Var I,J : integer; F : single; buf : ansistring; begin For I:=1 to Max do begin F:=ccos(I/180*pi); setlength(buf,100); setlength(buf,sprintf(pchar(buf),'%d: f: %f and round f*10: ',i,f)); f:=f*10.0; f:=cosh(f); writeln(buf,round(F)); f:=cosh(f); end; end; procedure DoTest; begin With TTest.Create(720) do Free; end; begin DoTest; end.