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.

É que as companhias mostram os preços assim: 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

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.

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.

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???