#### Revision [13804]

This is an old revision of KeyPgSqr made by DoS386 on 2008-10-22 04:28:50.

### 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

`.`*number*
If

`equals zero,`*number***Sqr**returns zero.
If

`is less than zero,`*number***Sqr**returns a domain error (-1.#IND).**Description:**

This is the same as raising the argument

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

'' Example of sqr function: Pythagorean theorem

Dim As Single a , b

Print "Pythagorean theorem , right 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 )

Sleep

Dim As Single a , b

Print "Pythagorean theorem , right 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 )

Sleep

The output would look like:

Pythagorean theorem , right triangle Please enter one leg side length: 3 Please enter the other leg side length: 4 The hypotenuse has a length of: 5

**Differences from QB:**

- None

**See also:**

Back to Math