PQ-Formel Programmieren < Taschenrechner < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 21:29 So 19.03.2006 | | Autor: | MiKeMaX |
Hallo ihr! ^^
Ja, also ich habe ein kleines Problem beim Programmieren der PQ-Formel in meinen TI-84 Plus. Ich habe schon Folgendes progammiert:
:Prompt P,Q
:-P/2-wurzel((P/2)²-Q)->A
:-P/2+wurzel((P/2)²-Q)->B
:If A=B
:Then
:Disp "Nur Nullstelle", A
:Else
:Disp "Nullstelle 1", A
:Disp "Nullstelle 2", B
Damit habe ich die Fälle, dass es zwei bzw. eine Nullstelle gibt beachtet. Nun gibt es jedoch den dritten Fall, dass es keine gibt. Dann bekomme ich den Error "NreellAns" ! Ich würde dieses jedoch gerne ändern, damit ich die Meldung "Keine Nullstellen" bekomme. Ich weiß jedoch nicht wie ich das machen soll. Ich habe schon überlegt, dass dieses der Fall ist, wenn der Radikant unter der Wurzel < 0 ist, jedoch weiß ich nicht mit welcher Syntax ich dieses Problem programmieren soll.
Wäre sehr nett, wenn ihr mir helfen könntet!
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
MfG, Mike
|
|
| |
|
Hallo,
ich habe jetzt das hier gefunden. Das benutzt zwar die allgemeine Form der quadratischen Gleichung, sollte dir aber für dein Problem helfen:
:ClLCD
:Disp "ax²+bx+c=0"
:Input "a=",A
:Input "b=",B
:Input "c=",C
:Float
:B*B-4*A*C->D
:ClLCD
:Disp "Diskriminante=",D
:If D<0
:Disp "keine reelle Loesung"
:If D==0
:Then
:Disp "Doppelloesung"
:-B/(2*A)->X
:Disp "X=",X->Frac
:End
:If D>0
:Then
:(-B+Sqrt(D))/(2*A)->X1
:(-B-Sqrt(D))/(2*A)->X2
:Disp "X1=",X1->Frac
:Disp "X2=",X2->Frac
:End
Viele Grüße
Daniel
|
|
|
|
