linearne jednacine i matrice...

Code:


    For i = 1 To n
        suma = 0
        For j = 1 To i - 1
            suma = suma + x(j) * a(i, j)
        Next j
        x(i) = (b(i) - suma) / a(i, i)
    Next i

Code:


    Dim a() As Double
    Dim b() As Double
    Dim x() As Double
    Dim n As Integer
    
    ' n = ?  ovde unosis dimenzije matrice
    
    ReDim a(1 To n, 1 To n) As Double
    ReDim b(1 To n) As Double
    ReDim x(1 To n) As Double

    ' ovde uneses elemente matrice i kolonu b

    Dim i As Integer
    Dim j As Integer
    Dim suma As Double

Code:

    
Dim a() As Double
Dim b() As Double
Dim x() As Double
Dim n As Integer
Dim i As Integer
Dim j As Integer
Dim suma As Double

    
Private Sub Command1_Click()
    Call Unesi_Velicinu_Matrice
    Call Ucitavanje_Matrice
    Call Ucitavanje_Niza
    Call Resi
    Call Ispisi
End Sub



Sub Unesi_Velicinu_Matrice()
    n = Val(txtn.text)      ' i ovo bi moglo preko InputBox-a
    
    ReDim a(1 To n, 1 To n) As Double
    ReDim b(1 To n) As Double
    ReDim x(1 To n) As Double
End Sub
 

Sub Ucitavanje_Matrice()
    For i = 1 To n
        For j = 1 To n
            a(i, j) = Val(InputBox(" Unesi: A(" & i & "," & j & ")"))
        Next j
    Next i
End Sub

Sub Ucitavanje_Niza()
    For i = 1 To n
        b(i) = Val(InputBox("Unesi: B(" & i & ")"))
    Next i
End Sub

Sub Resi()
    For i = 1 To n
        suma = 0
        For j = 1 To i - 1
            suma = suma + x(j) * a(i, j)
        Next j
        x(i) = (b(i) - suma) / a(i, i)
    Next i
End Sub

Sub Ispisi()
    For i = 1 To n
        List1.AddItem "X" & i & "= " & x(i)
    Next i
End Sub

Code:

    Dim Niz(100) as Double
    Dim Max as Double
    Dim Maksimalan as Integer
    
    Max=Niz(1)
    Maksimalan=1
    For i=2 to n
        If Max<Niz(i) Then Max=Niz(i):Maksimalan=i
    Next i