esercitazioni con Turbo Basic

esci turboba.htm

sistema lineare a 2 equazioni

 

REM soluzione e discussione sistema lineare

print "soluzione sistema con due equazioni con TURBO BASIC"
print"sistema in forma canonica"
print"a1x + b1y = c1"
print"a2x + b2y = c2"
print"scrivi 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"c3=",c3&
print"calcolo del discriminante del sistema ds,dx,dy"
ds&=a1&*b2&-a2&*b1&
dx&=c1&*b2&-c2&*b1&
dy&=a1&*c2&-a2&*c1&
print"discriminante=",ds&
if ds&<>0 then goto 100 else goto 300
100
print"sistema determinato con soluzioni:"
x&=dx&/ds&
y&=dy&/ds&
print"x=",x&
print"y=",y&
goto 600

300
if (dx&=0) and (dy&=0) then goto 400 else goto 500
400
print"il sistema risulta indeterminato"
goto 600

500
print"il sistema risulta impossibile"
goto 600

600
print"fine soluzione"