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