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

[mauriciogaba]

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 Novembro 21, 2014 por mauriciogaba

[Jhonas]

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