Matrice i nizovi

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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? dali valja ovo nesto sto sam ja radio ?





uradio sam kod ovako:

deklarisanje
Dim m As Integer, n As Integer, i As Integer, j As Integer, A(1 To 10, 1 To 10) As Single, B(1 To 10) As Single, X(1 To 10) As Integer, suma As Double

ucitavanje matrice a

m = Val(txtm)
n = Val(txtn)
For i = 1 To m
For j = 1 To n
A(i, j) = InputBox(" Unesi: A(" & i & "," & j & ")")
Next j
Next i

End Sub

ucitavanje niza b

n = Val(txtn)
For i = 1 To n
B(i) = InputBox("Unesi: B(" & i & ")")
Next i

End Sub

svodjenje na trougaonu matricu

m = Val(txtm)
n = Val(txtn)
For i = 1 To m
For j = 1 To n
A(i, j) = InputBox(" Unesi: A(" & i & "," & j & ")")
Next j
Next i
sad jos samo da namestim da mi stampa X1,X2,X3..... ima li neko ideju kako to da uradim ? i dali ovo svodjene na trougaoni oblik valja nesto ?