aritmeticka sredina

aritmeticka sredina

offline
  • Pridružio: 01 Maj 2007
  • Poruke: 173
  • Gde živiš: Paraćin

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



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • Pridružio: 08 Jan 2010
  • Poruke: 101

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 Smile



offline
  • Pridružio: 01 Maj 2007
  • Poruke: 173
  • Gde živiš: Paraćin

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

offline
  • Pridružio: 30 Dec 2012
  • Poruke: 1

mycity.rs/must-login.png
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 !

Ko je trenutno na forumu
 

Ukupno su 1034 korisnika na forumu :: 39 registrovanih, 8 sakrivenih i 987 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3028 - dana 22 Nov 2019 07:47

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 5.56, A.R.Chafee.Jr., aleksmajstor, amonsrb, Apok, bankulen, darkangel, Drug pukovnik, ekser222, Faki-Valjevo, goxin, ikan, janezek67, Kožedub, Kruger2, kvcali, m4rk0, MaksicZoran, Marko Marković, mgaji21, mikiroy, milekNS, Mlav, mushroom, Novi, Perko91, repac2, specko, Srky Boy, Srna2, Stanlio, stug, VJ, vlvl, voja64, Vojkan Petrovic, vukovi, zixo, zlaya011