Content
Image Gallery
Trigonometry
10 CLS
20 PRINT AT 1,8;"**TRIGONOMETRY**"
30 PRINT AT 4,0;"INPUT";TAB 8;"FORMULAE"
40 PRINT AT 6,2;"A";TAB 7;"SIN=OPP/HYP";TAB 27;"\.:"
50 PRINT AT 7,2;"B";TAB 7;"OPP=SIN*HYP";TAB 22;"HYP \.:% OPP"
60 PRINT AT 8,2;"C";TAB 7;"HYP=OPP/SIN SIN->\.:% % "
70 PRINT AT 10,2;"D";TAB 7;"COS=ADJ/HYP";TAB 27;"\.:"
80 PRINT AT 11,2;"E";TAB 7;"ADJ=COS*HYP";TAB 22;"HYP \.:% "
90 PRINT AT 12,2;"F";TAB 7;"HYP=ADJ/COS";TAB 20;"COS->\.:% % "
100 PRINT TAB 25;"ADJ"
110 PRINT AT 15,2;"G";TAB 7;"TAN=OPP/ADJ";TAB 27;"\.:"
120 PRINT AT 16,2;"H";TAB 7;"OPP=TAN*ADJ";TAB 26;"\.:% OPP"
130 PRINT AT 17,2;"I";TAB 7;"ADJ=OPP/TAN";TAB 20;"TAN->\.:% % "
140 PRINT TAB 25;"ADJ";AT 19,2;"J";TAB 7;"%S%T%O%P"
150 PRINT AT 21,0;"INPUT: REQUIRED FORMULAE(A TO J)"
800 INPUT B$
810 IF B$="A" THEN GOTO 1100
820 IF B$="B" THEN GOTO 1300
830 IF B$="C" THEN GOTO 1500
840 IF B$="D" THEN GOTO 1700
850 IF B$="E" THEN GOTO 1900
860 IF B$="F" THEN GOTO 2100
870 IF B$="G" THEN GOTO 2300
880 IF B$="H" THEN GOTO 2500
890 IF B$="I" THEN GOTO 2700
900 IF B$="J" THEN STOP
910 IF B$<"A" OR B$>"J" THEN GOTO 800
1100 CLS
1110 PRINT AT 2,2;"INPUT OPP"
1120 INPUT O
1130 PRINT AT 2,15;"OPP= ";O
1140 PRINT AT 4,2;"INPUT HYP"
1150 INPUT H
1160 PRINT AT 4,15;"HYP= ";H
1170 LET S=O/H
1180 LET X=ASN S*180/PI
1190 PRINT AT 6,5;"ANGLE= ";X;" DEGS"
1200 PRINT AT 10,3;"PRESS NEWLINE TO CONTINUE"
1210 INPUT A$
1220 GOTO 10
1300 CLS
1310 PRINT AT 2,2;"INPUT SIN"
1320 INPUT S
1330 PRINT AT 2,15;"SIN= ";S;" DEGS"
1340 PRINT AT 4,2;"INPUT HYP"
1350 INPUT H
1360 PRINT AT 4,15;"HYP= ";H
1370 LET O=(SIN (S*PI/180))*H
1380 PRINT AT 6,5;"OPP= ";O
1390 PRINT AT 10,3;"PRESS NEWLINE TO CONTINUE"
1400 INPUT A$
1410 GOTO 10
1500 CLS
1510 PRINT AT 2,2;"INPUT OPP"
1520 INPUT O
1530 PRINT AT 2,15;"OPP= ";O
1540 PRINT AT 4,2;"INPUT SIN"
1550 INPUT S
1560 PRINT AT 4,15;"SIN= ";S;" DEGS"
1570 LET H=O/(SIN (S*PI/180))
1580 PRINT AT 6,5;"HYP= ";H
1590 PRINT AT 10,3;"PRESS NEWLINE TO CONTINUE"
1600 INPUT A$
1610 GOTO 10
1700 CLS
1710 PRINT AT 2,2;"INPUT ADJ"
1720 INPUT A
1730 PRINT AT 2,15;"ADJ= ";A
1740 PRINT AT 4,2;"INPUT HYP"
1750 INPUT H
1760 PRINT AT 4,15;"HYP= ";H
1770 LET C=A/H
1780 LET X=ACS C*180/PI
1790 PRINT AT 6,5;"ANGLE= ";X;" DEGS"
1800 PRINT AT 10,3;"PRESS NEWLINE TO CONTINUE"
1810 INPUT A$
1820 GOTO 10
1900 CLS
1910 PRINT AT 2,2;"INPUT COS"
1920 INPUT C
1930 PRINT AT 2,15;"COS= ";C;" DEGS"
1940 PRINT AT 4,2;"INPUT HYP"
1950 INPUT H
1960 PRINT AT 4,15;"HYP= ";H
1970 LET A=(COS (C*PI/180))*H
1980 PRINT AT 6,5;"ADJ= ";A
1990 PRINT AT 10,3;"PRESS NEWLINE TO CONTINUE"
2000 INPUT A$
2010 GOTO 10
2100 CLS
2110 PRINT AT 2,2;"INPUT ADJ"
2120 INPUT A
2130 PRINT AT 2,15;"ADJ= ";A
2140 PRINT AT 4,2;"INPUT COS"
2150 INPUT C
2160 PRINT AT 4,15;"COS= ";C;" DEGS"
2170 LET H=A/(COS (C*PI/180))
2180 PRINT AT 6,5;"HYP= ";H
2190 PRINT AT 10,3;"PRESS NEWLINE TO CONTINUE"
2200 INPUT A$
2210 GOTO 10
2300 CLS
2310 PRINT AT 2,2;"INPUT OPP"
2320 INPUT O
2330 PRINT AT 2,15;"OPP= ";O
2340 PRINT AT 4,2;"INPUT ADJ"
2350 INPUT A
2360 PRINT AT 4,15;"ADJ= ";A
2370 LET T=O/A
2380 LET X=ATN T*180/PI
2390 PRINT AT 6,5;"ANGLE= ";X;" DEGS"
2400 PRINT AT 10,3;"PRESS NEWLINE TO CONTINUE"
2410 INPUT A$
2420 GOTO 10
2500 CLS
2510 PRINT AT 2,2;"INPUT TAN"
2520 INPUT T
2530 PRINT AT 2,15;"TAN= ";T;" DEGS"
2540 PRINT AT 4,2;"INPUT ADJ"
2550 INPUT A
2560 PRINT AT 4,15;"ADJ= ";A
2570 LET O=(TAN (T*PI/180))*A
2580 PRINT AT 6,5;"OPP= ";O
2590 PRINT AT 10,3;"PRESS NEWLINE TO CONTINUE"
2600 INPUT A$
2610 GOTO 10
2700 CLS
2710 PRINT AT 2,2;"INPUT OPP"
2720 INPUT O
2730 PRINT AT 2,15;"OPP= ";O
2740 PRINT AT 4,2;"INPUT TAN"
2750 INPUT T
2760 PRINT AT 4,15;"TAN= ";T;" DEGS"
2770 LET A=O/(TAN (T*PI/180))
2780 PRINT AT 6,5;"ADJ= ";A
2790 PRINT AT 10,3;"PRESS NEWLINE TO CONTINUE"
2800 INPUT A$
2810 GOTO 10
2820 CLEAR
2830 SAVE "1025%7"
2840 RUN
People
No people associated with this content.