print"soluzione equazione secondo grado completa"
print"con TURBO BASIC"
print"equazione ax^2 + bx + c = 0"
print"introduci i coefficienti della equazione"
input"a=",a&
input"b=",b&
input"c=",c&
print"a=",a&
print"b=",b&
print"c=",c&
print"calcolo il discriminante"
d&=b&^2-4*a&*c&
if d&>0 then goto 100 else goto 300
100
print"due soluzioni reali e distinte"
x1&=(-b&+sqr(d&))/2*a&
x2&=(-b&-sqr(d&))/2*a&
print"x1=",x1&
print"x2=",x2&
goto 600

300
if d&=0 then goto 320 else goto 400
320
print"due soluzioni reali coincidenti"
x&=(-b&/2*a&)
print"x1=x2=",x&
goto 600

400
print"soluzioni nel campo complesso"

600
print"fine soluzione"

soluzione equazione secondo grado completa
con TURBO BASIC
equazione ax^2 + bx + c = 0
introduci i coefficienti della equazione
a=1
b=-5
c=6
a=             1
b=            -5
c=             6
calcolo il discriminante
due soluzioni reali e distinte
x1=            3
x2=            2
fine soluzione


soluzione equazione secondo grado completa
con TURBO BASIC
equazione ax^2 + bx + c = 0
introduci i coefficienti della equazione
a=2
b=-3
c=7
a=             2
b=            -3
c=             7
calcolo il discriminante
soluzioni nel campo complesso
fine soluzione


soluzione equazione secondo grado completa
con TURBO BASIC
equazione ax^2 + bx + c = 0
introduci i coefficienti della equazione
a=2
b=4
c=2
a=             2
b=             4
c=             2
calcolo il discriminante
due soluzioni reali coincidenti
x1=x2=        -4
fine soluzione

inizio