MyCity » Visual Studio -> Visual Basic » Matrice i nizovi

Matrice i nizovi

Napisano na dan: 12.1.2010

Matrice i nizovi
Sledeća strana Pagination

Idi na vrh

Poslao: 12 Jan 2010 18:26
Idi na vrh
offline
  • Pridružio: 28 Apr 2007
  • Poruke: 45
  • Gde živiš: Kraljevo

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 ?



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Visual Studio -> Visual Basic » Matrice i nizovi

Ko je trenutno na forumu
 

Ukupno su 1091 korisnika na forumu :: 94 registrovanih, 9 sakrivenih i 988 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, A.R.Chafee.Jr., Ailton, Aleksa 3215, Aleksandar Tomić, Alexa77, alternator, Avalon015, Avangard, baltazar01, bbogdan, bestguarder, Bobrock1, Bojan198527, bojan581, bojan_t, bojank, Boris BM, Boris90, bpvl, cavatina, ccoogg123, Centauro, Cicumile, cojapop, Crazzer, cyprus, darkkran, darkojbn, Dovla 1980, dozorni, dragan_mig31, draganca, draganl, dule10savic, Feller, gacesam, gaga23, Gall, GrobarPovratak, hellenic, ILGromovnik, ivan1973, Jakonjveliki, jalos, janbo, JankoS, JK, jodzula, Kobrim, Kubovac, kybonacci, lacko, Lester Freamon, Lieutenant, LjutaGuja, M74AB3, mercedesamg, Mercury, miki kv, Milan A. Nikolic, Milometer, moldway, Mskok, nelezele, nevjerna beba, NNPD, nobutado, orah, pisac12, rebro1974, RileHerc, sap, sarma, sasa87, sistem22, SpeedyGonzales, ss10, stokssone, strelac07, synergia, The Boss, tomigun, Tumansky, vathra, Velizar Laro, Velički, vensla, vjetar, vukovi, vuksa72, Zrcalo, ZZZ, 800077