Клуб программистов

    Функция Sqr возвращает квадрат числа.

     Квадрат(Число) = Число* Число

     Число может быть целого или вещественного типа.

     Для чисел типа Integer, Int64

     Если квадрат числа превышает емкость переменной, в которую будет помещен результат, то результат будет:

     Результат mod Емкость

     Для чисел типа Extended

     Если квадрат числа превышает размер переменной, то вызывается исключение EOverFlow.

     Особые значения перечислены ниже:
    Infinity, -Infinity : Бесконечность
    NaN (Not a Number - не число) : Не число

var
   number, squared : Byte;
   float : Extended;

begin
   // The square of 15 = 225
   number := 15;
   squared := Sqr(number);
   ShowMessageFmt('%d squared = %d',[number, squared]);

   // The square of 17 = 289
   // But result exceeds byte size, so result = 289 MOD 256 = 33
   number := 17;
   squared := Sqr(number);
   ShowMessageFmt('%d squared = %d (see code above)',[number, squared]);

   // The square of infinity is still infinity
   float := Infinity;
   float := Sqr(float);
   ShowMessageFmt('Infinity squared = %f',[float]);
end;

15 squared = 225
17 squared = 33 (see code above)
Infinity squared = INF