t_id
1318
t_adddate
2004/07/10
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=40 Percentage= 80.00
Skipped=4 Percentage= 8.00
{ %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.