home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB11.ZIP / TIMETEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-12  |  411 b   |  21 lines
  1. {
  2. Program TIMETEST to demonstrate the use of the TIME function
  3. contained in TIME.INC
  4.  
  5. Source: "TIME: A Function To Measure Elapsed Time", TUG Lines Volume I, Issue 3
  6. Author: Herb Holden
  7. Application: PC-DOS/MS-DOS
  8. }
  9.  
  10. program timetest;
  11.  
  12. var t1,t2,x:  real;
  13.           i:  integer;
  14. (*$I time.inc *)
  15. begin
  16. t1:=time;
  17. for i:=1 to 1000 do x:=3.21*6.54;
  18. t2:=time;
  19. writeln( 'Time: ', t2-t1:6:2)
  20. end.
  21.