listati da Qbasic

esci listaqbasic.htm

 

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"