MicroHobby27.pdf

,
o = ";VF
1025 IF PM = 0 THEN 1035
1030 INPUT II PAGAMENTO P
ERIODICO= ";P
H
1035 IF N = 0 THEN 1045
1040 INPUT II NUMERO DE P
ERIODOS= ";N
1045 IF J = 0 THEN 1055
1050 INPUT II TAXA DE JUR
Os(VAL. DECIM
AU= ";J
1055 IF K = 0 THEN 1065
1060 INPUT II MEs INICIAL
= ";K
1065 IF L = 0 THEN 1075
1070 INPUT II MEs FINAL =
";L
1075 RETURN
2000 REM *** APREsENTAC
AO DE REsELTA
DO ***
I 2~01 ~OHE : VTAB 2: HTAB
I 2002 INVERSE: PRINT II
RE
I TAD
5
0
U L
": NORMAL
2003
I NT
PRINT: PRINT : PRI
2004 IF VP = 0 THEN 2007
2005 PRINT TAB( 4);"VAL
OR PREsENTE=
";VP
2007 IF VF = 0 THEN 2015
2010 PRINT TAB( 4);"VAL
OR FUTURO =
";VF
'2015 IF PM = 0 THEN 2025
2020 PRINT TAB( 4);IIPAG
• PERIODICO=
";PH
2025 IF N = 0 THEN 2035
2030 PRINT TAB( 4);"NUH
• DE PERIODOs
2035 IF J = 0 THEN 2045
2037 JP = INT (J * 10000
) / 100
2040 PRINT TAB( 4);"TAX
A DE JUROs ="
;J
2043 VTAB 9: HTAB 29: PR
INT II OU ";JP
2045 IF M = 0 THEN 2055
2050 PRINT TAB( 4);"JUR
OS ACUMULADOS
2055 IF I = 0 THEN 2065
2057 PRINT: PRINT
2060 PRINT TAB( 4);IINUM
ERO DE ITERAC
OE5= ";1
2065 IF SO = 0 THEN 2080
2070 PRINT TAB( 4);lIsAL
DO DEVEDOR"
2072 PRINT TAB( 6J;"NO
FINAL DO MEs
2080 GOSUB 5000
2090 RETURN
3000 VP = O:PM = 1:J = 1:
N = 1: GOsUB
1000
3010 VP = PM * «1 - (1 +
J) • ( - N»
/ J): RETURN
3020 PM = O:VP = 1:J = 1:
N = 1: GOsUB
1000
3030 PM = VP * (J / (1 -
(1 + J) • ( -
N»): RETURN
3040 N = O:VP = 1:PM = 1:
J = 1: GOsUB
1000
3050 N = - LOG (1 - J *
VP / PM) / LOG (1 + J):
RETURN
3060 REM' CALCULO DA TAX
A DE JUROs
3065 REM PiMETODO DE N
EWTON
3068 VP = 1:PM = 1:N = 1:
VF = O:J = 0:
M = O:K = O:L = 0:50 = 0:
GOsUB 1
000
3069 REM FUNCAO PRIMITI
VA***
3070 DEF FN F(J) = (1 -
(1 + J) A ( - N» / J - V
P / PM
3075 REM FUNCAO DERIVA
DA **
3080 DEF FN A(J) = «N
/ (1 / J + U
+ 1) * (1 + J) • ( - N)
- U / J
3085 REM **VALOR INICIA
L DE (J)H
3090 J = PM I VP - VP / (
N A 2 * PM)
3095 FOR I = 1 TO 100
3100 J = J - FN F(J) !
FN A(J)
3110 IF ABS ( FN F(J)
( LOOOOE - 0
5 THEN 3125
3120 NEXT I
3125 RETURN
3200 REM **JUROS ACUMULA
005**
3210 VF = O:J = 1:PM = 1:
N = O:VP = 1:
K = 1:L = 1: GOSUB 1000
3215 SK = O:SL = 0
3220 N = K - 1: GOsUB 340
O:SK = SO
3230 N = L: GOSUB 3400:SL
= SO
3240 M = SL - SK + (L - K
+ 1) * PM:N = L - K + 1:
RETURN
3250 REM **TABELA DE AMO
RTIZACAOH
3279 VP = 1:PM = 1:J = 1:
VF = O:N = 0:
K = D:L = 0
3275 GOSUB 1000
3285 VTAB 12: HTAB 1: PR
INT "DIGITE 0
MES INICIAL E FINAL DE C
ADA"
3286 PRINT "PERIODO, SEP
ARADOS POR VI
RGULA."
3288 INVERSE: VTAB 16:
PRINT TAB( 7
);"DIGITE 0,0 PARA TERMIN
ARII; TAB( 41);: NORMAL
3290 T = 1
3295 INPUT II MES INICIAL
,MES FINAL ";
MHT> ,MFm
3300 IF MI(T) = 0 AND MF
m = 0 THEN
3330
3310 T = T + 1
3320 GOTO 3295
3330 T = T - 1
3335 FOR X = 1 TO T
3340 N = MI(X) - 1: GOSUB
340D:sIm =
SO
3345 N'= HF(X): GOSUB 340
O:SF(X) = SD
3347 JA(X) = SF(X) - sI(X
) + (MF(X) -
MHX) + U * PM
3348 NEXT X
3349 HOME
3350 INVERSE: VTAB 2: H
TAB 8: PRINT
"TABELA DE AHORTIZACAO":
NORMAL
3351 PRINT
3352 PRINT "VALOR PRESEN
TE= ";VP
3354 PRINT "PAGAMENTO PE
RIODICO= ";PH
3356 PRINT "TAXA DE JURO
S= ";J
3358 PRINT
3360 PRINT "PERIODO-JURO
S ACUMULADOS-
SALDO DEVEDOR"
3365 FOR P = 1 TO T
3370 PRINT TAB( 2);MI(P
);"_";HF(P); TAB( 11);JA(P
); TAB( 28)~SF(P)
3375 NEXT P
3390 GOTO 993
3400 50 = 1 / (1 + J) • (
- N) * (PM I
J * «1,+ J) • ( - N) - 1
) + VP):
RETURN
4000 REM ****FIH****
4005 END
5000 COLOR = 10: HLIN 0
,5 AT 2: HUN
32,39 Ar 2: VLIN 2,39 AT
39: HUN
0,39 AT 39: VLIN 2,39 AT
o
5001 RETURN ••