PROGRAMAR HP48

VPL VFL VML

<<

“DIGITE O PINICIAL” “” INPUT OBJ-> ‘A’ STO

“DIGITE A TAXA” “” INPUT OBJ-> ‘B’ STO

“DIGITE O PERIODO” “” INPUT OBJ-> ‘C’ STO

0.01 B * 'B' STO

A EVAL ‘VP’ STO

1 C EVAL FOR K

“DIGITE O PAGAMENTO “ K + “” INPUT OBJ->

‘VR’ STO

VP EVAL VR EVAL 1 B + K ^ / + ´VP’ STO

NEXT

1 B + C EVAL ^ VP EVAL * ‘VF’ STO

VP EVAL 1 B + C ^ B * * 1 B + C ^ 1 - / ‘VM’ STO

CLLCD

"VPL=" VP EVAL + 1 DISP

"VFL=" VF EVAL + 3 DISP

"VML=" VM EVAL + 5 DISP

-1 WAIT >>

SPC + INFLAÇÃO

<<

“DIGITE O INVESTIMENTO” “” INPUT OBJ-> ‘A’ STO

“DIGITE A TAXA” “” INPUT OBJ-> ‘B’ STO

“DIGITE O PERIODO” “” INPUT OBJ-> ‘C’ STO

0.01 * 'B' STO

1 B

EVAL + C EVAL ^ B

EVAL * A EVAL * 1 B

EVAL + C EVAL ^ 1 -

/ 'PG' STO

0 ‘VAC’ STO

A EVAL 'SD' STO

1 C EVAL FOR K

“DIGITE A VARIAÇAO “ K + “” INPUT OBJ->

‘VR’ STO

VR EVAL 0.01 * 1 + VAC EVAL 0,01 * 1 + * 1 – 100 * ‘VAC’ STO

SD EVAL B EVAL * VR EVAL 0.01 * 1 + *

'JUROS' STO

PG EVAL VR EVAL 0.01 * 1 + * ‘PG’ STO

PG EVAL JUROS EVAL -

'AM' sto

SD EVAL VR EVAL 0.01 * 1 + * AM EVAL -

'SD' sto

CLLCD

"LINHA " K EVAL + 1 DISP

“VAC=” VAC EVAL + 2 DISP

"PAG=" PG EVAL + 3 DISP

"JUROS=" JUROS EVAL + 4 DISP

"AMORT=" AM EVAL + 5 DISP

"S.DEV.=" SD EVAL + 6 DISP

-1 WAIT

NEXT >>

SAC + VAR

<<

“DIGITE O INVESTIMENTO” “” INPUT OBJ-> ‘A’ STO

“DIGITE A TAXA” “” INPUT OBJ-> ‘B’ STO

“DIGITE O PERIODO” “” INPUT OBJ-> ‘C’ STO

0.01 * 'B' STO

0 'PG' STO

0 ‘VAC’ STO

A EVAL 'SD' STO

A EVAL C EVAL / ‘AM’ STO

1 C EVAL FOR K

“DIGITE A VARIAÇAO “ K + “” INPUT OBJ->

‘VR’ STO

VR EVAL 0.01 * 1 + VAC EVAL 0,01 * 1 + * 1 – 100 * ‘VAC’ STO

SD EVAL B EVAL * VR EVAL 0.01 * 1 + *

'JUROS' STO

AM EVAL VR EVAL 0.01 * 1 + * ‘AM’ STO

AM EVAL JUROS EVAL +

'PG’ sto

SD EVAL VR EVAL 0.01 * 1 + * AM EVAL -

'SD' sto

CLLCD

"LINHA " K EVAL + 1 DISP

“VAC=” VAC EVAL + 2 DISP

"PAG=" PG EVAL + 3 DISP

"JUROS=" JUROS EVAL + 4 DISP

"AMORT=" AM EVAL + 5 DISP

"S.DEV.=" SD EVAL + 6 DISP

-1 WAIT

NEXT >>

SPC + INFLAÇÃO JAQUES

<<

“DIGITE