Manipulacija sa nizovima

Manipulacija sa nizovima

offline
  • Pridružio: 11 Apr 2011
  • Poruke: 76
  • 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: 68

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: 76
  • Gde živiš: Bela Crkva

Hvala, razumeo sam Smile


Potreban je samo minut da se registrujete - da biste učestvovali u diskusiji:
Izaberite vaše korisničko ime [username] :
Vaša email adresa je [email] : Email adresa mora biti tačna!
Ukucajte željenu šifru [password] :
Ukucajte šifru ponovo [password again] :
Jezik [language] :




Ili se jednostavno uloguj preko Facebook-a:
Ko je trenutno na forumu
 

Ukupno su 349 korisnika na forumu :: 22 registrovanih, 1 sakriven i 326 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 1383 - dana 19 Okt 2014 22:26

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: BaneAK47, bodul, Boris90, Chuck Norris, Cufo, Djordje Todorovic, edman, Gama, Kos93, ljubasav, madza, manda87, mastodont, milanpesic222, milenko crazy north, Recce, sbartanscalisthenics, v0idmp3, vasa.93, Vitez2, vrbenski, Žan Klod vam dam
Siguran hosting