Ir para conteúdo
Fórum Script Brasil
  • 0

[Problema] Comissão sobre valor Líquido


mauriciogaba

Pergunta

Olá a todos.

Estava fazendo um trabalho para o curso referente a corretora de seguros onde trabalho.

Porém após o término percebi um grave erro e não estou conseguindo ideias para resolver.

SEGUINTE:

* O preço de um seguro vem de: Valor Líquido + 7.38% de IOF

* Porém, Este valor líquido é o valor já adicionado a comissão.

Exemplo:

Valor Líquido(15% de comissão)= 1254.80

IOF(7.38%)= 92.60

Valor Total= 1347.41

* Gostaria de fazer que o valor líquido variasse ao modo que altero a comissao.

Tentei de toda forma e não consigo.

Segue

_____________________________________________________

Program precodeseguro;
uses
SysUtils, Crt;
var
vf, vp, tj, t, p, p1, i, c, co : Real;
Const
iof=(7.38/100);
Begin
ClrScr;
p1 := 0;
WriteLn ('Calculo de IOF e parcelas com Juros ');
WriteLn;
Write ('Valor Liquido.: '); ReadLn (vp);
Write ('Taxa de Juros.: '); ReadLn (tj);
WriteLn ('IOF...........: 7.38 ');
Write ('Parcelas......: '); ReadLn (p);
Write ('Comissao......: '); ReadLn ©;
t := tj/100; // Taxa em porcento
co := vp*(c/100);
if p = 1 then // 1 parcela não tem juros
vf := vp*(1+iof*1);
p1 := vf / p;
if p = 2 then // 2 parcelas
begin
vf := vp*(1+iof*1);
vf := vf +(vf*tj)/100;
p1 := vf / p;
end;
if p = 3 then // 3 parcelas
begin
vf := vp*(1+iof*1);
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
p1 := vf / p;
end;
if p = 4 then // 4 parcelas
begin
vf := vp*(1+iof*1);
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
p1 := vf / p;
end;
if p = 5 then // 5 parcelas
begin
vf := vp*(1+iof*1);
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
p1 := vf / p;
end;
if p = 6 then // 6 parcelas
begin
vf := vp*(1+iof*1);
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
p1 := vf / p;
end;
if p = 7 then // 7 parcelas
begin
vf := vp*(1+iof*1);
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
p1 := vf / p;
end;
if p = 8 then // 8 parcelas
begin
vf := vp*(1+iof*1);
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
p1 := vf / p;
end;
if p = 9 then // 9 parcelas
begin
vf := vp*(1+iof*1);
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
vf := vf +(vf*tj)/100;
p1 := vf / p;
end;
WriteLn;
WriteLn ('Valor com juros:',vf:8:2);
WriteLn ('Valor das parcelas:',p:2:0,'X',p1:8:2);
WriteLn ('Comissao:',co:4:2);
ReadLn;
End.
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

* Gostaria de fazer que o valor líquido variasse ao modo que altero a comissao.

não entendi a sua duvida

Valor Líquido(15% de comissão) = 1254.80

1254.80 / (15/100) = 188.22 // para saber o valor da comissão ( 15% ) embutido no valor total

1254.80 - 188.22 = 1066.58 // valor liquido sem a comissão

IOF(7.38%) = 92.60

Valor Total = 1347.41

OBS: se voce altera o percentual da comissão sobre o valor liquido, somente o valor da comissão é que altera

o valor total vai permancer sendo o mesmo

exemplo

Valor Líquido(20% de comissão ) = 1254.80

1254.80 / (20/100) = 250.96 // para saber o valor da comissão ( 20% ) embutido no valor total

1254.80 - 250.96 = 1003.84 // valor liquido sem a comissão

IOF(7.38%) = 92.60

Valor Total = 1347.41

* Porém, Este valor líquido é o valor já adicionado a comissão.

se o valor liquido é o valor já adicionado a comissão, como voce quer alterar o valor liquido ?

o certo então seria, colocar o valor liquido sem a comissão e depois embutir o percentual da comissão ao

valor liquido

abraço

Link para o comentário
Compartilhar em outros sites

  • 0

É que as companhias mostram os preços assim:

25znibo.jpg

Eu gostaria que eu colocando o valor liquido e a comissão desejada,

Informe o valor líquido Real ( sem a comissão),

E como neste caso se eu aumentar a comissão, aumente o valor líquido.

Usando esta imagem como Exemplo:

Informe o Valor Líquido: 1264.62

Informe a comissão:15

Ai aparecer o valor Líquido REAL= 1074.27

Ai após isto

Valor LIQUIDO REAL= (já vai aparecer) 1074.27

Informe Nova % de Comissão:20

Novo Valor líquido= 1289.91

Depois

Informe Taxa de Juros Composto Boleto: 1.72

Informe qtde parcelas: 3

Mostrar:

Valor Total do Seguro(+7.38% IOF): (1289.91 + 7.38/100) = 1385.10

Valor Total em 3 parcelas no Boleto: 1432.59

valor de cada parcela: 3 x 477.53

comissão recebida: 215.64

---------------

Acho que vou desistir deste trabalho, estou me enrolando cada vez mais

Link para o comentário
Compartilhar em outros sites

  • 0

veja se é isso que esta querendo

Program precodeseguro;

{$APPTYPE CONSOLE}

uses
  SysUtils;//, Crt;
var
  vf, vp, tj, t, p, p1, i, c, co : Real;
Const
  iof=(7.38/100);
Begin
  //ClrScr;
  p1 := 0;
  WriteLn ('Calculo de IOF e parcelas com Juros ');
  WriteLn;
  Write ('Valor Liquido.: '); ReadLn (vp);
  Write ('Taxa de Juros.: '); ReadLn (tj);
  WriteLn ('IOF...........: 7.38 ');
  Write ('Parcelas......: '); ReadLn (p);
  Write ('Comissao......: '); ReadLn (co);
  t := tj/100; // Taxa em porcento
  co := vp*(co/100); // calcula o valor da comissão
 
  if p = 1 then   // 1 parcela não tem juros
     vf := vp*(1+iof*1);
     p1 := vf / p;

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

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

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

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

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

  WriteLn;
  WriteLn ('Valor com juros:',vf:8:2);
  WriteLn ('Valor das parcelas:',p:2:0,'X',p1:8:2);
  WriteLn ('Comissao:',co:4:2);  /// mostra o valor da comissão
  WriteLn ('Valor Total:',vf+co:4:2);  ///  mostra o valor total com a comissão
  ReadLn;
End.

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...