Advertisement
Guest User

neki kol

a guest
Nov 19th, 2018
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Public Class Form1
  2.  
  3.     Dim A(100) As Integer
  4.     Dim n, brPozitivnih, zbroj, maksimum, minimum, indexMiniPrijeSortiranja As Integer
  5.  
  6.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  7.         A(n) = CInt(TextBox1.Text) ' "pospremimo" ucitani broj
  8.        zbroj = zbroj + A(n) 'dodajmo ga u sumu dosadasnjih ucitanih brojeva
  9.  
  10.         If A(n) > 0 Then 'provjerimo je li ucitani broj pozitivan. Ako jest, povecajmo brojac
  11.            brPozitivnih = brPozitivnih + 1
  12.         End If
  13.  
  14.         'za rijesiti 4. zadatak nam treba nam minimalni element
  15.        '(trebamo pamtiti na kojem je mjestu bio prije sortiranja)
  16.        'tako da ćemo i to pronaći i zapamtiti u globalnoj varijabli.
  17.  
  18.         If n = 0 Then 'ako smo tek upisali prvi broj (n=0), tada je taj broj i najveci i najmanji do sad
  19.            maksimum = A(n)
  20.             minimum = A(n)
  21.             indexMiniPrijeSortiranja = n + 1
  22.         ElseIf A(n) > maksimum Then 'u ostalim slucajevima provjerimo je li to najveci/najmanji broj do sada
  23.            maksimum = A(n)
  24.         ElseIf A(n) < minimum Then
  25.             minimum = A(n)
  26.             indexMiniPrijeSortiranja = n + 1 'za najmanji broj trebamo pamtiti na kojem se mjestu nalazi.
  27.            'Nalazi se u n-toj "kucici", no kako pocinjemo brojati od nule, treba ispisati n+1 (ako je n=0,
  28.            'to je prvi ucitani broj u nizu, ako je n=5, to je 6. broj u nizu, itd.)
  29.  
  30.         End If
  31.  
  32.         'ispisimo brojac pozitivnih brojeva, sumu dosadasnjih elemenata i najveci do sada upisani broj
  33.        TextBox2.Text = brPozitivnih
  34.         TextBox3.Text = zbroj
  35.         TextBox4.Text = maksimum
  36.  
  37.  
  38.         'dodatno: dodajmo ucitani broj i na ListBox (ne trazi se u zadatku)
  39.        ListBox1.Items.Add(A(n))
  40.  
  41.         'n nam govori koliko smo brojeva do sada upisali (i koja je sljedeća "kućica" koju treba popuniti)
  42.        'pa treba zabiljeziti da smo upisali jos jedan broj
  43.        n = n + 1
  44.  
  45.         '(dodatno, tj. ne trazi se u zadatku)
  46.        TextBox1.Text = ""
  47.         TextBox1.Focus()
  48.     End Sub
  49.  
  50.  
  51.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  52.         Dim i, j, pom As Integer
  53.  
  54.         'jedan moguci nacin rjesavanja: sortirajmo sve ucitane brojeve od manjeg prema vecem. Potom prodjimo kroz sortirani
  55.        'niz i ispisimo samo pozitivne brojeve.
  56.        'Bubble sort:
  57.        For i = 0 To n - 2
  58.             For j = 0 To n - 2 - i
  59.                 If A(j) > A(j + 1) Then
  60.                     pom = A(j)
  61.                     A(j) = A(j + 1)
  62.                     A(j + 1) = pom
  63.                 End If
  64.             Next
  65.         Next
  66.  
  67.  
  68.         'prodjimo kroz (sortirani) niz i ispisimo pozitivne brojeve
  69.        For i = 0 To n - 1
  70.             If A(i) > 0 Then
  71.                 ListBox2.Items.Add(A(i))
  72.             End If
  73.         Next
  74.  
  75.         'ispisimo minimalni element i njegov indeks (tj. mjesto na kojem se nalazio) prije sortiranja
  76.        TextBox5.Text = minimum 'ili A(0) jer je na tom mjestu sada najmanji  
  77.        TextBox6.Text = indexMiniPrijeSortiranja
  78.     End Sub
  79. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement