14 lines
342 B
Text
14 lines
342 B
Text
PROCEDURE Average (Data : ARRAY OF REAL; Samples : CARDINAL) : REAL;
|
|
|
|
(* Calculate the average over 'Samples' values, stored in array 'Data'. *)
|
|
|
|
VAR sum : REAL;
|
|
n : CARDINAL;
|
|
|
|
BEGIN
|
|
sum := 0.0;
|
|
FOR n := 0 TO Samples - 1 DO
|
|
sum := sum + Data [n]
|
|
END;
|
|
RETURN sum / FLOAT(Samples)
|
|
END Average;
|