41 lines
1.2 KiB
QBasic
41 lines
1.2 KiB
QBasic
SUB MAIN
|
|
PRINT "---- SINE, COSINE, TANGENTS (DEGREES) ----"
|
|
|
|
PRINT "COSD(45)=" + STR$(COSD(45))
|
|
PRINT "SIND(45)=" + STR$(SIND(45))
|
|
PRINT "TAND(45)=" + STR$(TAND(45))
|
|
|
|
PRINT "ACOSD(0.707)=" + STR$(ACOSD(0.707))
|
|
PRINT "ASIND(0.707)=" + STR$(ASIND(0.707))
|
|
PRINT "ATAND(1)=" + STR$(ATAND(1))
|
|
|
|
PRINT "\n---- SINE, COSINE, TANGENTS (RADIANS) ----"
|
|
|
|
PRINT "COS(0.785)=" + STR$(COS(0.785))
|
|
PRINT "SIN(0.785)=" + STR$(SIN(0.785))
|
|
PRINT "TAN(0.785)=" + STR$(TAN(0.785))
|
|
|
|
PRINT "ACOS(0.707)=" + STR$(ACOS(0.707))
|
|
PRINT "ASIN(0.707)=" + STR$(ASIN(0.707))
|
|
PRINT "ATAN(1)=" + STR$(ATAN(1))
|
|
|
|
PRINT "\n---- SECANT, COSECANT, COTANGENT (DEGREES) ----"
|
|
|
|
PRINT "SECD(45)=" + STR$(SECD(45))
|
|
PRINT "CSCD(45)=" + STR$(CSCD(45))
|
|
PRINT "COTD(45)=" + STR$(COTD(45))
|
|
|
|
PRINT "ASECD(1.414)=" + STR$(ASECD(1.414))
|
|
PRINT "ACSCD(1.414)=" + STR$(ACSCD(1.414))
|
|
PRINT "ACOTD(1)=" + STR$(ACOTD(1))
|
|
|
|
PRINT "\n---- SECANT, COSECANT, COTANGENT (RADIANS) ----"
|
|
|
|
PRINT "SEC(0.785)=" + STR$(SEC(0.785))
|
|
PRINT "CSC(0.785)=" + STR$(CSC(0.785))
|
|
PRINT "COT(0.785)=" + STR$(COT(0.785))
|
|
|
|
PRINT "ASEC(1.414)=" + STR$(ASEC(1.414))
|
|
PRINT "ACSC(1.414)=" + STR$(ACSC(1.414))
|
|
PRINT "ACOT(1)=" + STR$(ACOT(1))
|
|
END SUB
|