14 lines
283 B
Text
14 lines
283 B
Text
PROC mean(l:PTR TO LONG)
|
|
DEF m, i, ll
|
|
ll := ListLen(l)
|
|
IF ll = 0 THEN RETURN 0.0
|
|
m := 0.0
|
|
FOR i := 0 TO ll-1 DO m := !m + l[i]
|
|
m := !m / (ll!)
|
|
ENDPROC m
|
|
|
|
PROC main()
|
|
DEF s[20] : STRING
|
|
WriteF('mean \s\n',
|
|
RealF(s,mean([1.0, 2.0, 3.0, 4.0, 5.0]), 2))
|
|
ENDPROC
|