Sharp PC-1500 Applications Manual page 121
Hide thumbs
Also See for PC-1500:
- Technical reference manual (182 pages) ,
- Instruction manual (169 pages) ,
- Service manual (37 pages)
Advertisement
All
and more about Sharp PC-1500
at
http://Www.PC-1500.info
PROGRAM
ALLOTMENT
CALCULATION
PROGRAM
NO.
TI T LE
PS-
D-
IS
3
[ Program List )
[ Memory Contents
I
10:
"A":CLEAR
20:
INPUT
"VALU
E
T
A
Value to be allotted
0
BE ALLOTO?";
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
..
I
N
DEX
..
;
E
G
Vnit
Allo
tted
Value
90: INPUT H<OH
H
GOTO
150
90
:
B=E-J
:GOTO
200
I
l50:
F=H(0)+F
J
160:NEXT
0
K
200:6=A/
F
210:USIN6
:
LPRINT
L
"VALUE
TO BE
A
M
LLOTO
.
. .
.
.
. .
"
N
220:USING :LPRINT
0
A
230
:
USING
:LPRINT
p
"INDEX
TTL ...
.
Q
"
.
.
.
.
240:US!NG
:LPR!
NT
R
F
s
250:
USING
:
LPRJNT
"UNI
T
ALLOTO V
T
ALU£"
u
260:US!NG :LPRINT
G
v
270
:
LF
I
w
290
:
USING :LPRJNT
..
INDEX/A
x
LLOT
M'"
y
290:
C=B-
1
300:FOR 0=0TO
c
z
310:E=O+l
H
(C)
Index
315:
!=INT <G*H(Q)+
.5)
31
6: I
F
O=CLET
!=A-
J:GQTO 320
31/:J=J+I
320:USJNG :LPRINT
USING
"!illll
";E
;
USING
"11 1111
111111.
ll";H<O>;US!NG
"lllllltllllill";
I
330:NEXT
0
340:ENO
STATU
S
I
'IB3
Do not sale
this
PDF !!!
-
115-
Advertisement
