Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,23 @@
|
|||
DIM a%(10)
|
||||
FOR i%=0 TO 10
|
||||
a%(i%)=i%*2
|
||||
PRINT "element ";i%;" is ";a%(i%)
|
||||
NEXT i%
|
||||
PRINT "mean is ";@mean(a%)
|
||||
'
|
||||
FUNCTION mean(a%)
|
||||
LOCAL i%,size%,sum
|
||||
' find size of array,
|
||||
size%=DIM?(a%())
|
||||
' return 0 for empty arrays
|
||||
IF size%<=0
|
||||
RETURN 0
|
||||
ENDIF
|
||||
' find sum of all elements
|
||||
sum=0
|
||||
FOR i%=0 TO size%-1
|
||||
sum=sum+a%(i%)
|
||||
NEXT i%
|
||||
' mean is sum over size
|
||||
RETURN sum/size%
|
||||
ENDFUNC
|
||||
Loading…
Add table
Add a link
Reference in a new issue