Difference between revisions of "Average"
From SCAR Divi Manual
(→Definition) |
|||
| Line 20: | Line 20: | ||
==Availability== | ==Availability== | ||
| − | SCAR Divi 3. | + | SCAR Divi 3.20 > Current |
==Description== | ==Description== | ||
Revision as of 23:53, 2 July 2011
Definition
function Average(Values: TExtendedArray): Extended;
Source Code
function Average(Values: TExtendedArray): Extended;
var
i, l: Integer;
begin
Result := 0;
l := Length(Values);
if l = 0 then Exit;
for i := 0 to l - 1 do
Result := Result + Values[i];
Result := Result / l;
end;Availability
SCAR Divi 3.20 > Current
Description
Calculates the arithmetic mean of a given set of extended floating point values specified by the TExtendedArray Values.
Example
var Values: array of Extended; begin Values := [1.2, 1.9, 2.9, 5.55, 8.69]; WriteLn(Average(Values)); end.
Output:
4,048
