35 lines
719 B
Text
35 lines
719 B
Text
PROGRAM RATE_COUNTER
|
|
|
|
!
|
|
! for rosettacode.org
|
|
!
|
|
|
|
!
|
|
! This is an example, replace with the task you want to measure
|
|
!
|
|
PROCEDURE TASK_TO_MEASURE
|
|
LOCAL I
|
|
FOR I=1 TO 1000000 DO
|
|
END FOR
|
|
END PROCEDURE
|
|
|
|
BEGIN
|
|
PRINT("Method 1: Calculate reciprocal of elapsed time:")
|
|
FOR TRIAL%=1 TO 3 DO
|
|
START=TIMER
|
|
TASK_TO_MEASURE
|
|
FINISH=TIMER
|
|
PRINT("Rate =";100/(FINISH-START);"per second")
|
|
END FOR
|
|
|
|
PRINT("Method 2: Count completed tasks in one minute:")
|
|
FOR TRIAL%=1 TO 3 DO
|
|
RUNS%=0
|
|
FINISH=TIMER+60
|
|
REPEAT
|
|
TASK_TO_MEASURE
|
|
IF TIMER<FINISH THEN RUNS%+=1 END IF
|
|
UNTIL TIMER>=FINISH
|
|
PRINT("Rate =";RUNS%;"per minute")
|
|
END FOR
|
|
END PROGRAM
|