Manipulacija sa nizovima

Manipulacija sa nizovima

offline
  • Pridružio: 11 Apr 2011
  • Poruke: 78
  • Gde živiš: Bela Crkva

Ljudi.......ako moze mala pomoc......naime zadatak je tipa ucitati niz od recimo 20 clanova pa odrediti minimalni clan maksimalni clan, sortirati niz, arihmeticku sredinu......to uglavnom znam al mene recimo zanima svaki 4 clan pocev od prvog.........evo malo koda da Vidite sta sam radio......
ucitavanje nia
Dim i As Byte
n = Val(TextBox1.Text)
If n >= 0 And n <= 100 Then
For i = 1 To n
X(i) = Val(InputBox("unesi sl. element niza X", "X(" + Str(i) + ")"))
Next i
Else
Label2.Text = " n mora biti imedju 1 i 100"
TextBox1.Text = "" : TextBox1.Focus()
End If
End Sub
suma i arihmeticka sredina

Dim s, a As Single
Dim i As Byte
s = 0
For i = 1 To n
s = s + X(i)
Next i
a = s / n
Label2.Text = "suma je" + Str(s)
Label3.Text = "sredina je" + Str(a)
End Sub



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 19 Jun 2009
  • Poruke: 70

Evo ja sam ti odradio... Nisam radio nesto ovog tipa u visual basic-u, ali zato jesam u c++. Nisam bas siguran da si ovako hteo, ali tu imas kod tako da mozes sad da zakljucis kako sam uradio i da pomocu toga uradis svoj program.

Download



offline
  • Pridružio: 11 Apr 2011
  • Poruke: 78
  • Gde živiš: Bela Crkva

Hvala, razumeo sam Smile

Ko je trenutno na forumu
 

Ukupno su 1077 korisnika na forumu :: 35 registrovanih, 6 sakrivenih i 1036 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: 357magnum, antonije64, Apok, Areal84, Brana01, Bubili, darkangel, dragoljub11987, dushan, janbo, Karla, Krvava Devetka, Kubovac, kybonacci, ljuba, manda87, marsovac 2, mercedesamg, mikrimaus, Nemanja.M, oldtimer, opt1, ostoja, ruma, sap, Singidunumac, Sir Budimir, Srle993, taz1cl, Trpe Grozni, vathra, VJ, Vlada78, vladaa012, VP6919