prgmMATH - A program full of formulas for a perfect math class

prgmMATH.txt

Degree
Lbl 0
ClrHome
Menu("SEITE 1/1","STOCHASTIK",1,"DREIECK",4,"BEENDEN",7
Lbl 7
Return
Lbl 1
ClrHome
Menu("STOCHASTIK","MULTIPLIKATION",2,"ADDITION",3,"ZURUCK",0
Lbl 2
Input "ANZHAL PFADE: ",A
1
For(B,1,A
ClrHome
Input "BRUCH ANGEBEN:  ",C
Ans*C
End
Disp Ans
Disp Ans►Frac
Pause 
Goto 1
Lbl 3
Input "ANZHAL PFADE: ",A
0
For(B,1,A
ClrHome
Input "BRUCH ANGEBEN:  ",C
Ans+C
End
Disp Ans
Disp Ans►Frac
Pause 
Goto 1
Lbl 4
ClrHome
Menu("WELCHES DREIECK?","RECHTWINKLIGES",5,"BELIEBIGES",6,"ZURUCK",0
Lbl 5
ClrHome
Menu("RECHTWINKLIGES","WINKEL:SINUS",8,"WINKEL:KOSINUS",9,"WINKEL:TANGENS",10,"PYTHAGORAS",14,"ZURUCK",4
Lbl 8
Input "GEGENKATHETE:   ",A
Input "HYPOTENUSE:     ",B
sin⁻¹(A/B
Disp Ans
Pause 
Goto 5
Lbl 9
Input "ANKATHETE:      ",A
Input "HYPOTENUSE:     ",B
cos⁻¹(A/B
Disp Ans
Pause 
Goto 5
Lbl 10
Input "GEGENKATHETE:   ",A
Input "ANKATHETE:      ",B
tan⁻¹(A/B
Disp Ans
Pause 
Goto 5
Lbl 14
Prompt A,B
√(A²+B²
Disp Ans
Lbl 6
ClrHome
Menu("BELIEBIGES","SINSATZ:WINKEL",11,"SINSATZ:SEITE",12,"KOSINUSSATZ",13,"ZURUCK",4
Lbl 11
Input "WINKEL 1:       ",A
Input "SEITE ZU WINKE\L1",B
Input "SEITE 2:        ",C
sin⁻¹((sin(A)*C)/B
Disp Ans
Pause 
Goto 6
Lbl 12
Input "SEITE 1:        ",A
Input "WINKEL ZU SEITE1",B
Input "WINKEL 2:       ",C
(A/sin(B))*sin(C)
Disp Ans
Pause 
Goto 6
Lbl 13
ClrHome
Menu("KOSINUSSATZ","SEITE A",15,"SEITE B",16,"SEITE C",17,"WINKEL ALPHA",18,"WINKEL BETA",19,"WINKEL GAMMA",20,"ZURUCK",6
Lbl 15
Disp "SEITEN B UND C
Prompt B,C
Input "ALPHA: ",A
√(B²+C²-2BCcos(A
Disp Ans
Pause 
Goto 13
Lbl 16
Disp "SEITEN A UND C
Prompt A,C
Input "BETA: ",B
√(A²+C²-2ACcos(B
Disp Ans
Pause 
Goto 13
Lbl 17
Disp "SEITEN A UND B
Prompt A,B
Input "GAMMA: ",C
√(A²+B²-2ABcos(C
Disp Ans
Pause 
Goto 13
Lbl 18
Disp "SEITE B, C UND A
Prompt B,C,A
cos⁻¹((B²+C²-A²)/(2BC
Disp Ans
Pause 
Goto 13
Lbl 19
Disp "SEITE A, C UND B
Prompt A,C,B
cos⁻¹((A²+C²-B²)/(2AC
Disp Ans
Pause 
Goto 13
Lbl 20
Disp "SEITE A, B UND C
Prompt A,B,C
cos⁻¹((A²+B²-C²)/(2AB
Disp Ans
Pause 
Goto 13