Sharp PC-1500 - Page 62

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
MODIFIED
MOVING AVERAGE
PROGRAM NO.
3
TITLE
PS-B -6
[ Program Li st I ( Memory Contents )
10: "A" : CLEAR
:
INPUT
"H=
" ;A
A
n
20:E=0:0!M
X <A·- J )
B
n- 1
30: IF
A< >INT
<A*0
c .J
.5>*2GOTO 130
<10 : FQR C=0 TO A-1
D x
50: GOSUB 500
E I:x
60:NEXT c
/0:FOR
C= 0TO
A -l
F
80: INPUT
" X.::" ; O:
G
GOTO 90
H
BS: ENO
90:E=E+O:LPRINT
..
I
** X ="; 0
J
95 : LPRINT
11
M. V. ="
K
;<E-.S*<D+X<-C>
)).tA L
J00: E=E- X<C>:X<C> =
M
I')
I I 0: N EX T c
N
J 20:GOTO 70
0
J30: FOR
C=0TO A- 2
p
!'10:GO SUB
500
J50:NEXT c
a
1 60:8=A- l: IN P UT
"x
R
=" ;X<B>
s
170: E=E+X<B> :
LPRJ NT
" ** X= "
T
;X <B>
u
180:LPRJNT
' 'M.U. ="
;E.tA
v
190:FOR C=0TO
B
w
200: INPUT
1
' X=
11
;0:
x
GOTO 210
205: ENO
y
2J0: E=£- X<C>+D:X(C
z
>=O
220:LPR!NT
'" **
X="
X( n- 1)
Data Table
;o
225: LPR JNT
"M. U . .="
;E.1A: N EX T c
230:GOTO 190
500:J N PUT
"X= '' ;D
505 :LPR1NT
" **
X= n
;O
510 : E=E + O:X<C> =O:
RETURN
STATUS
l
'158
Do not sale this PDF !!! - 56 -