43 lines
863 B
Plaintext
43 lines
863 B
Plaintext
# Project : Averages/Mode
|
|
|
|
a = [1, 3, 6, 6, 6, 6, 7, 7, 12, 12, 17]
|
|
b = [1, 2, 4, 4, 1]
|
|
amodes = list(12)
|
|
see "mode(s) of a() = " + nl
|
|
for i1 = 1 to modes(a,amodes)
|
|
see "" + amodes[i1] + " "
|
|
next
|
|
see nl
|
|
see "mode(s) of b() = " + nl
|
|
for i1 = 1 to modes(b,amodes)
|
|
see "" + amodes [i1] + " "
|
|
next
|
|
see nl
|
|
|
|
func modes(a,amodes)
|
|
max = 0
|
|
n = len(a)
|
|
if n = 0
|
|
amodes[1] = a[1]
|
|
return 1
|
|
ok
|
|
c = list(n)
|
|
for i = 1 to n
|
|
for j = i+1 to n
|
|
if a[i] = a[j]
|
|
c[i] = c[i] + 1
|
|
ok
|
|
next
|
|
if c[i] > max
|
|
max = c[i]
|
|
ok
|
|
next
|
|
j = 0
|
|
for i = 1 to n
|
|
if c[i] = max
|
|
j = j + 1
|
|
amodes[j] = a[i]
|
|
ok
|
|
next
|
|
return j
|