|
•• bruckbauer.at ••
|
|||||||||
|
|||||||||
|
Einfache
Programme|
PROGRAM:PQFORMEL :Disp "P-Q-FORMEL" :Prompt P,Q :(P/2)^2-Q->D :If D<0 :Then :Disp "D<0 { }" :Else :Disp "X1=" :Disp -P/2+  D»Frac:Disp "X2=" :Disp -P/2- D»Frac:End |
(1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) |
(1) PQFORMEL ist der Name des Programms
(2) Disp "xxx" gibt einfach nur Text aus.
(3) Prompt fragt nach dem Wert von P und Q
(4) Hier wird die Diskriminante D definiert (Pfeil mit STO)
(5) Wenn D<0,
(6) dann
(7) gibt es keine Lösung...
(8) Wenn nicht, dann
(9)-(12) gib die beiden Lösungen aus...
(10) »Frac gibt die Lösung als Bruch aus (Taste MATH + 0)
(13) End markiert das Ende der If-Verzweigung.
quadratische Gleichungen: abc-Formel
|
PROGRAM:ABCFORML :Disp "ABC-FORMEL" :Prompt A,B,C :B^2-4*A*C->D :If D<0 :Then :Disp "D<0 { }" :Else :Disp "X1=" :Disp (-B+ D)/(2*A) »Frac:Disp "X2=" :Disp (-B- D)/(2*A) »Frac:End |
(1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11) (12) (13) |
(1) ABCFORML ist der Name des Programms
(2) Disp "xxx" gibt einfach nur Text aus.
(3) Prompt fragt nach dem Wert von A, B und C
(4) Hier wird die Diskriminante D definiert (Pfeil mit STO)
(5) Wenn D<0,
(6) dann
(7) gibt es keine Lösung...
(8) Wenn nicht,
dann
(9)-(12) gib die beiden Lösungen aus...
(10) »Frac gibt die Lösung als Bruch aus (Taste MATH + 0)
(13) End markiert das Ende der If-Verzweigung.
Trigonometrie: Cosinussatz
|
PROGRAM:COSSATZ :Disp "X,Y: SEITEN" :Disp "  : EING WINKEL":Prompt X,Y, :Disp "3. SEITE=" :Disp (X^2+Y^2-2*X*Y*cos )
|
(1) (2) (3) (4) (5) (6) |
(1) COSSATZ ist der Name des Programms
(2)-(3) Disp "xxx" gibt einfach nur Text aus.
(4) Prompt fragt nach dem Wert von X, Y und dem eingeschlossenen Winkel
(6) Ausgabe der Lösung...
Wahrscheinlichkeitsrechnung:
Binomialverteilung - Dichte ("genau k Mal")
|
PROGRAM:BINDENS :Disp "BINOMIALVERT:" :Disp "GENAU K" :Prompt N,K,P :Disp (N nCr K)*P^K*(1-P)^(N-K) |
(1) (2) (3) (4) (5) |
(1) BINDENS ist der Name des Programms ("Density")
(2)-(3) Disp "xxx" gibt einfach nur Text aus.
(4) Prompt fragt nach dem Wert von N, K und P
(5) Ausgabe der Lösung...
Wahrscheinlichkeitsrechnung:
Binomialverteilung ("höchstens k Mal")
|
PROGRAM:BINDIST :Disp "BINOMIALVERT:" :Disp "MAX K" :Prompt N,K,P :0->A :For(I,0,K) :A+(N nCr I)*P^I*(1-P)^(N-I)->A :End :Disp A |
(1) (2) (3) (4) (5) (6) (7) (8) (9) |
(1) BINDIST ist der Name des Programms ("Distribution")
(2)-(3) Disp "xxx" gibt einfach nur Text aus.
(4) Prompt fragt nach dem Wert von N, K und P
(5) belegt die Variable A zunächst mit 0 (Pfeil mit STO)
(6) Beginn der For-Schleife: I beginnt mit dem Wert 0 und wird nach jedem Durchlauf
um 1 erhöht, bis I den Wert von K erreicht. Dann wird die Schleife beendet.
(7) In jedem Durchlauf wird zum Ergebnis des vorhergehenden Durchlaufs (d.i.
der Wert von A) das neue Ergebnis addiert und wieder in A gespeichert (Pfeil mit STO und "nCr" mit MATH-PRB-nCr).
(8) Ende der Schleife
(9) Ausgabe der Lösung...
Favourite Links
|