home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib38b.dsk
/
INVERSE.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
589b
|
17 lines
5 HOME
10 REM ****************************
20 REM * INVERSE *
30 REM * BY DAVID THOMAS MUELLER *
40 REM * COPYRIGHT(C) 1990 *
50 REM * MINDCRAFT PUBL. CORP. *
60 REM * CONCORD, MA. 01742 *
70 REM ****************************
80 REM ARC-SINE
90 S = .866024962
100 C = SQR(1 -S ^2)
110 AA = ATN(S/C) *57.2957795: REM FOR C > 0
120 PRINT "THE ARC-SINE OF "S: PRINT "IS "AA" DEGREES": PRINT
130 C = .5
140 S = SQR(1 -C ^2)
150 AA = ATN(S/C) *57.2957795: REM FOR C > 0
160 PRINT "THE ARC-COSINE OF "C: PRINT "IS "AA" DEGREES"