QBASIC
CLS
PRINT "soluzione sistema con due equazioni usando QBASIC"
PRINT "sistema con due equazioni ridotto a forma canonica"
PRINT "a1x + b1y = c1"
PRINT "a2x + b2y = c2"
PRINT "scrivere i coefficienti delle equazioni"
INPUT "a1=", a1
INPUT "b1=", b1
INPUT "c1=", c1
INPUT "a2=", a2
INPUT "b2=", b2
INPUT "c2=", c2
PRINT "a1=", a1
PRINT "b1=", b1
PRINT "c1=", c1
PRINT "a2=", a2
PRINT "b2=", b2
PRINT "c2=", c2
PRINT "calcolo dei determinanti ds,dx,dy"
ds = a1 * b2 - a2 * b1
dx = c1 * b2 - c2 * b1
dy = a1 * c2 - a2 * c1
IF ds <> 0 THEN GOTO determinato ELSE GOTO verifica
determinato:
PRINT "il sistema risulta determinato con le soluzioni:"
x = dx / ds
y = dy / ds
PRINT "x=", x
PRINT "y=", y
GOTO fine
verifica:
IF (dx = 0) AND (dy = 0) THEN GOTO indeterminato ELSE GOTO impossibile
indeterminato:
PRINT "il sistema risulta indeterminato"
GOTO fine
impossibile:
PRINT "il sistema risulta impossibile"
fine:
PRINT "fine soluzione"
soluzione sistema con due equazioni usando QBASIC
sistema con due equazioni ridotto a forma canonica
a1x + b1y = c1
a2x + b2y = c2
scrivere i coefficienti delle equazioni
a1=1
b1=2
c1=3
a2=4
b2=5
c2=6
a1= 1
b1= 2
c1= 3
a2= 4
b2= 5
c2= 6
calcolo dei determinanti ds,dx,dy
il sistema risulta determinato con le soluzioni:
x= -1
y= 2
fine soluzione