esercitazioni con Turbo Basic

esci turboba.htm

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"