Delphi-Help

Sqr

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

Sqr

Описание

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;

15 в квадрате = 225
17 в квадрате = 33
Бесконечность в квадрате = INF

Примечание

 

 

Авторизация



Счетчики