#### Revision [22015]

This is an old revision of KeyPgSqr made by JeffMarshall on 2017-11-21 01:11:46.

### SQR

Returns a square root of a number

**Syntax:**

**Usage:**

result =

**Sqr**(*number*)**Parameters:**

*number*
the number (greater than or equal to zero)

**Return Value:**

Returns the square root of the argument

If

If

`.`*number*If

`equals zero,`*number*`returns zero (`**Sqr**`0.0`).If

`is less than zero,`*number*`returns a special value representing "not defined", printing like "`**Sqr**`NaN`" or`"IND"`, exact text is platform dependent.**Description:**

This is the same as raising the argument

If a

`to the one-half power:`*number*`. The required`*y*=*x*^ (1/2)`argument can be any valid numeric expression greater than or equal zero.`*number*If a

`Longint`or`ULongint`is passed to`, it may be converted to`**Sqr**`Double`precision first. For numbers over`2^52`, this will cause a very small loss of precision. Without making any assumptions about the rounding method, the maximum error due to this will be`, which is about`**Sqr**(2^64) -**Sqr**(2^64-2^12)`4.8e-7`. However this may cause erroneous results if the floor or ceiling of this value is taken, and the result of this may be out by`1`, particularly for square numbers and numbers that are close by.**Examples:**

'' Example of Sqr function: Pythagorean theorem

Dim As Single a, b

Print "Pythagorean theorem, right-angled triangle"

Print

Input "Please enter one leg side length: ", a

Input "Please enter the other leg side length: ", b

Print

Print "The hypotenuse has a length of: " & Sqr( a * a + b * b )

Dim As Single a, b

Print "Pythagorean theorem, right-angled triangle"

Input "Please enter one leg side length: ", a

Input "Please enter the other leg side length: ", b

Print "The hypotenuse has a length of: " & Sqr( a * a + b * b )

The output would look like:

Pythagorean theorem, right-angled triangle Please enter one leg side length: 1.5 Please enter the other leg side length: 2 The hypotenuse has a length of: 2.5

**Differences from QB:**

- None

**See also:**

Back to Math