'----- schnipp ---------------- Alles oberhalb dieser Linie Loeschen --------
nochmal:
'COLOR 14, 9
CLS
'COLOR 15, 9
PRINT " L”sung linearer Gleichungssysteme mit Determinanten (3 Gleichungen) "
PRINT " nach SARRUS"
PRINT " (Zahlen ohne Leerzeichen durch Kommas getrennt eingeben)"
'COLOR 14, 9
PRINT
PRINT "                1. Gleichung: a11 x1 + a12 x2 + a13 x3 = b1"
INPUT " Eingabe: a11, a12, a13, b1"; a11, a12, a13, b1
'COLOR 14, 9
PRINT "                2. Gleichung: a21 x1 + a22 x2 + a23 x3 = b2"
INPUT " Eingabe: a21, a22, a23, b2"; a21, a22, a23, b2
'COLOR 14, 9
PRINT "                3. Gleichung: a31 x1 + a32 x2 + a33 x3 = b3"
INPUT " Eingabe: a31, a32, a33, b3"; a31, a32, a33, b3
'COLOR 12, 9
PRINT : PRINT " Zusammenfassung der Eingabe:"
PRINT a11, a12, a13, b1
PRINT a21, a22, a23, b2
PRINT a31, a32, a33, b3
' Berechnung der Determinante des Systems D
dp1 = a11 * a22 * a33
dp2 = a12 * a23 * a31
dp3 = a13 * a21 * a32
dm1 = a31 * a22 * a13
dm2 = a32 * a23 * a11
dm3 = a33 * a21 * a12
d = dp1 + dp2 + dp3 - dm1 - dm2 - dm3
'COLOR 15, 9
PRINT : PRINT " D :"; d
'Bererehnung der Determinante D1
d1p1 = b1 * a22 * a33
d1p2 = a12 * a23 * b3
d1p3 = a13 * b2 * a32
d1m1 = b3 * a22 * a13
d1m2 = a32 * a23 * b1
d1m3 = a33 * b2 * a12
d1 = d1p1 + d1p2 + d1p3 - d1m1 - d1m2 - d1m3
PRINT " D1:"; d1
'Berechnung der Determinante D2
d2p1 = a11 * b2 * a33
d2p2 = b1 * a23 * a31
d2p3 = a13 * a21 * b3
d2m1 = a31 * b2 * a13
d2m2 = b3 * a23 * a11
d2m3 = a33 * a21 * b1
d2 = d2p1 + d2p2 + d2p3 - d2m1 - d2m2 - d2m3
PRINT " D2:"; d2
'Berechnung der Determinante D3
d3p1 = a11 * a22 * b3
d3p2 = a12 * b2 * a31
d3p3 = b1 * a21 * a32
d3m1 = a31 * a22 * b1
d3m2 = a32 * b2 * a11
d3m3 = b3 * a21 * a12
d3 = d3p1 + d3p2 + d3p3 - d3m1 - d3m2 - d3m3
PRINT " D3:"; d3
'COLOR 12, 9
IF d = 0 AND d1 = 0 AND d2 = 0 AND d3 = 0 THEN
GOTO nn:
END IF
IF d = 0 THEN
nn:
PRINT " Berechnung kann nicht fortgesetzt werden, da D = 0"
GOTO distnull
ELSE
END IF
x1 = d1 / d
x2 = d2 / d
x3 = d3 / d
PRINT : PRINT "              x1 ="; x1
PRINT "              x2 ="; x2
PRINT "              x3 ="; x3
distnull:
'COLOR 12, 9
PRINT : INPUT "                   M”chten Sie nochmal (j/n)"; weiter$
IF weiter$ = "n" THEN GOTO beenden
GOTO nochmal
beenden:
'COLOR 7, 0
SYSTEM
'------------------------ Alles unterhalb dieser Linie Loeschen -- schnipp --

