Binomische Gleichung lösen

Dokumentation ansehen
Programmspeicher-Image laden

10	"A" CLS
20	WAIT 0:PRINT "A*X^2 + B*X + C = 0"
30	INPUT "A = ";A:INPUT "B = ";B:INPUT "C = ";C
40	CLS
50	IF A=0 AND B=0 AND C<>0 PRINT "Es gibt keine Loesung !":GOTO 180
60	IF A=0 AND B=0 AND C=0 PRINT "Loesung ist beliebig !":GOTO 180
70	IF A=0 LET X=-C/B:PRINT "Nur eine Loesung :":PRINT "X = ";X:GOTO 180
80	R=(B*B-4*A*C)/4/A/A
90	IF R<0 THEN 140
100	X1=-B/2/A+SQR R:X2=-B/2/A-SQR R
110	IF X1=X2 PRINT "Doppelte reelle Loesung:":PRINT "X = ";X1:GOTO 180
120	PRINT "Reelle Loesungen :":PRINT "X1 = ";X1:PRINT "X2 = ";X2
130	GOTO 180
140	I=SQR-R:R=-B/2/A
150	IF 1E4>ABS R AND ABS R >=.1 AND 1E4>ABS I AND ABS I >=.1 THEN USING "####.####":GOTO 170
160	USING "##.##^"
170	PRINT "Komplexe Loesungen :":PRINT "X1=";MDF R;"+j";MDF I:PRINT "X2=";MDF R;"-j";MDF I
180	WAIT :USING
190	END

Dokumentation ansehen
Programmspeicher-Image laden