Sum Находит сумму элементов массива, состоящего из чисел с плавающей точкой
Пример кода : Нахождение квадрата различных значений
var
number, squared : Byte;
float : Extended;
begin // Квадрат 15 = 225
number := 15;
squared := Sqr(number);
ShowMessageFmt('%d в квадрате = %d',[number, squared]); // Квадрат 17 = 289 // Но результат превышает размер байта, соответственно результат = 289 MOD 256 = 33
number := 17;
squared := Sqr(number);
ShowMessageFmt('%d в квадрате = %d',[number, squared]); // The square of infinity is still infinity
float := Infinity;
float := Sqr(float);
ShowMessageFmt('Бесконечность в квадрате = %f',[float]);
end;
15 в квадрате = 225
17 в квадрате = 33
Бесконечность в квадрате = INF