Справочник функций и процедур Delphi: Sqr

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

Sqr
Функция
Возвращает квадрат числа System unit
  
1 function Sqr ( Number : Integer ) : Integer;

2 function Sqr ( Number : Int64 ) : Int64;

3 function Sqr ( Number : Extended ) : Extended;

Delphi Sources

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

Sqr(Number) = Number * Number

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

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

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

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

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

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

Особые значения перечислены ниже:

Infinity, -Infinity : Бесконечность
NaN (Not a Number - не число) : Не число
Похожие команды
Dec  Декремент порядковой переменной

Inc  Увеличивает порядковую переменную

Sqrt  Возвращает квадратный корень числа

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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте