Matemática Financeira

27 de julho de 201728 de julho de 2017 MSX-Basic 0 comentários Aplicativos, Didáticos

Programa de cálculos diversos de matemática financeira, tais como cálculo de VALOR FUTURO, VALOR PRESENTE, VALOR DE PRESTAÇÃO, TAXA DE JUROS etc.

Teste o programa no WebMSX – The Online MSX Emulator

Fonte: Livro Coleção de Programas para MSX Volume 2
Editora: Aleph
Ano: 1986
Autor: Luiz Tarcísio de Carvalho Jr.

Código fonte

1000 ' MATEMATICA FINANCEIRA
1010 ' LUIZ TARCISIO DE CARVALHO JR
1020 '
1030 ON ERROR GOTO 2360
1040 KEYOFF:SCREEN 2:COLOR15,1,1
1050 OPEN"GRP:"FOR OUTPUT AS#1
1060 GOSUB2270
1070 COLOR3:PSET(10,125):PRINT#1,"Escolha o valor a ser calculado"
1080 COLOR15:X$=INPUT$(1):IFASC(X$)<49ORASC(X$)>53THENGOSUB2260:GOTO1080
1090 O=ASC(X$):GOSUB1120
1100 LINE(10,125)-(255,135),1,BF:PSET(30,125),1:COLOR3:PRINT#1,"Os valores conhecidos s±o:":COLOR8:PSET(30,140),1
1110 ONOGOTO1130,1260,1390,1520,1740
1120 O=O-48:ONOGOSUB2210,2220,2230,2240,2250:RETURN
1130 PRINT#1,"(A) [2],[4],[5]":PSET(30,155),1:PRINT#1,"(B) [3],[4],[5]"
1140 COLOR3:PSET(30,170),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>2THENGOTO1140
1150 ONOGOTO1160,1210
1160 GOSUB2300:GOSUB2010:GOSUB2030
1170 INPUT"Qual o VALOR FUTURO ";F
1180 R=F/X:GOSUB2060
1190 LOCATE12,12:PRINT"VALOR PRESENTE":LOCATEK,14:PRINT"Cz$ ";R$
1200 GOSUB2310:GOTO1160
1210 GOSUB2300:GOSUB2010:GOSUB2030
1220 INPUT"Qual o VALOR DA PRESTA€°O ";A
1230 R=A*(X-1)/(I*X):GOSUB2060
1240 LOCATE12,12:PRINT"VALOR PRESENTE":LOCATEK,14:PRINT"Cz$ ";R$
1250 GOSUB2310:GOTO1210
1260 PRINT#1,"(A) [1],[4],[5]":PSET(30,155),1:PRINT#1,"(B) [3],[4],[5]"
1270 COLOR3:PSET(30,170),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>2THENGOTO1270
1280 ONOGOTO1290,1340
1290 GOSUB2300:GOSUB2010:GOSUB2030
1300 INPUT"Qual o VALOR PRESENTE ";P
1310 R=P*X:GOSUB2060
1320 LOCATE13,12:PRINT"VALOR FUTURO":LOCATEK,14:PRINT"Cz$ ";R$
1330 GOSUB2310:GOSUB1290
1340 GOSUB2300:GOSUB2010:GOSUB2030
1350 INPUT"Qual o VALOR DA PRESTA€°O ";A
1360 R=A*(X-1)/I:GOSUB2060
1370 LOCATE13,12:PRINT"VALOR FUTURO":LOCATEK,14:PRINT"Cz$ ";R$
1380 GOSUB2310:GOTO1340
1390 PRINT#1,"(A) [1],[4],[5]":PSET(30,155),1:PRINT#1,"(B) [2],[4],[5]"
1400 COLOR3:PSET(30,170),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>2THENGOTO1400
1410 ONOGOTO1420,1470
1420 GOSUB2300:GOSUB2010:GOSUB2030
1430 INPUT"Qual o VALOR PRESENTE ";P
1440 R=P*I*X/(X-1):GOSUB2060
1450 LOCATE10,12:PRINT"VALOR DA PRESTA€°O":LOCATEK,14:PRINT"Cz$ ";R$
1460 GOSUB2310:GOTO1420
1470 GOSUB2300:GOSUB2010:GOSUB2030
1480 INPUT"Qual o VALOR FUTURO ";F
1490 R=F*I/(X-1):GOSUB2060
1510 GOSUB2310:GOTO1470
1520 PRINT#1,"(A) [1],[3],[5]":PSET(30,155),1:PRINT#1,"(B) [1],[2],[5]"
1530 COLOR3:PSET(30,170),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>2THENGOTO1530
1540 ONOGOTO1550,1660
1550 GOSUB2300:GOSUB2010
1560 LOCATE2,4:INPUT"Qual o VALOR PRESENTE ";P
1570 LOCATE2,6:INPUT"Qual o VALOR DA PRESTA€°O";A
1580 LOCATE2,8:INPUT"Qual o NUM. DE PER‰ODOS";N
1590 I=10:I2=0
1600 A1=(P*I*(1+I)^N)/((1+I)^N-1):A1=INT(A1*100+.5)/100:I3=ABS(I-I2)/2:I2=I:IFA=A1THEN1630
1610 IFA<A1THENI=I-I3ELSEI=I+I3
1620 GOTO1600
1630 J=INT(I*100000!+.5)/1000
1640 LOCATE10,12:PRINT"TAXA DE JUROS":LOCATE12,14:PRINTJ;"%"
1650 GOSUB2310:GOTO1550
1660 GOSUB2300:GOSUB2010
1670 LOCATE2,2:INPUT"Qual o VALOR PRESENTE ";P
1680 LOCATE2,4:INPUT"Qual o VALOR FUTURO ";F
1690 LOCATE2,6:INPUT"Qual o NUM. DE PER‰ODOS ";N
1700 I=(F/P)^(1/N)-1
1710 J=INT(I*100000!+.5)/1000
1720 LOCATE10,12:PRINT"TAXA DE JUROS":LOCATE12,14:PRINTJ"%"
1730 GOSUB2310:GOTO1660
1740 PRINT#1,"(A) [1],[4],[5]":PSET(30,155),1:PRINT#1,"(B) [3],[4],[5]":PSET(30,170),1:PRINT#1,"(C) [1],[2],[4]"
1750 COLOR3:PSET(30,185),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>3THENGOTO1750
1760 ONOGOTO1770,1850,1930
1770 GOSUB2300:GOSUB2010
1780 LOCATE2,2:INPUT"Qual o VALOR PRESENTE ";P
1790 LOCATE2,4:INPUT"Qual o VALOR DA PRESTA€°O";A
1800 LOCATE2,6:PRINT"Qual A TAXA DE JUROS":LOCATE3,7:INPUT"expressa em porcentagem";J
1810 I=J/100:N=(LOG(A)-LOG(I)-LOG(A/I-P))/LOG(1+I)
1820 N=INT(N*100+.5)/100
1830 LOCATE8,12:PRINT"N‹MERO DE PER‰ODOS":LOCATE12,14:PRINTN
1840 GOSUB2310:GOTO1770
1850 GOSUB2300:GOSUB2010
1860 LOCATE2,2:INPUT"Qual o VALOR FUTURO";F
1870 LOCATE2,4:INPUT"Qual o VALOR DA PRESTA€°O";A
1880 LOCATE2,6:INPUT"Qual A TAXA DE JUROS":LOCATE3,7:INPUT"expressa em porcentagem";J
1890 I=J/100:N=LOG(F*I/A+1)/LOG(I+1)
1900 N=INT(N*100+.5)/100
1910 LOCATE8,12:PRINT"N‹MERO DE PER‰ODOS":LOCATE12,14:PRINTN
1920 GOSUB2310:GOTO1850
1930 GOSUB2300:GOSUB2010
1940 LOCATE2,2:INPUT"Qual o VALOR PRESENTE ";P
1950 LOCATE2,4:INPUT"Qual o VALOR FUTURO ";F
1960 LOCATE2,2:INPUT"Qual a taxa de juros":LOCATE3,7:INPUT"expressa em porcentagem";J
1970 I=J/100:N=LOG(F/P)/LOG(1+I)
1980 N=INT(N*100+.5)/100
1990 LOCATE8,12:PRINT"N‹MERO DE PER‰ODOS":LOCATE12,14:PRINTN
2000 GOSUB2310:GOTO1930
2010 PRINTSTRING$(39,219):LOCATE0,22:PRINTSTRING$(39,219);
2020 RETURN
2030 LOCATE2,2:PRINT"Qual a taxa de juros":LOCATE3,3:INPUT"expressa em porcentagem";J
2040 LOCATE2,5:INPUT"Qual o n£mero de per¡odos";N
2050 I=J/100:X=(1+I)^N:LOCATE2,7:RETURN
2060 R=INT(R*100+.5)/100
2070 R$=STR$(R):K=LEN(R$):FORU=2TOK-1:IFMID$(R$,U,1)="E"ORMID$(R$,U,1)="D"THEN RETURN
2080 NEXTU
2090 C$="":IFR=INT(R)THENGOTO2130
2100 R$=STR$(R):IFMID$(R$,LEN(R$)-1,1)="."THENC$=","+RIGHT$(R$,1)+"0":GOTO2120
2110 C$=","+RIGHT$(R$,2)
2120 R=INT(R):GOTO2140
2130 C$=",00"
2140 R$=STR$(R):R$=MID$(R$,2):H$=""
2150 K=LEN(R$):IFK<=3THENH$=R$:GOTO2190
2160 NP=INT(K/3):RE=K-NP*3
2170 IFRE=0THENFORSS=1TOK-3STEP3:FORS=SSTOSS+2:H$=H$+MID$(R$,S,1):NEXTS:H$=H$+".":NEXTSS:H$=H$+RIGHT$(R$,3):GOTO2190
2180 H$=LEFT$(R$,RE):FORSS=RE+1TOKSTEP3:H$=H$+".":FORS=SSTOSS+2:H$=H$+MID$(R$,S,1):NEXTS:NEXTSS
2190 IFR=0THENH$="0"
2200 R$=H$+C$:K=LEN(R$):K=(35-K)\2:RETURN
2210 PSET(30,35),1:PRINT#1,"[1] VALOR PRESENTE":RETURN
2220 PSET(30,50),1:PRINT#1,"[2] VALOR FUTURO":RETURN
2230 PSET(30,65),1:PRINT#1,"[3] VALOR DA PRESTA€°O":RETURN
2240 PSET(30,80),1:PRINT#1,"[4] TAXA DE JUROS":RETURN
2250 PSET(30,95),1:PRINT#1,"[5] N‹MERO DE PER‰ODOS":RETURN
2260 PSET(30,150),1:PRINT#1,"OP€°O INVALIDA":FORI=1TO800:NEXTI:LINE(70,150)-(190,160),1,BF:RETURN
2270 CLS:PSET(40,5),1:COLOR8:PRINT#1,"MATEM„TICA FINANCEIRA"
2280 COLOR7:GOSUB2210:GOSUB2220:GOSUB2230:GOSUB2240:GOSUB2250
2290 RETURN
2300 COLOR15,4:SCREEN0:WIDTH39:RETURN
2310 LOCATE0,19:PRINT"[ O ]   PARA OUTRA OP€°O"
2311 LOCATE0,20:PRINT"[ N ]   PARA NOVO C„LCULO"
2320 A$=INKEY$
2330 IFA$="O"ORA$="o"THENRUN
2340 IFA$="N"ORA$="n"THENRETURN
2350 GOTO2320
2360 COLOR15,8:CLS:LOCATE10,9:PRINT"VALOR(ES) INV„LIDO(S)":FORU=1TO1000:NEXTU:RUN

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

1000 ' MATEMATICA FINANCEIRA

1010 ' LUIZ TARCISIO DE CARVALHO JR

1020 '

1030 ON ERROR GOTO 2360

1040 KEYOFF:SCREEN 2:COLOR15,1,1

1050 OPEN"GRP:"FOR OUTPUT AS#1

1060 GOSUB2270

1070 COLOR3:PSET(10,125):PRINT#1,"Escolha o valor a ser calculado"

1080 COLOR15:X$=INPUT$(1):IFASC(X$)<49ORASC(X$)>53THENGOSUB2260:GOTO1080

1090 O=ASC(X$):GOSUB1120

1100 LINE(10,125)-(255,135),1,BF:PSET(30,125),1:COLOR3:PRINT#1,"Os valores conhecidos s±o:":COLOR8:PSET(30,140),1

1110 ONOGOTO1130,1260,1390,1520,1740

1120 O=O-48:ONOGOSUB2210,2220,2230,2240,2250:RETURN

1130 PRINT#1,"(A) [2],[4],[5]":PSET(30,155),1:PRINT#1,"(B) [3],[4],[5]"

1140 COLOR3:PSET(30,170),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>2THENGOTO1140

1150 ONOGOTO1160,1210

1160 GOSUB2300:GOSUB2010:GOSUB2030

1170 INPUT"Qual o VALOR FUTURO ";F

1180 R=F/X:GOSUB2060

1190 LOCATE12,12:PRINT"VALOR PRESENTE":LOCATEK,14:PRINT"Cz$ ";R$

1200 GOSUB2310:GOTO1160

1210 GOSUB2300:GOSUB2010:GOSUB2030

1220 INPUT"Qual o VALOR DA PRESTA€°O ";A

1230 R=A*(X-1)/(I*X):GOSUB2060

1240 LOCATE12,12:PRINT"VALOR PRESENTE":LOCATEK,14:PRINT"Cz$ ";R$

1250 GOSUB2310:GOTO1210

1260 PRINT#1,"(A) [1],[4],[5]":PSET(30,155),1:PRINT#1,"(B) [3],[4],[5]"

1270 COLOR3:PSET(30,170),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>2THENGOTO1270

1280 ONOGOTO1290,1340

1290 GOSUB2300:GOSUB2010:GOSUB2030

1300 INPUT"Qual o VALOR PRESENTE ";P

1310 R=P*X:GOSUB2060

1320 LOCATE13,12:PRINT"VALOR FUTURO":LOCATEK,14:PRINT"Cz$ ";R$

1330 GOSUB2310:GOSUB1290

1340 GOSUB2300:GOSUB2010:GOSUB2030

1350 INPUT"Qual o VALOR DA PRESTA€°O ";A

1360 R=A*(X-1)/I:GOSUB2060

1370 LOCATE13,12:PRINT"VALOR FUTURO":LOCATEK,14:PRINT"Cz$ ";R$

1380 GOSUB2310:GOTO1340

1390 PRINT#1,"(A) [1],[4],[5]":PSET(30,155),1:PRINT#1,"(B) [2],[4],[5]"

1400 COLOR3:PSET(30,170),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>2THENGOTO1400

1410 ONOGOTO1420,1470

1420 GOSUB2300:GOSUB2010:GOSUB2030

1430 INPUT"Qual o VALOR PRESENTE ";P

1440 R=P*I*X/(X-1):GOSUB2060

1450 LOCATE10,12:PRINT"VALOR DA PRESTA€°O":LOCATEK,14:PRINT"Cz$ ";R$

1460 GOSUB2310:GOTO1420

1470 GOSUB2300:GOSUB2010:GOSUB2030

1480 INPUT"Qual o VALOR FUTURO ";F

1490 R=F*I/(X-1):GOSUB2060

1510 GOSUB2310:GOTO1470

1520 PRINT#1,"(A) [1],[3],[5]":PSET(30,155),1:PRINT#1,"(B) [1],[2],[5]"

1530 COLOR3:PSET(30,170),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>2THENGOTO1530

1540 ONOGOTO1550,1660

1550 GOSUB2300:GOSUB2010

1560 LOCATE2,4:INPUT"Qual o VALOR PRESENTE ";P

1570 LOCATE2,6:INPUT"Qual o VALOR DA PRESTA€°O";A

1580 LOCATE2,8:INPUT"Qual o NUM. DE PER‰ODOS";N

1590 I=10:I2=0

1600 A1=(P*I*(1+I)^N)/((1+I)^N-1):A1=INT(A1*100+.5)/100:I3=ABS(I-I2)/2:I2=I:IFA=A1THEN1630

1610 IFA<A1THENI=I-I3ELSEI=I+I3

1620 GOTO1600

1630 J=INT(I*100000!+.5)/1000

1640 LOCATE10,12:PRINT"TAXA DE JUROS":LOCATE12,14:PRINTJ;"%"

1650 GOSUB2310:GOTO1550

1660 GOSUB2300:GOSUB2010

1670 LOCATE2,2:INPUT"Qual o VALOR PRESENTE ";P

1680 LOCATE2,4:INPUT"Qual o VALOR FUTURO ";F

1690 LOCATE2,6:INPUT"Qual o NUM. DE PER‰ODOS ";N

1700 I=(F/P)^(1/N)-1

1710 J=INT(I*100000!+.5)/1000

1720 LOCATE10,12:PRINT"TAXA DE JUROS":LOCATE12,14:PRINTJ"%"

1730 GOSUB2310:GOTO1660

1740 PRINT#1,"(A) [1],[4],[5]":PSET(30,155),1:PRINT#1,"(B) [3],[4],[5]":PSET(30,170),1:PRINT#1,"(C) [1],[2],[4]"

1750 COLOR3:PSET(30,185),1:PRINT#1,"Escolha a op‡±o":Y$=INPUT$(1):O=ASC(Y$)-64:IFO<1ORO>3THENGOTO1750

1760 ONOGOTO1770,1850,1930

1770 GOSUB2300:GOSUB2010

1780 LOCATE2,2:INPUT"Qual o VALOR PRESENTE ";P

1790 LOCATE2,4:INPUT"Qual o VALOR DA PRESTA€°O";A

1800 LOCATE2,6:PRINT"Qual A TAXA DE JUROS":LOCATE3,7:INPUT"expressa em porcentagem";J

1810 I=J/100:N=(LOG(A)-LOG(I)-LOG(A/I-P))/LOG(1+I)

1820 N=INT(N*100+.5)/100

1830 LOCATE8,12:PRINT"N‹MERO DE PER‰ODOS":LOCATE12,14:PRINTN

1840 GOSUB2310:GOTO1770

1850 GOSUB2300:GOSUB2010

1860 LOCATE2,2:INPUT"Qual o VALOR FUTURO";F

1870 LOCATE2,4:INPUT"Qual o VALOR DA PRESTA€°O";A

1880 LOCATE2,6:INPUT"Qual A TAXA DE JUROS":LOCATE3,7:INPUT"expressa em porcentagem";J

1890 I=J/100:N=LOG(F*I/A+1)/LOG(I+1)

1900 N=INT(N*100+.5)/100

1910 LOCATE8,12:PRINT"N‹MERO DE PER‰ODOS":LOCATE12,14:PRINTN

1920 GOSUB2310:GOTO1850

1930 GOSUB2300:GOSUB2010

1940 LOCATE2,2:INPUT"Qual o VALOR PRESENTE ";P

1950 LOCATE2,4:INPUT"Qual o VALOR FUTURO ";F

1960 LOCATE2,2:INPUT"Qual a taxa de juros":LOCATE3,7:INPUT"expressa em porcentagem";J

1970 I=J/100:N=LOG(F/P)/LOG(1+I)

1980 N=INT(N*100+.5)/100

1990 LOCATE8,12:PRINT"N‹MERO DE PER‰ODOS":LOCATE12,14:PRINTN

2000 GOSUB2310:GOTO1930

2010 PRINTSTRING$(39,219):LOCATE0,22:PRINTSTRING$(39,219);

2020 RETURN

2030 LOCATE2,2:PRINT"Qual a taxa de juros":LOCATE3,3:INPUT"expressa em porcentagem";J

2040 LOCATE2,5:INPUT"Qual o n£mero de per¡odos";N

2050 I=J/100:X=(1+I)^N:LOCATE2,7:RETURN

2060 R=INT(R*100+.5)/100

2070 R$=STR$(R):K=LEN(R$):FORU=2TOK-1:IFMID$(R$,U,1)="E"ORMID$(R$,U,1)="D"THEN RETURN

2080 NEXTU

2090 C$="":IFR=INT(R)THENGOTO2130

2100 R$=STR$(R):IFMID$(R$,LEN(R$)-1,1)="."THENC$=","+RIGHT$(R$,1)+"0":GOTO2120

2110 C$=","+RIGHT$(R$,2)

2120 R=INT(R):GOTO2140

2130 C$=",00"

2140 R$=STR$(R):R$=MID$(R$,2):H$=""

2150 K=LEN(R$):IFK<=3THENH$=R$:GOTO2190

2160 NP=INT(K/3):RE=K-NP*3

2170 IFRE=0THENFORSS=1TOK-3STEP3:FORS=SSTOSS+2:H$=H$+MID$(R$,S,1):NEXTS:H$=H$+".":NEXTSS:H$=H$+RIGHT$(R$,3):GOTO2190

2180 H$=LEFT$(R$,RE):FORSS=RE+1TOKSTEP3:H$=H$+".":FORS=SSTOSS+2:H$=H$+MID$(R$,S,1):NEXTS:NEXTSS

2190 IFR=0THENH$="0"

2200 R$=H$+C$:K=LEN(R$):K=(35-K)\2:RETURN

2210 PSET(30,35),1:PRINT#1,"[1] VALOR PRESENTE":RETURN

2220 PSET(30,50),1:PRINT#1,"[2] VALOR FUTURO":RETURN

2230 PSET(30,65),1:PRINT#1,"[3] VALOR DA PRESTA€°O":RETURN

2240 PSET(30,80),1:PRINT#1,"[4] TAXA DE JUROS":RETURN

2250 PSET(30,95),1:PRINT#1,"[5] N‹MERO DE PER‰ODOS":RETURN

2260 PSET(30,150),1:PRINT#1,"OP€°O INVALIDA":FORI=1TO800:NEXTI:LINE(70,150)-(190,160),1,BF:RETURN

2270 CLS:PSET(40,5),1:COLOR8:PRINT#1,"MATEM„TICA FINANCEIRA"

2280 COLOR7:GOSUB2210:GOSUB2220:GOSUB2230:GOSUB2240:GOSUB2250

2290 RETURN

2300 COLOR15,4:SCREEN0:WIDTH39:RETURN

2310 LOCATE0,19:PRINT"[ O ] PARA OUTRA OP€°O"

2311 LOCATE0,20:PRINT"[ N ] PARA NOVO C„LCULO"

2320 A$=INKEY$

2330 IFA$="O"ORA$="o"THENRUN

2340 IFA$="N"ORA$="n"THENRETURN

2350 GOTO2320

2360 COLOR15,8:CLS:LOCATE10,9:PRINT"VALOR(ES) INV„LIDO(S)":FORU=1TO1000:NEXTU:RUN

Compartilhe:

julho 2017
D	S	T	Q	Q	S	S
				ago »
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31