Declare Function Sqr ( ByVal number As Double ) As Double

result = Sqr( number )

number

Возвращает квадратный корень из аргумента number.

Если number равно нулю, Sqr вернет ноль (0.0).

Если number меньше нуля, Sqr возвращает специальное значение, представляющее "не определено", печатается как "NaN" или "IND", точный текст зависит от платформы.

Это то же самое, как увеличение аргумента number в половинную степень: y = x ^ (1/2) . Необходимый аргумент number может быть любым допустимым числовым выражением, большим или равным нулю.

Если LongInt или ULongInt передается в Sqr, то он сначала может быть преобразован в представление Double. Для чисел более 2^52, это приведет к очень небольшой потери точности. Не делая никаких предположений об методе округления, максимальная ошибка из-за этого будет Sqr(2^64) - Sqr(2^64-2^12), что примерно 4.8e-7. Однако это может привести к ошибочным результатам, если берется низ или потолок этого значения, и в результате этого может быть не 1, особенно для квадратных чисел и ряда цифр.

'' Пример функции Sqr: теорема Пифагора 
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 )

Вывод:

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

• Нет
  
  

• Operator ^ (Возведение в степень)
  
• Арифметические операторы