(Resolvido) [PASCAL] Calculo de IOF e Juros

[mauriciogaba]

Olá,

Preciso executar uma aplicação que calcule o valor de IOF(+7,8%) sobre um valor à determinar.

Após isto, preciso elencar as parcelas sendo que:

em 1x não há juros

em 2x há 1,7% sobre o valor da de (1x)

em 3x há 1,7% sobre o valor da de (2x)

.

.

.

.

até 9x

Por Exemplo:

Valor liquido: R$ 900,00

IOF:+7,8%

Valor total: R$ 970,20

1x 970,20

2x 493,34 = 986,69

3x 334,49 = 1003,46

. . .

Alguém me da uma luz???

[Jhonas]

exemplo

Program Juros;

{$APPTYPE CONSOLE}

uses
SysUtils, Crt;
var
vf, vp, tj, t, p, p1, iof : Real;
Begin
ClrScr;
p1 := 0;
WriteLn ('Juros Compostos');
WriteLn;
Write ('Valor Presente: '); ReadLn (vp);
Write ('Taxa de Juros.: '); ReadLn (tj);
Write ('Taxa de IOF.: '); ReadLn (iof);
Write ('Periodo.......: '); ReadLn (p);
t := tj/100; // Taxa em porcento

if p = 1 then // 1 parcela
vf := vp*(1+t*1);

if p = 2 then // 2 parcelas
begin
vf := vp*(1+t*1);
vf := vf + (vf*iof)/100;
end;

if p = 3 then // 3 parcelas
begin
vf := vp*(1+t*1);
vf := vf + (vf*iof)/100;
vf := vf + (vf*iof)/100;
end;

if p = 4 then // 4 parcelas
begin
vf := vp*(1+t*1);
vf := vf + (vf*iof)/100;
vf := vf + (vf*iof)/100;
vf := vf + (vf*iof)/100;
end;

WriteLn;
Write ('O Valor futuro:',vf:8:2);
ReadLn;
End.

OBS: poderia ser mais simplificado o programa, mas só para entender o raciocinio

1 parcela = 900,00 * 7.8% = 970,20

quando for mais de 1 parcela

2 parcelas => 970,20 * 1.7% = 986,69

3 parcelas => 986,69 * 1.7% = 1003,46

4 parcelas => 1003,46 * 1.7% = 1020,51

abraço

[mauriciogaba]

Muito Obrigado,

agora eu precisava elencar as parcelas,

tipo

se eu selecionar 4 parcelas ai vai aparecer o valor , e ele dividido em 4 vezes..

sei que é simples mas tenho conhecimento muito razoável sobre este tipo de programação.

[Jhonas]

2 parcelas => 970,20 * 1.7% = 986,69

3 parcelas => 986,69 * 1.7% = 1003,46

4 parcelas => 1003,46 * 1.7% = 1020,51

basta dividir o total pelo numero de parcelas

986,69 / 2 = 493,34

1003,46 / 3 = 334,48

1020,51 / 4 = 255,13

Program Juros;

{$APPTYPE CONSOLE}

uses
SysUtils;//, Crt;
var
vf, vp, tj, t, p, p1, iof : Real;
Begin
//ClrScr;
p1 := 0;
WriteLn ('Juros Compostos');
WriteLn;
Write ('Valor Presente: '); ReadLn (vp);
Write ('Taxa de Juros.: '); ReadLn (tj);
Write ('Taxa de IOF.: '); ReadLn (iof);
Write ('Periodo.......: '); ReadLn (p);
t := tj/100; // Taxa em porcento

if p = 1 then // 1 parcela
vf := vp*(1+t*1);

if p = 2 then // 2 parcelas
begin
vf := vp*(1+t*1);
vf := vf + (vf*iof)/100;
p1 := vf / p;
end;

if p = 3 then // 3 parcelas
begin
vf := vp*(1+t*1);
vf := vf + (vf*iof)/100;
vf := vf + (vf*iof)/100;
p1 := vf / p;
end;

if p = 4 then // 4 parcelas
begin
vf := vp*(1+t*1);
vf := vf + (vf*iof)/100;
vf := vf + (vf*iof)/100;
vf := vf + (vf*iof)/100;
p1 := vf / p;
end;

WriteLn;
Write ('O Valor futuro:',vf:8:2);
Write (p:2:0 ,' Parcelas de :',p1:8:2);
ReadLn;
End.

abraço