Difference between revisions of "Average"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> function Average(Values: TExtendedArray): Extended; </source> <source lang="scar"> function Average(Values: TExtendedArray): Ex...") |
(→Definition) |
||
| Line 4: | Line 4: | ||
</source> | </source> | ||
| + | ===Source Code=== | ||
<source lang="scar"> | <source lang="scar"> | ||
function Average(Values: TExtendedArray): Extended; | function Average(Values: TExtendedArray): Extended; | ||
Revision as of 09:17, 28 June 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.00 > 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
