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