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

[PASCAL/AJUDA] Programa para cálculo de comissão e parcelas


mauriciogaba

Pergunta

Olá,

Tenho um trabalho da faculdade que deve ter aplicação na empresa,

eu trabalho em uma corretora de seguros e iniciei um programa para calculo de comissão e parcelas com juros.

Porém, não tenho conhecimento nem experiência para aprimorá-lo, então gostaria de saber se alguém poderia me auxiliar

O que falta:

* Antes de começar informar os valores, precisa aparecer "Informe a forma de Pagamento" ai Escolher entre "BOLETO" e "DEBITO"

* Se escolhido BOLETO, executar as linhas já feitas, porém, que sempre a PRIMEIRA parcela não incide JUROS, apenas IOF, ou seja, se escolha pagar em 1x haverá apenas a soma da taxa de IOF, mesmo se eu informar a taxa de Juros .

*Sendo DEBITO, seria o mesmo princípio, porém, as 6 PRIMEIRAS parcelas não será incluso Juros, ou seja, o cliente pode fazer em 1,2,3,4,5,6 vezes no boleto que não havera juros, apenas IOF somado ao valor líquido.

Program precodeseguro;
uses
SysUtils, Crt;
var
vf, vp, tj, t, p1, i, c, co, iof : Real;
k,p: integer;
Begin
ClrScr;
p1 := 0;
WriteLn ('Calculo de IOF e parcelas com Juros - ELTHON,GABRIEL,JACKSON E JULIO');
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);
iof :=(7.38/100);
vf := vp*(1+iof*1);
for k := 1 to p do
begin
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.
Editado por mauriciogaba
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

amigo, achei que voce tinha aprendido algo com o seu ultimo post

bastaria fazer algumas mudanças simples

voce e seus colegas ELTHON,GABRIEL,JACKSON E JULIO terão muitas dificuldades nessa área

program precodeseguro;

{$APPTYPE CONSOLE}

uses
  SysUtils;//, Crt;
var
  vf, vp, tj, t, p, p1, i, c, co : Real;
  fp : integer;
Const
  iof=(7.38/100);
Begin
  //ClrScr;
  p1 := 0;
  WriteLn ('Calculo de IOF e parcelas com Juros - ELTHON,GABRIEL,JACKSON E JULIO');
  WriteLn;
  Write ('Valor Liquido.: '); ReadLn (vp);
  Write ('Taxa de Juros.: '); ReadLn (tj);
  WriteLn ('IOF...........: 7.38 ');
  Write ('Parcelas......: '); ReadLn (p);
  Write ('Forma de Pagamento.... Boleto(1)  Debito(2): '); ReadLn (fp);
  t := tj/100; // Taxa em porcento

  // PAGAMENTO EM BOLETO
  if (p = 1) and (fp = 1) then   // 1 parcela 
     begin
       vf := vp*(1+iof*p);
       p1 := vf / p;
     end;

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

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

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

  if (p = 5) and (fp = 1) then   // 5 parcelas
     begin
       vf := vp*(1+iof*p);
       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) and (fp = 1) then   // 6 parcelas
     begin
       vf := vp*(1+iof*p);
       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;

  //  PAGAMENTO POR DEBITO
  if (p = 1) and (fp = 2) then   // 1 parcela 
     begin
       vf := vp*(1+iof*p);
       p1 := vf / p;
     end;

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

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

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

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

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


  WriteLn;
  WriteLn ('Valor Liquido:',vp:8:2);
  WriteLn ('Valor das parcelas:',p:2:0,'X',p1:8:2);
  WriteLn ('Valor Total:',vf:4:2);  ///  mostra o valor total
  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,8k
×
×
  • Criar Novo...