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 1070 korisnika na forumu :: 97 registrovanih, 8 sakrivenih i 965 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 10x10.9, 357magnum, A.R.Chafee.Jr., A3C, AleksandarV, amadeus, Apok, Aristotle2002, asdfjklc, avijacija, Betta, blankspace, Boba, Bobrock1, bojan1234, bokicacar, bounty hunters, Bozjidar87, Bubimir, crazydkure, cuculo, cyprus, DejvTroter, Djevrek od kartona, drimer, dukajov, Dusko_Dugousko, DuškoMraz, Dzambas, ElvisP, gale48, galerija, Georgius, Glauber, igorkozar83, ikan, Incognito, indja, InzenjerBL, Inženjer Agašin, istokzapad, IvanM1984, jalos, janbo, Jeremiah, jon istvan, Još malo pa deda, Kajzer Soze, KimiMR, Krusarac, Kubovac, Lance Guest, Lazarus, lima, Litostroton, ljubsz, luka35, M74AB3, mackenzie, Mane88, Marko00, Marky, Mercury, mgolub, Mig 29, mrzimregistraciju, Naturelo, nenad81, neutrino, opt1, panonski mornar, Patent, Pero Petković, Plavi1, PlayerOne, PMsnow, Salence74, Sevetar, siwoti, Srpska zauvjek, sspp, suton, tecataki, Tribal, UAV operator, v82, Vasilije74, vladas87, vlado_pg, Zanzibar, zeka013, zombicar153, Zoran1959, zorzpapadubi, |_MeD_|, Žoržo, Đak 22