sistema di disequazioni secondo grado

soluzione grafica ssitema due disequazioni 2 grado
grafici delle equazioni e ricerca valori che le soddisfano entrambe
valori ricercati con ciclo for-next e controllo If
confronto con valori letti su grafico

esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
ListBox1.AddItem ("prima disequazione :x ^ 2 - x - 2 >0")
For k = -5 To 5
x = k
If x ^ 2 - x - 2 > 0 Then
ListBox1.AddItem ("x = " & x & " y = " & x ^ 2 - x - 2)
End If

Next k
ListBox1.AddItem ("----------------")
ListBox1.AddItem ("seconda disequazione : 16 - x ^ 2 > 0 ")
For k = -5 To 5
x = k

If 16 - x ^ 2 > 0 Then
ListBox1.AddItem ("x = " & x & " y = " & 16 - x ^ 2)
End If
Next k
ListBox1.AddItem ("osservare per quali valori della x ")
ListBox1.AddItem ("entrambe le disequazioni sono soddisfatte ,positive")
ListBox1.AddItem ("nell'esempio, entro la zona azzurra")
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton3_Click()
Image1.Visible = True
End Sub

Private Sub CommandButton4_Click()
Image1.Visible = False
End Sub



Private Sub CommandButton5_Click()
ListBox1.AddItem ("prima disequazione :x ^ 2 - 6x +5 >0")
For k = -2 To 6
x = k
If x ^ 2 - 6 * x + 5 > 0 Then
ListBox1.AddItem ("x = " & x & " y = " & x ^ 2 - 6 * x + 5)
End If

Next k
ListBox1.AddItem ("----------------")
ListBox1.AddItem ("seconda disequazione : 5x^2 -12x +7 > 0 ")
For k = -2 To 6
x = k

If 5 * x ^ 2 - 12 * x + 7 > 0 Then
ListBox1.AddItem ("x = " & x & " y = " & 5 * x ^ 2 - 12 * x + 7)
End If
Next k
ListBox1.AddItem ("osservare per quali valori della x ")
ListBox1.AddItem ("entrambe le disequazioni sono soddisfatte ,positive")
ListBox1.AddItem ("nell'esempio, per x < 1 e x > 5")
End Sub


Private Sub CommandButton6_Click()
Image2.Visible = True
End Sub

Private Sub CommandButton7_Click()
Image2.Visible = False
End Sub

vedi solvedisequa.ppt