Równanie z czterema niewiadomymi

Spośród podanych czterech równań, wyliczamy cztery niewiadome.

widok etykiety programu



Dim a1, b1, c1, d1, e1, a2, b2, c2, d2, e2, a3, b3, c3, d3, e3, a4, b4, c4, d4, e4 As Single
Dim k, l, m, n, najwiekszy As Integer

Private Sub czysc_Click()
txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
txt5.Text = ""
txt6.Text = ""
txt7.Text = ""
txt8.Text = ""
txt9.Text = ""
txt10.Text = ""
txt11.Text = ""
txt12.Text = ""
txt13.Text = ""
txt14.Text = ""
txt15.Text = ""
txt16.Text = ""
txt17.Text = ""
txt18.Text = ""
txt19.Text = ""
txt20.Text = ""

lblWynikw.Caption = ""
lblWynikx.Caption = ""
lblWyniky.Caption = ""
lblWynikz.Caption = ""
End Sub

Private Sub koniec_Click()
Unload Me
End
End Sub

Private Sub rozwiaz2_Click()
Dim k, l, m, n, o As Integer
'Sprawdeenie czy podane zostały wszystkie liczby'
If txt1 = "" Or txt2 = "" Or txt3 = "" Or txt4 = "" Or txt5 = "" Or txt6 = "" Or txt7 = "" Or txt8 = "" Or txt9 = "" Or txt10 = "" Or txt11 = "" Or txt12 = "" Or txt13 = "" Or txt14 = "" Or txt15 = "" Or txt16 = "" Or txt17 = "" Or txt18 = "" Or txt19 = "" Or txt20 = "" Then
MsgBox ("Nie podałeś wszystkich liczb!")
Else
a1 = CSng(txt1)
b1 = CSng(txt2)
c1 = CSng(txt3)
d1 = CSng(txt4)
e1 = CSng(txt5)

a2 = CSng(txt6)
b2 = CSng(txt7)
c2 = CSng(txt8)
d2 = CSng(txt9)
e2 = CSng(txt10)

a3 = CSng(txt11)
b3 = CSng(txt12)
c3 = CSng(txt13)
d3 = CSng(txt14)
e3 = CSng(txt15)

a4 = CSng(txt16)
b4 = CSng(txt17)
c4 = CSng(txt18)
d4 = CSng(txt19)
e4 = CSng(txt20)
End If
'k=wynik
k = a1 * b2 * c3 * d4 + a2 * b3 * c4 * d1 + a3 * b4 * c1 * d2 + a4 * b1 * c2 * d3 - d1 * c2 * b3 * a4 - d2 * c3 * b4 * a1 - d3 * c4 * b1 * a2 - d4 * c1 * b2 * a3

'l=w
l = e1 * b2 * c3 * d4 + e2 * b3 * c4 * d1 + e3 * b4 * c1 * d2 + e4 * b1 * c2 * d3 - b1 * c2 * d3 * e4 - b2 * c3 * d4 * e1 - b3 * c4 * d1 * e2 - b4 * c1 * d2 * e3

'm=x
m = a1 * e2 * c3 * d4 + a2 * e3 * c4 * d1 + a3 * e4 * c1 * d2 + a4 * e1 * c2 * d3 - c1 * d2 * e3 * a4 - c2 * d3 * e4 * a1 - c3 * d4 * e1 * a2 - c4 * d1 * e2 * a3

'n=y
n = a1 * b2 * e3 * d4 + a2 * b3 * e4 * d1 + a3 * b4 * e1 * d2 + a4 * b1 * e2 * d3 - d1 * e2 * b3 * a4 - d2 * e3 * b4 * a1 - d3 * e4 * b1 * a2 - d4 * e1 * b2 * a3

'o=z
o = a1 * b2 * c3 * e4 + a2 * b3 * c4 * e1 + a3 * b4 * c1 * e2 + a4 * b1 * c2 * e3 - e1 * c2 * b3 * a4 - e2 * c3 * b4 * a1 - e3 * c4 * b1 * a2 - e4 * c1 * b2 * a3

'wyliczenie zmiennych
If k <> 0 Then
lblWynikw.Caption = l / k
lblWynikx.Caption = m / k
lblWyniky.Caption = n / k
lblWynikz.Caption = o / k
Else
MsgBox "Brak rozwiązań"
End If
End Sub

Pobierz program download
>