Advertisement
cPAYMENTS PLAN FOR LONG-TERM L O A N S - - - - - - - - - - - - - - -
1050 PRINT: INPUT"Annual
interest rate
#
1060 IF X=4 THEN PRINT: INF'UT"Rate of
incr-ease
="
,S#
1070 CLS
="
,R
1080 LF'RINT"f'ayment
<
X ) ; "
> >" :
LPR
I
NT
F'la.n for long·-term Lm-n
<<";
Z$
1090
LPRINT
"Amount of
lorn
:
";: LFRINT USIN
G "$##1HHt####"; A#;
1100 LPRINT TAB(40)
"Number- of
inst.
:";:LF'RINT U
SING"###"; T#;: LPRINT"times"
1110 LPRINT
"Annual
inter-set rate :";STR$(RtO;"i~";
1120 IF X=4 THEN LPRINT TA8(40);"Rate of
increase
:";STR$(S#);"'1/." ELSE LPRINT
1 1-30 LPR I NT CHR$
<
27) ; " 1 "
1140 LPR I
NT:
LF'R I NT" .-------.--
1150
lance
1160
2000
2010
2020
2030
2040
2050
2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
3(Z)(Z)(Z)
3010
-3020
3030
3040
3050
3060
LF'RINT" INo. IPt-incipal I
Inter-est I
Total
I Ba
I"
RETURN
L#=A#
J#=A#/T#
FOR 1=1
TO CSNG(T#)
K#=J#*(T#-CDBL<I)+l)+R#/1200
L#=L#-J#
IF L#(.5 THEN L#=0
LPR I NT"
1 - f
- - 1 - - - - - - - + - - - - - - - - 1 - - - - - - + - - - -
LPRINT"
I";
:LF'RINT USING"###"; I;~:LF'RINT"
I";
LPRINT USING"#########";J#;:LPRINT" I";
LF'RI~T USING"#########"; K#;: LPRINT" I";
LF'RINT USING"tt##tt#####"; J#+f<#;: LF'RINT" I";
LF'RINT USING"#########": L#;: LF'RINT"
I"
NEXT
I
RETURN
R#=R#/1200
Ut=A#
C#=A#•R#/(1-(l+R#)A(-T#)
>
FOR
I=l
TO CSNG(T#)
8#=C#/(1+R#l~(T#+1-CDBL(II I
Ut=L#-B#
Advertisement
