Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Dim A(100) As Integer
- Dim n, brPozitivnih, zbroj, maksimum, minimum, indexMiniPrijeSortiranja As Integer
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- A(n) = CInt(TextBox1.Text) ' "pospremimo" ucitani broj
- zbroj = zbroj + A(n) 'dodajmo ga u sumu dosadasnjih ucitanih brojeva
- If A(n) > 0 Then 'provjerimo je li ucitani broj pozitivan. Ako jest, povecajmo brojac
- brPozitivnih = brPozitivnih + 1
- End If
- 'za rijesiti 4. zadatak nam treba nam minimalni element
- '(trebamo pamtiti na kojem je mjestu bio prije sortiranja)
- 'tako da ćemo i to pronaći i zapamtiti u globalnoj varijabli.
- If n = 0 Then 'ako smo tek upisali prvi broj (n=0), tada je taj broj i najveci i najmanji do sad
- maksimum = A(n)
- minimum = A(n)
- indexMiniPrijeSortiranja = n + 1
- ElseIf A(n) > maksimum Then 'u ostalim slucajevima provjerimo je li to najveci/najmanji broj do sada
- maksimum = A(n)
- ElseIf A(n) < minimum Then
- minimum = A(n)
- indexMiniPrijeSortiranja = n + 1 'za najmanji broj trebamo pamtiti na kojem se mjestu nalazi.
- 'Nalazi se u n-toj "kucici", no kako pocinjemo brojati od nule, treba ispisati n+1 (ako je n=0,
- 'to je prvi ucitani broj u nizu, ako je n=5, to je 6. broj u nizu, itd.)
- End If
- 'ispisimo brojac pozitivnih brojeva, sumu dosadasnjih elemenata i najveci do sada upisani broj
- TextBox2.Text = brPozitivnih
- TextBox3.Text = zbroj
- TextBox4.Text = maksimum
- 'dodatno: dodajmo ucitani broj i na ListBox (ne trazi se u zadatku)
- ListBox1.Items.Add(A(n))
- 'n nam govori koliko smo brojeva do sada upisali (i koja je sljedeća "kućica" koju treba popuniti)
- 'pa treba zabiljeziti da smo upisali jos jedan broj
- n = n + 1
- '(dodatno, tj. ne trazi se u zadatku)
- TextBox1.Text = ""
- TextBox1.Focus()
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim i, j, pom As Integer
- 'jedan moguci nacin rjesavanja: sortirajmo sve ucitane brojeve od manjeg prema vecem. Potom prodjimo kroz sortirani
- 'niz i ispisimo samo pozitivne brojeve.
- 'Bubble sort:
- For i = 0 To n - 2
- For j = 0 To n - 2 - i
- If A(j) > A(j + 1) Then
- pom = A(j)
- A(j) = A(j + 1)
- A(j + 1) = pom
- End If
- Next
- Next
- 'prodjimo kroz (sortirani) niz i ispisimo pozitivne brojeve
- For i = 0 To n - 1
- If A(i) > 0 Then
- ListBox2.Items.Add(A(i))
- End If
- Next
- 'ispisimo minimalni element i njegov indeks (tj. mjesto na kojem se nalazio) prije sortiranja
- TextBox5.Text = minimum 'ili A(0) jer je na tom mjestu sada najmanji
- TextBox6.Text = indexMiniPrijeSortiranja
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement