paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 02:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added sumInt

Browse Source 
git-svn-id: trunk@2380 -
This commit is contained in:
peter 2006-01-29 19:46:14 +00:00
parent 0c050527ca
commit e58e92c4fa
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/objpas/math.pp
View File

@ -304,6 +304,8 @@ function mean(const data : array of float) : float;
function sum(const data : array of float) : float;
function mean(const data : PFloat; Const N : longint) : float;
function sum(const data : PFloat; Const N : Longint) : float;
function sumInt(const data : PInt64;Const N : longint) : Int64;
function sumInt(const data : array of Int64) : Int64;
function sumofsquares(const data : array of float) : float;
function sumofsquares(const data : PFloat; Const N : Integer) : float;
{ calculates the sum and the sum of squares of data }
@ -752,6 +754,23 @@ function sum(const data : PFloat;Const N : longint) : float;
sum:=sum+data[i];
end;
function sumInt(const data : PInt64;Const N : longint) : Int64;
var
i : longint;
begin
sumInt:=0;
for i:=0 to N-1 do
sumInt:=sumInt+data[i];
end;
function sumInt(const data : array of Int64) : Int64;
begin
Result:=SumInt(@Data[0],High(Data)+1);
end;
function sumofsquares(const data : array of float) : float;
begin