1 function Sqr ( Number : Integer ) : Integer;
2 function Sqr ( Number : Int64 ) : Int64;
3 function Sqr ( Number : Extended ) : Extended;
Функция Sqr возвращает квадрат числа (Number).
Sqr(Number) = Number * Number
Число может быть целого или вещественного типа.
Для чисел типа Integer, Int64
Если квадрат числа превышает емкость переменной, в которую будет помещен результат, то результат будет:
Результат Mod Емкость
Для чисел типа Extended
Если квадрат числа превышает размер переменной, то вызывается исключение EOverFlow.
Особые значения перечислены ниже:
Infinity, -Infinity : Бесконечность
NaN (Not a Number - не число) : Не число
|
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;
|