Publicité
• LISTE DU PROGRAMME
18 : R E M * * * * * * * * * * * * * * *
20:REM MODIFIED MOVING
25:REM
AVERAGE
30:REM ***************
40:
M
A": CLEAR : CLS :
NAIT 0
50:N=l:E=0:C=l
60:INPUT
g
NUMBER 0F ITE
70:DIM
80: IF A<> INT (A/2)*2
THEN 220
90: FOR 1=0 TO A-l
100:GOSUB 430
110:HEXT I
120: FOR 1=8 TO A-l
130:PRINT
M
X(
V
+ STRf (N)
+")=";
140:CURSOR 5+ LEN <
STRf < N » » C : INPUT D
: GOTO 160
150:LPRINT : LPRINT :
CLS : END
160:E=E+D
170: LPRINT
w
* X(*+ STR$
<N>+
V
>=
V
;D
130: LPRINT " Avera9e=
v
ï(
E-.5*(D+X(I)»/R
190:E=E-X(I):X<I)=D:N=N+
l:C=C+l: IF C=4 LET
C=3
200:NEXT I
210:GOTO 120
220:FOR 1=0 TO A-2
230:GOSUB 430
240:NEXT I
250:E=A-1
260:PRINT "X(
v
-t- STR$ (N)
270:CURSOR 5+ LEN (
STRf < N » » C
230: INPUT X(B>
290: LPRINT "* X(
v
-t-
380:LPRINT "
E/A
310:E=E+X';B):H=N+l:C=C-*-l
: IF C=4 LET C=3
320:FOR 1=0 TO B
330:PRINT
V
X("+ STRf (N)
+ " ) = "
340:CURSOR 5+ LEN <
STRf < N » i C
350:INPUT D: GOTO 370
360:LPRINT : LPRINT :
CLS : END
370:E=E-X(I)+D:X(I)=D
380:LPRINT "* X<'-'+ STRf
(N)+")=
v
;D
390: LPRINT ' • •
Hvero.îe=
v
;
E/A
400:N=N+l:C=i>l: IF C=4
LET C=3
410:NEXT I
420:GOTO 320
430:PRINT "X(
v
+ STRf (N)
+ " ) = " î
440:CURSOR 5-»- LEN (
STRf < N » i C
450:INPUT D
460: LPRINT '•'* X(
M
+ STRf
(N:' +
M
>='-';D
470:E=E+D:X(I)=D:N=N-H:C
=C+l: IF C=4 THEN
LET C=3
480:RETURN
813 octets
265
Publicité
