Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 359: | Line 359: | ||
END IF</lang> |
END IF</lang> |
||
=={{header|BBC BASIC}}== |
==={{header|BBC BASIC}}=== |
||
{{works with|BBC BASIC for Windows}} |
{{works with|BBC BASIC for Windows}} |
||
| Line 394: | Line 394: | ||
</lang> |
</lang> |
||
[[User:MichaelHutton|Michael Hutton]] 14:02, 29 May 2011 (UTC) |
[[User:MichaelHutton|Michael Hutton]] 14:02, 29 May 2011 (UTC) |
||
==={{header|IS-BASIC}}=== |
|||
<lang IS-BASIC>100 NUMERIC ARR(3 TO 8) |
|||
110 LET ARR(3)=3:LET ARR(4)=1:LET ARR(5)=4:LET ARR(6)=1:LET ARR(7)=5:LET ARR(8)=9 |
|||
120 PRINT AM(ARR) |
|||
130 DEF AM(REF A) |
|||
140 LET T=0 |
|||
150 FOR I=LBOUND(A) TO UBOUND(A) |
|||
160 LET T=T+A(I) |
|||
170 NEXT |
|||
180 LET AM=T/SIZE(A) |
|||
190 END DEF</lang> |
|||
=={{header|bc}}== |
=={{header|bc}}== |
||