TI-Basic: Programme und Tutorials: Mitternachtsformel 2

Hoch zu "Programme und Tutorials"

Erstellt von:	Henri97
Schwierigkeitsgrad:	Fortgeschrittener Anfänger
Modell:	TI-84 Plus

Dieses Programm löst quadratische Gleichungen, zeigt die Diskriminante [prgmDISK], wie viele Lösungen [prgmDISK] es gibt und den Scheitelpunkt [prgmSCHEITEL] an.

Neue Programme erstellen

Man muss zwei neue Programme erstellen, das Hauptprogramm: zB:QUADFORMEL und das Diskriminanten-Programm: zB: DISK

Liste der verwendeten Befehle

• Disp
• Output
• Input
• If
• Then
• Else

Programme

prgmQUADFORMEL

:ClrHome
:Disp "A"
:Input A
:Disp "B"
:Input B
:Disp "C"
:Input C
:ClrHome
:Output(7,1,"LOESUNGEN:")
:prgmDISK    -führt das Programm DISK aus
:(-B)+Wurzelzeichen((B²)-(4AC))→D 
:2*A→E -Sollte extra berechnet werden
:D/E→F
:(-B)-Wurzelzeichen((B²)-(4AC))→G 
:G/E→H
:Output(2,2,"ERGEBNIS:") -2. Stelle weil sonst das E verschwindet
:If I=0
:Then
:Output(4,1,"X1:")
:Output(4,1,F)
:End
:If I>0
:Then
:Output(4,1,"X1:")
:Output(5,1,"X2:") 
:Output(4,5,F)
:Output(5,5,K)
:End
:If I<0
:Then
:Output(2,12,"KEINS")
:End

wird nochmal überarbeitet!

prgmDISK

:(B²)-(4AC)→I
:If I=0
:Then
:Output(7,11,"1")
:End
:If H>0
:Then
:Output(7,11,"0")
:End
:Output(8,1,"D:") - D steht für Diskriminante
:Output(8,3,H)
:Return

wird nochmal überarbeitet!

prgmSCHEITEL

Kommt bald !