Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.41 KB | None | 0 0
  1. Module Module1
  2. ''napisati program koji kreira niz od 20 elemenata, i popuni ih random generiranim vrijednostima u intervalu od 10 do 100.
  3. 'Program potom ispise korisniku izbornik pomocu kojeg on moze birati dali zeli ispisati sve elemente niza(1),
  4. 'ispisati koliko elemenata niza je vece od neke unesene vrijednosti(2), ispisati koliko elemenata niza je djeljivo s nekom unesenom
  5. 'vrijednoscu (3) i kraj (4)
  6. Sub Main()
  7. Dim rnd As Random = New Random()
  8. Dim niz As Integer() = New Integer(19) {}
  9. Dim izbor As Integer
  10. Dim brojac As Integer
  11. Dim broj As Integer
  12.  
  13. For i = 0 To 19
  14. niz(i) = rnd.Next(10, 101)
  15. Next
  16.  
  17. While izbor <> 4
  18. Console.WriteLine("pritisnite 1 za ispis elemenata niza, 2 koliko je elemenata vece od unesene vrijednosti,3 koliko je djeljivo, 4 kraj programa")
  19. izbor = Console.ReadLine()
  20.  
  21. Select Case izbor
  22. Case 1
  23. Console.WriteLine("ispisite sve elemente niza")
  24. For i = 0 To 19
  25. Console.WriteLine(niz(i))
  26. Next
  27.  
  28. Case 2
  29. Console.WriteLine("odabrali ste koliko je elemenata vece od unesene vrijednosti")
  30. Console.WriteLine("unesite vrijednost")
  31. broj = Console.ReadLine()
  32. For i = 0 To 19
  33. If broj < niz(i) Then
  34. brojac += 1
  35. End If
  36. Next
  37. Console.WriteLine("{0} elemenata je vece od unesene vrijednosti", brojac)
  38.  
  39. Case 3
  40. Console.WriteLine("izabrali ste koliko je elemenata djeljivo s unesenom vrijednoscu")
  41. Console.WriteLine("unesite vrijednost")
  42. broj = Console.ReadLine()
  43. For i = 0 To 19
  44. If niz(i) Mod broj = 0 Then
  45. brojac += 1
  46. Else
  47.  
  48. End If
  49. Next
  50. Console.WriteLine("{0} je djeljivo s unesenom vrijednoscu", brojac)
  51.  
  52. Case 4
  53. Console.WriteLine("odabrali ste kraj programa")
  54. Exit While
  55. End Select
  56.  
  57. End While
  58. Console.ReadLine()
  59.  
  60.  
  61. End Sub
  62.  
  63. End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement