Revision [16288]
This is an old revision of KeyPgSqr made by CountingPine on 2012-08-16 07:36:18.
SQR
Returns a square root of a number
Syntax:
KeyPgDeclare declare KeyPgFunction function Sqr ( KeyPgByval byval number KeyPgAs as KeyPgDouble double ) KeyPgAs as KeyPgDouble double
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 number equals zero, Sqr returns zero (0.0).
If number is less than zero, Sqr returns a special value representing "not defined", printing like "NaN" or "IND", exact text is platform dependent.
Description:
This is the same as raising the argument number to the one-half power: y = x KeyPgOpExponentiate ^ (1/2) . The required number argument can be any valid numeric expression greater than or equal zero.
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