Sharp PC-1500 Anwenderhandbuch Seite 121

[ Programmlisting |
18: 'QA": CLEAR
20: INPUT "AUFZUTE
JLENDER WERT?"
3A
38: INPUT ""ANZAHL
DER INDIZES?";
B
48: C=B-1: DIM H'C>)
58:FOR D=8TO C
68: E=D+1
2?8:USING :PAUSE "
INDEX "3E
88: INPUT H¢D):
GOTO 158
9@:B=E-1: GOTO 288
156: F=HCDI+F
166:NEXT D
280: G=A/F
218: USING :LPRINT
"AUF ZUTEILENDE
R"; u
WERT"
228: USING :LPRINT
A
238: USING :LPRINT
"INDEX GESAMT
248: USING *LPRINT
F
25B: USING :LPRINT
"EITNHEITS"; "
ANTE ILWERT
268: USING :LPRINT
G
27O:LF |
2808: USING :LPRINT
INQEX A
NTL."
296: C=B-1
328:FOR D=8TO C
318: E=D+1
315: 1=INT ¢G*HCDD+
i5>
316: 1F D=CLET I=A-
J:GOTO 328
317: Jas+]
328: USING :=LPRINT
USING "##HE"SE;
USING "#HRHHHH.
#"5HCD);USING
"HPHHHHHY 5 I
33BB:NEXT D
348: END
STATUS ]
PROGRAMMNAME: ANTEILSBERECHNUNG
PROGRAMN-NR. 3
PS5—D~—15
[ Speicherinhalt ]
Aufzuteilender Wert
Anzahl der Indizes
Indexsumme
Einheits-Anteilwert
}
=r
BNL le <|c