Anonymous user
Averages/Arithmetic mean: Difference between revisions
→{{header|BASIC}}
(added befunge; changed basic's works with tag to bypass redirect) |
|||
Line 183:
PRINT 0
END IF</lang>
=={{header|BBC BASIC}}==
{{works with|BBC BASIC for Windows}}
To calculate the mean of an array:
<lang BBC BASIC>
REM specific functions for the array/vector types
REM Byte Array
DEF FN_Mean_Arithmetic&(n&())
= SUM(n&()) / (DIM(n&(),1)+1)
REM Integer Array
DEF FN_Mean_Arithmetic%(n%())
= SUM(n%()) / (DIM(n%(),1)+1)
REM Float 40 array
DEF FN_Mean_Arithmetic(n())
= SUM(n()) / (DIM(n(),1)+1)
REM A String array
DEF FN_Mean_Arithmetic$(n$())
LOCAL I%, S%, sum, Q%
S% = DIM(n$(),1)
FOR I% = 0 TO S%
Q% = TRUE
ON ERROR LOCAL Q% = FALSE
IF Q% sum += EVAL(n$(I%))
NEXT
= sum / (S%+1)
REM Float 64 array
DEF FN_Mean_Arithmetic#(n#())
= SUM(n#()) / (DIM(n#(),1)+1)
</lang>
[[User:MichaelHutton|Michael Hutton]] 14:02, 29 May 2011 (UTC)
=={{header|Befunge}}==
| |||