Sharp CE-125 - Page 66

1 49
A
Number of i n s t a llm ent s
B
I n stal l men t si ze
c
Inter e s t r a t e
0
Loan siz e li m i t
E
F
G
H
I
J
.J
K .J
L
M
N
0
p
Q
R
s
T
u
v
w
x
v
z
MEMORY CONTENTS
478
430 : L P RIHT " I N T ERE ST R A T
E=• : L PR I NT USING " I
nu .ur; c
44 0 :R E TURN
450 :EN D
=· ; c
PROGRAM LIST
rn : " A" : C LEAR
20 : I NP U T ' N O . OF INSTAL
LM ENT= • ;A
30 : LPRI NT "N O . OF INSTA
L LME N T = ": L PRINT
U SI N G · nnu.ttn•;A
40 : GOS U B 400
50:J= ( l+C l1 00 )A A
60:D= INT ((J - l)*B l( J* C
1 1 00) )
70 : LPR IN T "LOAN SIZE LI
MIT= • : L P RINT U SING
• tt#UUUU • ; D
80:L P RINT • • : LPR IN T • •
: LPRINT • • : END
2 00:"B': C LEAR
2 10 : I N P UT "L O AN S I ZE LIM
IT= ' ; D
220:LPRIN T "L O AN SI ZE LI
MIT = ' : LP RINT US I NG
• itunun u r ; D
230 : GQSU1l 400
240 : K = B 1( B-D*C 1 100)
250 : A = LOG Kt LOG (l+C11
00 )
260:LPR I NT " NO . O F IN S TA
L L MENT=• : LPRIN T
U SING •n n n .nn • ;A
270 : LPRINT •• : L P RINT • •
: LPRINT •• : E ND
400:I N P UT 'INS T A LL M E N T A
MOUN T ="i B
4 1 0: LPR I NT "INS TALLME NT
AMO U N T =• : LPRINT
US I NG · 1 n11 n n111 1• ;B
420 : IN P UT "INT E R E ST RA T E
promsoft.com