Sharp PC-1500 - Page 121

All and more about Sharp PC-1500 at http ://Www.PC-1500.info
PROGRAM
ALLO T MENT C ALC ULA TI ON
PROGRAM NO .
TI T LE P S- D- IS
3
[ Prog r am List )
[
Me mory Co ntents I
10: "A":CLEAR
20: IN PUT
"V ALU E
T
A
Value to be allotted
0 BE ALLOT O? ";
8
No. of Indexes
A
30: INPUT
"NO.
OF
c
!NOEXES?";B
D
40:C=B- l:O!M H(C)
50 : FOR 0= 0TO C
E
60:£=0+1
F Index Total
70: USING
:PA USE
..
IN DEX
.. ; E
G Vnit Allo tted Value
90: INPUT H<OH
H
GOTO
150
90: B= E-J :GOTO 200
I
l5 0: F=H(0)+F
J
16 0:N EXT
0
K
200:6=A/ F
210:USIN6
:L PRIN T
L
"VALUE TO BE A
M
LLOTO
. . . . . . .
"
N
220:USING
:LPRINT
0
A
230:
USING
:LP RINT
p
"INDEX
TTL ... .
Q
"
. . . .
240:US!NG
:LPR! NT
R
F
s
25 0: USING
: LPRJNT
"UNI T
ALLOTO V
T
ALU£" u
260:US!NG
:LPRINT
G
v
270: LF
I w
290: USING
:LP RJNT
..
INDEX/A
x
LLOT M' "
y
290: C=B - 1
300:FOR 0=0TO
c
z
310:E=O+l
H (C)
I nde x
315: !=INT
<G *H(Q)+
.5)
31 6: IF O=C LET
!=A-
J:GQTO 320
31/:J=J+I
320:USJNG
:LPRINT
USING
"!illll ";E ;
USING
"11 11 11 111111.
ll";H<O>;US!NG
"lllllltllllill";
I
330:N
EXT 0
340
:E NO
STAT US
I
'IB3
Do not sale this PDF !!!
- 115 -