risoluzione numerica e grafica sistemi 2

vengono fornite equazioni per due sistemi
nel primo si conosce somma di due numeri e loro prodotto:si chiede di trovare i due numeri
nel secondo si conosce somma di due numeri e somma dei loro quadrati:si chiede di trovare i due numeri
soluzione mediante ricerca di valori assegnabili con ciclo for-next
ricerca eventuali soluzioni comuni, con ciclo for-next e If
creazione grafici e confronto con valori numerici
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem trovare due numeri di nota somma e prodotto
somma = 11
prodotto = 18
ListBox1.AddItem ("x+y=11")
ListBox1.AddItem ("x*y=18")
ListBox1.AddItem ("equazione risolvente")
ListBox1.AddItem ("z^2 -11z +18 =0")
ListBox1.AddItem ("calcolo alcuni valori per la retta")
For x = 1 To 10
y = 11 - x
ListBox1.AddItem (x & " , " & y)
Next x
z1 = (11 + Sqr(11 ^ 2 - 4 * 18)) / 2
z2 = (11 - Sqr(11 ^ 2 - 4 * 18)) / 2
ListBox1.AddItem ("numeri = " & z1 & " , " & z2)
ListBox1.AddItem ("-----------------------")
ListBox1.AddItem ("calcolo alcuni valori per la iperbole")
For x = 1 To 10
y = 18 / x
ListBox1.AddItem (x & " , " & y)
Next x
ListBox1.AddItem ("creazione grafico con derive")
Image2.Visible = True
ListBox1.AddItem ("cerco soluzioni comuni")
For x = 1 To 11
y1 = 11 - x
y2 = 18 / x
If y1 = y2 Then
ListBox1.AddItem ("soluzione = " & x & " , " & y1)
End If
Next x
End Sub

Private Sub CommandButton2_Click()
Image1.Visible = False
Image3.Visible = False
Image2.Visible = False
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
Rem somma numeri nota e somma quadrati numeri nota
ListBox1.AddItem ("x+y=5")
ListBox1.AddItem ("x^2+y^2 = 13")
ListBox1.AddItem ("soluzione del sistema:equazione risolvente")
ListBox1.AddItem (" y = x ^ 2 - 5 * x + 6 ")
y = x ^ 2 - 5 * x + 6
x1 = (5 + Sqr(25 - 24)) / 2
x2 = (5 - Sqr(25 - 24)) / 2
ListBox1.AddItem ("x1 = " & x1)
ListBox1.AddItem ("x2 = " & x2)
ListBox1.AddItem ("-------trovo valori della retta ---")
For x = 1 To 5
y = 5 - x
ListBox1.AddItem (x & " , " & y)
Next x
ListBox1.AddItem ("--------trovo valori del cerchio-----")
For x = 1 To 3
y1 = Sqr(13 - x ^ 2)
ListBox1.AddItem (x & " , " & y1)
Next x
ListBox1.AddItem ("---cerco soluzione----")
For x = 1 To 3
y = 5 - x
y1 = Sqr(13 - x ^ 2)
If y = y1 Then
ListBox1.AddItem ("soluzione")
ListBox1.AddItem (x & " , " & y1)
End If
Image3.Visible = True
Next x

vedi quadrati.ppt