Funkcia Median - ako na to? – Visual Basic – Fórum – Programujte.com

Dobry den, v jednom mojom programe potrebuje matematicku funkciu Median, no neviem ju najst. Pouzivam MS Visual Basic 2005. Median by mal vratit strednu hodnotu cisel alebo take nieco. Dakujem za akekolvek tipy.

Pokud znáš funkci medián neměl by pro tebe být problém si ji napsat ručně medián je číslo, které osattní členy rozděluje na polovic. Pokud tedy budu mít členy 1,2,3,4,5 bude medián číslo 3 pokud budu mít napíklad 1,6,12,128,600 pak mediánem bude 12.

Mám li být upřímný jak je to se sudým počtem čísel toš to si nemůžu přesně vybavit a nerad bych tu šířil bludy ale měl by to být průměr ze dvou čísel uprostřed. tedy pokud bysme měli 1,6,12,128,600,1006 pak 12 + 128 / 2 = 70

Doufám teda že sem si to s něčím nespletl. Pokud znáš toto a nějaké základy VB neměl by pro tebe být problém to naprogramovat.

Dakujem. Zistil som to trocha skor, nez ste stihli odpovedat. Presne je to takto:

  Function Median(ByVal cisla As ArrayList) As Double

        cisla.Sort()

        If cisla.Count Mod 2 = 0 Then 'parne cisla

            Median = (cisla(cisla.Count / 2 - 1) + cisla(cisla.Count / 2)) / 2

        Else 'neparne

            Median = cisla(Int(cisla.Count / 2))

        End If

    End Function