disequazione secondo grado

esercitazione con visual basic su powerpoint
soluzione disequazioni secondo grado >0 <0
inserire i coefficienti e il tipo di disequazione (> o < di zero)
calcolo del discriminate
analisi della situazione: seggno del coefficiente e del discriminante
invio a procedure per ricerca campo validità

Private Sub primo(a, b, c, tipo)
Rem disequazione 2 grado positivo positivo
ListBox1.AddItem (" ax^2 + bx + c > 0 ")
ListBox1.AddItem ("valida per x esterni a radici")
d = b * b - 4 * a * c
ListBox1.AddItem ("a = " & a & " discriminante = " & d)
If d > 0 Then
radq = Sqr(d)
End If
x1 = (-b + radq) / (2 * a)
x2 = (-b - radq) / (2 * a)
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("--------------------------------------")
ListBox1.AddItem ("verifica campo di esistenza della disequazione")
ListBox1.AddItem ("provata nel campo tra -10 e + 10 ")
ListBox1.AddItem ("+++++++++++++ - - - - - +++++++++++++++++++")
ListBox1.AddItem ("osservare che diventa negativa internamente ai valori delle radici")
For k = -10 To 10
x = k
ListBox1.AddItem ("x = " & x & " disequazione = " & x * x * a + b * x + c)
Next k

End Sub

Private Sub primox(a, b, c, tipo)
Rem disequazione 2 grado positivo positivo
ListBox1.AddItem (" ax^2 + bx + c < 0 ")
ListBox1.AddItem ("valida per x interni a radici")
d = b * b - 4 * a * c
ListBox1.AddItem ("a = " & a & " discriminante = " & d)
If d > 0 Then
radq = Sqr(d)
End If
x1 = (-b + radq) / (2 * a)
x2 = (-b - radq) / (2 * a)
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("--------------------------------------")
ListBox1.AddItem ("verifica campo di esistenza della disequazione")
ListBox1.AddItem ("provata nel campo tra -10 e + 10 ")
ListBox1.AddItem ("++++++++++++ - - - - - +++++++++++++++++")
ListBox1.AddItem ("osservare che diventa positiva esternamente ai valori delle radici")
For k = -10 To 10
x = k
ListBox1.AddItem ("x = " & x & " disequazione = " & x * x * a + b * x + c)
Next k

End Sub

Private Sub secondo(a, b, c, tipo)
Rem disequazione 2 grado negativo positivo
ListBox1.AddItem (" ax^2 + bx + c > 0 ")
ListBox1.AddItem ("valida per ogni valore di x ")
d = b * b - 4 * a * c
ListBox1.AddItem ("a = " & a & " discriminante = " & d)
ListBox1.AddItem ("--------------------------------------")
ListBox1.AddItem ("verifica campo di esistenza della disequazione")
ListBox1.AddItem ("provata nel campo tra -10 e + 10 ")
ListBox1.AddItem ("+++++++++++++++++++++++++++++++++++++++++++++")
For k = -10 To 10
x = k
ListBox1.AddItem ("x = " & x & " disequazione = " & x * x * a + b * x + c)
Next k

End Sub

Private Sub secondox(a, b, c, tipo)
Rem disequazione 2 grado negativo negativo
ListBox1.AddItem (" ax^2 + bx + c < 0 ")
ListBox1.AddItem ("valida per ogni valore di x ")
d = b * b - 4 * a * c
ListBox1.AddItem ("a = " & a & " discriminante = " & d)
ListBox1.AddItem ("--------------------------------------")
ListBox1.AddItem ("verifica campo di esistenza della disequazione")
ListBox1.AddItem ("provata nel campo tra -10 e + 10 ")
ListBox1.AddItem ("- - - - - - - - - - - - - - - - - - - - -")
For k = -10 To 10
x = k
ListBox1.AddItem ("x = " & x & " disequazione = " & x * x * a + b * x + c)
Next k

End Sub

Private Sub terzo(a, b, c, tipo)
Rem discriminante positivo e a negativo
Rem disequazione 2 grado positivo negativo
ListBox1.AddItem (" ax^2 + bx + c > 0 ")
ListBox1.AddItem ("valida per x interni a radici")
d = b * b - 4 * a * c
ListBox1.AddItem ("a = " & a & " discriminante > 0 " & d)
If d > 0 Then
radq = Sqr(d)
End If
x1 = (-b + radq) / (2 * a)
x2 = (-b - radq) / (2 * a)
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("--------------------------------------")
ListBox1.AddItem ("verifica campo di esistenza della disequazione")
ListBox1.AddItem ("provata nel campo tra -10 e + 10 ")
ListBox1.AddItem ("osservare che diventa negativa esternamente ai valori delle radici")
ListBox1.AddItem ("- - - - - - - - - - -+++++++++++++++++++++ - - - - - - - -")
For k = -10 To 10
x = k
ListBox1.AddItem ("x = " & x & " disequazione = " & a * x * x + b * x + c)
Next k
End Sub

Private Sub terzox(a, b, c, tipo)
Rem discriminante positivo e a negativo
Rem disequazione 2 grado positivo negativo
ListBox1.AddItem (" ax^2 + bx + c < 0 ")
ListBox1.AddItem ("valida per x esterni a radici")
d = b * b - 4 * a * c
ListBox1.AddItem ("a = " & a & " discriminante > 0 " & d)
If d > 0 Then
radq = Sqr(d)
End If
x1 = (-b + radq) / (2 * a)
x2 = (-b - radq) / (2 * a)
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("--------------------------------------")
ListBox1.AddItem ("verifica campo di esistenza della disequazione")
ListBox1.AddItem ("provata nel campo tra -10 e + 10 ")
ListBox1.AddItem ("osservare che diventa positiva internamente ai valori delle radici")
ListBox1.AddItem ("- - - - - - - - - - -+ + + + + + - - - - - - - -- ")
For k = -10 To 10
x = k
ListBox1.AddItem ("x = " & x & " disequazione = " & a * x * x + b * x + c)
Next k
End Sub


Private Sub quarto(a, b, c, tipo)
Rem discriminante nullo e a positivo
Rem disequazione 2 grado
ListBox1.AddItem (" ax^2 + bx + c > 0 ")
ListBox1.AddItem ("sempre valida eccetto ove si annulla")
d = b * b - 4 * a * c
ListBox1.AddItem ("a = " & a & " discriminante = " & d)
x1 = (-b / (2 * a))
x2 = (-b / (2 * a))
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("--------------------------------------")
ListBox1.AddItem ("verifica campo di esistenza della disequazione")
ListBox1.AddItem ("provata nel campo tra -10 e + 10 ")
ListBox1.AddItem ("osservare che risulta sempre positiva, eccetto ove si annnulla ")
ListBox1.AddItem ("++++++++++++++++++++++++ ++++++++++++++++++++++++++")
For k = -10 To 10
x = k
ListBox1.AddItem ("x = " & x & " disequazione = " & a * x * x + b * x + c)
Next k
End Sub

Private Sub quartox(a, b, c, tipo)
Rem discriminante nullo e a negativo
Rem disequazione 2 grado
ListBox1.AddItem (" ax^2 + bx + c < 0 ")
ListBox1.AddItem ("sempre valida eccetto ove si annulla")
d = b * b - 4 * a * c
ListBox1.AddItem ("a = " & a & " discriminante = " & d)
x1 = (-b / (2 * a))
x2 = (-b / (2 * a))
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("--------------------------------------")
ListBox1.AddItem ("verifica campo di esistenza della disequazione")
ListBox1.AddItem ("provata nel campo tra -10 e + 10 ")
ListBox1.AddItem ("osservare che risulta sempre negativa , eccetto ove si annnulla ")
ListBox1.AddItem ("- - - - - - - - - - - - - - - - - - - -")
For k = -10 To 10
x = k
ListBox1.AddItem ("x = " & x & " disequazione = " & a * x * x + b * x + c)
Next k
End Sub


Private Sub CommandButton10_Click()
ListBox2.Visible = False
End Sub

Private Sub CommandButton6_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton7_Click()
a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text
tipo = TextBox4.Text
d = b * b - 4 * a * c
' ListBox1.AddItem ("discriminante b*b -4ac = " & d)
If a > 0 And d > 0 And tipo = 1 Then
Call primo(a, b, c, tipo)
End If
If a > 0 And d > 0 And tipo = 2 Then
Call primox(a, b, c, tipo)
End If
If a > 0 And d < 0 And tipo = 1 Then
Call secondo(a, b, c, tipo)
End If
If a < 0 And d > 0 And tipo = 1 Then
Call terzo(a, b, c, tipo)
End If
If a > 0 And d = 0 And tipo = 1 Then
Call quarto(a, b, c, tipo)
End If

If a < 0 And d > 0 And tipo = 2 Then
Call terzox(a, b, c, tipo)
End If
If a < 0 And d = 0 And tipo = 2 Then
Call quartox(a, b, c, tipo)
End If
If a < 0 And d < 0 And tipo = 2 Then
Call secondox(a, b, c, tipo)
End If

If a > 0 And d <= 0 And tipo = 2 Then
ListBox1.AddItem ("non ammette soluzioni")
End If
If a < 0 And d <= 0 And tipo = 1 Then
ListBox1.AddItem ("non ammette soluzioni")
End If
End Sub


Private Sub CommandButton8_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
End Sub

Private Sub CommandButton9_Click()
Rem schema situazioni
ListBox2.Visible = True
ListBox2.AddItem ("ax^2 + bx +c > 0 ")
ListBox2.AddItem ("a>0 d>0 valida esternamente a radici ")
ListBox2.AddItem ("a>0 d=0 sempre valida eccetto ove si annulla ")
ListBox2.AddItem ("a>0 d<0 sempre valida ")
ListBox2.AddItem ("a<0 d>0 valida internamente alle radici ")
ListBox2.AddItem ("a<0 d=0 senza soluzione ")
ListBox2.AddItem ("a<0 d<0 senza soluzione ")
ListBox2.AddItem ("--------------------------------------------- ")
ListBox2.AddItem ("ax^2 +bx + c < 0 ")
ListBox2.AddItem ("a>0 d>0 valida internamente a radici ")
ListBox2.AddItem ("a>0 d=0 senza soluzione ")
ListBox2.AddItem ("a>0 d<0 senza soluzione ")
ListBox2.AddItem ("a<0 d>0 valida esternamente a radici ")
ListBox2.AddItem ("a<0 d=0 sempre valida eccetto ove si annulla ")
ListBox2.AddItem ("a<0 d<0 sempre valida ")

End Sub

vedi disequazione2.ppt