Averages/Median: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 430:
Sorted: -8.4 1 1 1.2 3 4 4 7.2
Median: 2.100000
=={{header|BaCon}}==
<lang freebasic>DECLARE a[] = { 4.1, 5.6, 7.2, 1.7, 9.3, 4.4, 3.2 } TYPE FLOATING
DECLARE b[] = { 4.1, 7.2, 1.7, 9.3, 4.4, 3.2 } TYPE FLOATING
DEF FN Dim(x) = SIZEOF(x) / SIZEOF(double)
DEF FN Median(x) = IIF(ODD(Dim(x)), x[(Dim(x)-1)/2], (x[Dim(x)/2-1]+x[Dim(x)/2])/2 )
SORT a
PRINT "Median of a: ", Median(a)
SORT b
PRINT "Median of b: ", Median(b)</lang>
{{out}}
<pre>
Median of a: 4.4
Median of b: 4.25
</pre>
=={{header|BASIC}}==
| |||