CLS
PRINT "programma scritto con QBASIC"
PRINT "soluzione equazione di secondo grado"
PRINT "ax^2 + bx + c =0"
PRINT "scrivi i coefficienti della equazione completa"
INPUT "a=", a
INPUT "b=", b
INPUT "c=", c
PRINT "calcolo il valore del discriminante"
d = b ^ 2 - 4 * a * c
PRINT "discriminante=", d
IF d > 0 THEN GOTO distinte ELSE GOTO verifica
distinte:
PRINT "con discriminante >0 due soluzioni reali e distinte"
x1 = (-b + SQR(d)) / 2 * a
x2 = (-b - SQR(d)) / 2 * a
PRINT "x1=", x1
PRINT "x2=", x2
GOTO fine
verifica:
IF d = 0 THEN GOTO reali ELSE GOTO complesse
reali:
PRINT "con discriminante=0 si hanno due soluzioni reali coincidenti"
x1 = (-b / 2 * a)
PRINT "x1=", x1
PRINT "x2=", x1
GOTO fine
complesse:
PRINT "essendo il discriminante negativo,si hanno soluzioni complesse"
fine:
PRINT "fine soluzione"

programma scritto con QBASIC
soluzione equazione di secondo grado
ax^2 + bx + c =0
scrivi i coefficienti della equazione completa
a=1
b=2
c=3
calcolo il valore del discriminante
discriminante=              -8
essendo il discriminante negativo,si hanno soluzioni complesse
fine soluzione


programma scritto con QBASIC
soluzione equazione di secondo grado
ax^2 + bx + c =0
scrivi i coefficienti della equazione completa
a=2
b=4
c=2
calcolo il valore del discriminante
discriminante=               0
con discriminante=0 si hanno due soluzioni reali coincidenti
x1=           -4
x2=           -4
fine soluzione


programma scritto con QBASIC
soluzione equazione di secondo grado
ax^2 + bx + c =0
scrivi i coefficienti della equazione completa
a=2
b=10
c=3
calcolo il valore del discriminante
discriminante=               76
con discriminante >0 due soluzioni reali e distinte
x1=           -1.282202
x2=           -18.7178
fine soluzione

ritorna