Alle in Einem:
:ClrHome
:Menu ("------MENU------","MATHE",1,"Physik",2,"VERLASSEN",Q)
:Lbl 1
:ClrHome
:Menu ("------MENU------","MITTERNACHTSFORMEL",3,""STRAHLENSATZ",4, "K-FAKTOR",5,"A VON KEGELN",6,"VERLASSEN",Q)
:Lbl Q
:ClrHome
:Stop
:
:Lbl 4
:ClrHome
:Disp "X"
:Disp "- ="
:Input "",C
:(B/C)*A->D (Dieses "->" ist die Taste "STO->")
:ClrHome
:Disp "----------------" (16 mal "-")
:Disp "X:"
:Output (2,4,D)
:Disp "----------------"
:Stop
:
:Lbl 5
:Input "X1: ",A
:Input "Y1: ",B
:(A+B)/A->C
:ClrHome
:Disp "----------------"
:Disp "K-FAKTOR:"
:Output (2,11,C)
:Disp "----------------"
:Stop
:
:Lbl 6
:ClrHome
:Input "RADIUS: ",A
:A²*PI->B ("PI" Soll das Zeichen/ die Zahl Pi bedeuten, konnte es hier leider nicht schreiben.)
:ClrHome
:Disp "----------------"
:Disp "FLAECHENINHALT",B
:Disp "----------------"
:Stop
:
:Lbl 3
:ClrHome
:Input "A: ",A
:Input "B: ",B
:Input "C: ",C
:(-B+![sqrt[]{;;}](http://upload.wikimedia.org/math/3/9/1/3916a09c0d143d8ae497353c5145c942.png) (B²-4AC))/(2A)->D
:(-B-(B²-4AC))/(2A)->E
:ClrHome
:Disp "----------------"
:Disp "X1:"
:Disp "X2:"
:Output (2,5,E)
:Output (3,5,D)
:Disp "----------------"
:Stop
:
:Lbl 7
:ClrHome
:Input "LAENGE: ",A
:Input "BREITE:",B
:Input "HOEHE:",C
:Input "GEWICHT:",D
:A*B*C->E
:D/E->F
:ClrHome
:Disp "----------------"
:Disp "DICHTE:"
:Output (2,9,F)
:Disp "----------------"
:Stop
:
:Lbl 2
:ClrHome
:Menu ("------MENU------","DICHTE",7,"WAERME",8,"VERLASSEN",Q)
:
:Lbl 8
:ClrHome
:Menu ("------MENU------","Wasser",9,"EIS",A,"VERLASSEN",Q)
:
:Lbl 9
:ClrHome
:Input "MASSE: ",A
:Input "°C: ",B (Im Taschenrechner gibt es weder "Delta" noch "Teta" also musste ich °C schreiben, soll aber "Temperaturunterschied" bedeuten)
:4,2*A*B->C
:ClrHome
:Disp "----------------"
:Disp "W="
:Output (2,3,C)
:Disp "JOULE"
:Disp "----------------"
:Stop
:
:Lbl A
:ClrHome
:Input "MASSE: ",A
:Input "°C: ",B
:2,1*A*B->C
:ClrHome
:Disp "----------------"
:Disp "W="
:Output (2,3,C)
:Disp "JOULE"
:Disp "----------------"
:Stop
Zurück auf Home
|
