Delphi. Функция SumOfSquares( const Data: array of Double ): Extended;

Функция SumOfSquares( const Data: array of Double ): Extended;

Модуль: Math

Описание
Фнкция возвращает сумму квадратов всех значений числового массива Data:
Data[0]*Data[0] + Data[1]*Data[1] + ... +
Data[length(Data)-1]*Data[length(Data)-1].

Пример
var
   Mas: array of Integer;
   SumSqr: Extendes;    I: Integer;
begin
  ...
   SetLength(Mas, 10);
   for i:= 0 to 9 do Mas[i]:= i/10;
   SumSqr:= SumOfSquares(Mas);       { SumSqr:=2.85 }
  ...
end;

Справочник по Delphi

Уроки Delphi