Delphi. Процедура SumsAndSquares( const Data: array of Double var Sum, SumOfSquares: Extended );

Процедура SumsAndSquares( const Data: array of Double var Sum, SumOfSquares: Extended );

Модуль: Math

Описание
Процедура возвращает одновременно сумму и сумму квадратов всех значений числового массива Data. При вызове процедуры SumsAndSquares вычисления производятся быстрее, чем при последовательном вызове двух функций Sum и SumOfSquares.

Пример
var
   Mas: array of Double;
   Sum, SumSqr: Extendes;
   I: Byte;
begin
  ...
   SetLength(Mas, 10);
   for i:= 0 to 9 do Mas[i]:= i/10;
   SumsAndSquares(Data, Summa, SumSqr);
       { Summa:= 4.5; SumSqr:= 2.85 }
  ...
end;