"Fossies" - the Fresh Open Source Software Archive

Member "FreeBASIC-1.09.0-win64/examples/manual/math/acos.bas" (1 Jan 2022, 509 Bytes) of package /windows/misc/FreeBASIC-1.09.0-win64.zip:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Visual Basic source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 '' examples/manual/math/acos.bas
    2 ''
    3 '' NOTICE: This file is part of the FreeBASIC Compiler package and can't
    4 ''         be included in other distributions without authorization.
    5 ''
    6 '' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgAcos
    7 '' --------
    8 
    9 Dim h As Double
   10 Dim a As Double
   11 Input "Please enter the length of the hypotenuse of a triangle: ", h
   12 Input "Please enter the length of the adjacent side of the triangle: ", a
   13 Print ""
   14 Print "The angle between the sides is"; Acos ( a / h )
   15 Sleep