[ darackv @ 24.12.2009. 19:00 ] @
Dobili smo za domaci tj za vezbanje neki zadatak da uradimo u basicu 6.0 radili smo programe onako klasice gluposti naci obim i povrsinu i te fore.....a sad smo dobili matricu? malo deluje zeznuto i nemam pojma odakle ni da pocnem tako da je svaka pomoc dobrodosla

[ K4R10 @ 24.12.2009. 20:53 ] @
Kreni od pocetka, tj od matematike.


X1 = B1/A11

X2 = (B2-A21*X1)/A22

X3 = (B3-A31*X1-A32*X2)/A33

...

Xn = (Bn-An1*X1-An2*X2 -An3*X3 - ... )/Ann



Evo na brzinu, ovako nekako:

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



pre toga matricu definises:

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



ostalo je tvoje, ipak je tvoj domaci

[ darackv @ 24.12.2009. 22:02 ] @
ja sam pocetnik i da sam znao da ga uradim nebih trazio pomoc :D hvala puno ali imam pitanja
na sta si mislio kada si rekao :
Kreni od pocetka, tj od matematike? jel to ona for petlja ???


X1 = B1/A1
X2 = (B2-A21*X1)/A22

X3 = (B3-A31*X1-A32*X2)/A33

...

Xn = (Bn-An1*X1-An2*X2 -An3*X3 - ... )/Ann

e da kao i sta znaci ReDim?

a da neznas slucajno kako se radi algoritam plz mnoooooooogo bi mi pomoglo da uradim program....
e i sta ce nam suma kad zadatak kaze "zadatak resiti definisanjem matrice A kao dvodimenzionalnog niza"???
[ darackv @ 12.01.2010. 17:08 ] @
Uradio sam hvala puno na pomoci :D
e da jos samo ovo kako je najlakse naci maksimalni clan u nizu od n elemenata ?

[Ovu poruku je menjao darackv dana 12.01.2010. u 23:07 GMT+1]
[ K4R10 @ 12.01.2010. 22:13 ] @
m ne treba posto je u pitanju kvadratna matrica [ n x n ], pa tako ti ne treba ni "txtm"

Dodaj na formu jedan "CommandButton" i jedan "ListBox".

Na brzaka izmenjen kod, trebalo bi da radi.

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



max elemenat

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

[ darackv @ 12.01.2010. 23:26 ] @
hvala puno mada sam ja slicno tako zavrsio zadatak i radi :) e da li bi moglo nekako da se vrsi ucitavanje niza (ili matrice) pozivanjem podprograma (modula) ?

[Ovu poruku je menjao darackv dana 14.01.2010. u 14:32 GMT+1]
[ darackv @ 14.01.2010. 16:11 ] @
e da i kako bih izgledao algoritam za ovaj program sa nizovima ?
[ darackv @ 27.01.2010. 11:17 ] @
uradjeno je sve moze lock :D