Sharp PC-1500 Anwenderhandbuch Seite 62

MODIFIZIERTER
PROGRAMN-NR. _ | .
P5—B-—6 . 3
[ Programmiisting ]
19: "A":CLEAR :
INPUT "N= "3A
2@:£=@:DIMN X¢CA-1)
3@: IF ACDINT (AB
-3I*2G0TO 138
48:FOR C=8T0 A-1
5@:GOSUB 582
68:NEXT C
76:FOR C=8T0 A-1
8Q: INPUT ""X="3D:
GOTO 328
85: END
9@:E=E+D:LPRINT "
KK R="
95:LPRINT "NTW.="
3 CE-. S*CD+X(C)D
7A
149: E=E-XC CII KCC=
p
11B: NEXT C
128: GOTO 7B
138:FOR C=@TO A-2
14@:GOSUB 582
1350: NEXT Cc
16@:B=A-1: INPUT "X
s"3X¢B).
170: E=E+X¢B):
LPRINT "kk X="
3%€B)
18@:LPRINT "MTW.="
3E/"A
19@:FOR C=8TO B
208: INPUT "X="350:
GOTO 218
205: END
219: E=E-KC C+D: XCC
=D
22@:LPRINT "xk X="
$
225:LPRINT "MIW.s"
3;E/A:NEXT C
238:GOTO 1398
398: INPUT "X="3D
5385:LPRINT "** K="
3D
i
51@:E=E+0: X¢C)=D:
RETURN
STATUS 1
[ Speicherinhalt ]
ee
ele i
PEP ee eae wll
~
ia
Beg
S
x (A-1}| Datentabelle