my code stock.com

Pergunta feita por Fabio Cardoso, 09/05/2015:

"Amigos, preciso fazer uma procedure que calcule o valor das parcelas com juros, a partir da parcela n. Por exemplo, o cliente compra o valor de 500,00 dividido em 10x, porém a partir da quinta parcela haverá juros de 2% ao mês. Como fazer?"

Snippet options

Download: Download snippet as calculo-financeiro-1.pas.
Copy snippet: For this you need a free my code stock.com account.
Embed code : You will find the embed code for this snippet at the end of the page, if you want to embed it into a website or a blog!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  precoProduto :          Integer;
  juros :                 Integer;
  jurosIniciamNaParcela : Integer;
  i :                     Integer;
  quantidadeDeParcelas :  Integer;
  precoFinal :            Double;
begin
  precoProduto :=          500;
  juros :=                 2;
  jurosIniciamNaParcela := 5;
  quantidadeDeParcelas :=  10;
  precoFinal :=            0;

  for i := 1 to quantidadeDeParcelas do begin
    if (i >= jurosIniciamNaParcela) then
      precoFinal := precoFinal + (precoProduto/quantidadeDeParcelas) + ((precoProduto/quantidadeDeParcelas) * (juros/100))
    else
      precoFinal := precoFinal + (precoProduto/quantidadeDeParcelas);
  end;

  writeln(FloatToStr(precoFinal));
  readln;

end.

Create a free my code stock.com account now.

my code stok.com is a free service, which allows you to save and manage code snippes of any kind and programming language. We provide many advantages for your daily work with code-snippets, also for your teamwork. Give it a try!

Find out more and register now

You can customize the height of iFrame-Codes as needed! You can find more infos in our API Reference for iframe Embeds.