vedi area lavoro

 

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


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=2
b1=4
c1=6
a2=4
b2=8
c2=12
a1=            2
b1=            4
c1=            6
a2=            4
b2=            8
c2=            12
calcolo dei determinanti ds,dx,dy
il sistema risulta indeterminato
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=2
b1=4
c1=5
a2=4
b2=8
c2=3
a1=            2
b1=            4
c1=            5
a2=            4
b2=            8
c2=            3
calcolo dei determinanti ds,dx,dy
il sistema risulta impossibile
fine soluzione

ritorna