Declare Function Acos ( ByVal number As Double ) As Double

результат = Acos( число )

число

Арккосинус числа, в радианах, в пределах [0..Pi].

Acos возвращает арккосинус числа аргумента как Double в пределах от 0 до Pi. Арккосинус является противоположным функции Cos . Возвращаемый угол измеряется в радианах (а не в градусах).

Dim h As Double
Dim a As Double
Input "Please enter the length of the hypotenuse of a triangle: ", h
Input "Please enter the length of the adjacent side of the triangle: ", a
Print ""
Print "The angle between the sides is"; Acos ( a / h )
Sleep

Результатом будет что-то вроде:

Please enter the length of the hypotenuse of a triangle: 5
Please enter the length of the adjacent side of the triangle: 4

The angle between the sides is 0.6435011087932843

• Не доступно в диалекте -lang qb если только не ссылается с помощью alias __Acos.
  
  

• Новая в FreeBASIC
  
  

• Cos
  
• Краткое вступление к тригонометрии