33 lines
854 B
Text
33 lines
854 B
Text
$APPTYPE CONSOLE
|
|
$TYPECHECK ON
|
|
|
|
SUB pause(prompt$)
|
|
PRINT prompt$
|
|
DO
|
|
SLEEP .1
|
|
LOOP UNTIL LEN(INKEY$) > 0
|
|
END SUB
|
|
|
|
'MAIN
|
|
DEFDBL pi , radians , degrees , deg2rad
|
|
pi = 4 * ATAN(1)
|
|
deg2rad = pi / 180
|
|
radians = pi / 4
|
|
degrees = 45 * deg2rad
|
|
|
|
PRINT format$("%.6n" , SIN(radians)) + " " + format$("%.6n" , SIN(degrees))
|
|
PRINT format$("%.6n" , COS(radians)) + " " + format$("%.6n" , COS(degrees))
|
|
PRINT format$("%.6n" , TAN(radians)) + " " + format$("%.6n" , TAN(degrees))
|
|
|
|
DEFDBL temp = SIN(radians)
|
|
PRINT format$("%.6n" , ASIN(temp)) + " " + format$("%.6n" , ASIN(temp) / deg2rad)
|
|
|
|
temp = COS(radians)
|
|
PRINT format$("%.6n" , ACOS(temp)) + " " + format$("%.6n" , ACOS(temp) / deg2rad)
|
|
|
|
temp = TAN(radians)
|
|
PRINT format$("%.6n" , ATAN(temp)) + " " + format$("%.6n" , ATAN(temp) / deg2rad)
|
|
|
|
pause("Press any key to continue.")
|
|
|
|
END 'MAIN
|