home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 18 / CD_ASCQ_18_111294_W.iso / dos / prg / pas / gfxfx / tstmath.pas < prev    next >
Pascal/Delphi Source File  |  1994-04-21  |  372b  |  17 lines
  1.  
  2. program testfastmath;
  3. { Test of fastmath unit (by Bas van Gaalen) }
  4. uses fastmath,dos;
  5. const max = 10000;
  6. var t : longint; i,h,m,s,hs : word;
  7. begin
  8.   gettime(h,m,s,hs); t := hs+s*100+m*6000;
  9.   for i := 0 to round(2*pi*max) do
  10.     write(#13,cos(i/max):6:3);
  11.   gettime(h,m,s,hs); t := (hs+s*100+m*6000)-t;
  12.   writeln;
  13.   writeln(t);
  14.   writeln;
  15.   readln;
  16. end.
  17.