aritmeticka sredina

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Zdravo svima.Imam problem sa resavanjem sledeceg zadatka:
Napisati programsku proceduru koja za dati celobrojni,nenegativni niz X ok k elemenata odredjuje aritmeticku sredinu svih razlicitih elemenata niza X
(na primer: X:3,5,3,6,4,6,3,4,3,4 k=10, aritmsredina=(3+5+6+4)/4=4,5)

Ja sam radio zadatak za izracunavanje aritmeticke sredine ali mi bas treba da izracunam artmeticku sredinu svih RAZLICITIH elemenata niza.
Imam jedan primer:


Public Class Form1

Private Sub Unesi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Unesi.Click
Dim i As Byte
Dim poruka As String
Dim naslov As String
n = Val(TextBox1.Text)
If n > 0 And n <= 100 Then
poruka = "Unesite sledeći element niza:"
For i = 1 To n
naslov = Str(i) & ".element niza"
X(i) = Val(InputBox(poruka, naslov))
Next i
Unesi.Visible = False
Sumiraj.Visible = True
Else
TextBox1.Text = ""
TextBox1.Focus()
End If
End Sub

Private Sub Sumiraj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sumiraj.Click
Dim s As Single
Dim 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 niza je: " & Str(s)
Label3.Text = "Aritmetička sredina niza je: " & Str(a)
Sumiraj.Visible = False
End Sub


End Class

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

nisam nikad radio u visual studiju, al sam malo pricao sa drugom jednim koji mi je rekao da ima funkcija za brojanje elemenata niza koja se zove ubound.
inace, imao sam na umu nesto ovako:

for i=0 to ubound(niz)    if not u_nizu(novi_niz, niz( i ) then       novi_niz() = niz( i )  '// nisam siguran kako ovo da zapisem, ali poenta je da se u niz novi_niz doda clan niz( i )    end if next i funkcija u_nizu (niz, element):    for i=0 to ubound(niz)       if niz( i ) = element then          return 1       end if    next i       return 0 end function

znam da nije ceo kod, ti to malo sredi, al ono, nadam se da si skapirao glavnu srz

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo uspeo sam da ga uradim

Public Sub sredina(ByRef x() As Integer, ByVal k As Byte, ByRef sr As Single)
Dim i, j, l, s As Byte
Dim y(), z As Integer
ReDim y(k)
l = 0
z = 0
For i = 1 To k
s = 0
For j = 1 To l
If x(i) = y(j) Then
s = s + 1
End If
Next j
If s = 0 Then
l = l + 1
y(l) = x(i)
z = z + x(i)
End If
Next i
sr = z / l
End Sub

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

[Link mogu videti samo ulogovani korisnici]
Pozdrav, zamolio bih ako neko zna kompletan programski kod u visaul basicu 2010 za računanje aritmetičke sredine

Bio bih mnogo zahvalan obzirom da nemogu da riješim ovaj problem.
Hvala !