home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 06 / grdlagen / zeitisin.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1989-03-23  |  930 b   |  30 lines

  1. (* ------------------------------------------------------ *)
  2. (*                    ZEITISIN.PAS                        *)
  3. (* ------------------------------------------------------ *)
  4. {$I PCTIME.INC  }
  5. {$I ISINCOS.BIB }
  6.  
  7. CONST n    : INTEGER = 5000;
  8.       grad : INTEGER =   55;
  9.  
  10. VAR   j, g, k : INTEGER;
  11.       x, y    : REAL;
  12.  
  13. BEGIN
  14.   g := grad;
  15.   x := grad/180 * pi;
  16.   WriteLn(#10,'Zeitmessung fuer Isin, Rsin, sin',#10);
  17.   ResetTime;
  18.   FOR j := 1 TO n DO k := Isin(g);
  19.   WriteLn(TimeStr:10, ' fuer schnelle Isin- Routine       ',
  20.           k);
  21.   ResetTime;
  22.   FOR j := 1 TO n DO y := Rsin(x);
  23.   WriteLn(TimeStr:10,' fuer          Rsin- Routine     ',y);
  24.   ResetTime;
  25.   FOR j := 1 TO n DO y := Sin(x);
  26.   WriteLn(TimeStr:10,' fuer implementierte Sinusroutine',
  27.           y);
  28. end.
  29. (* ------------------------------------------------------ *)
  30. (*               Ende von ZEITISIN.PAS                    *)