Delphi 10 - Criando um App para Juros Compostos

Delphi 10 - Criando um App para Juros Compostos:

Código:


unit uJurosCompostos;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Math, Vcl.Buttons, Vcl.ExtCtrls;

type
 TFrmJC = class(TForm)
  BitBtn1: TBitBtn;
  Memo1: TMemo;
  Label1: TLabel;
  Edit1: TEdit;
  Label2: TLabel;
  Edit2: TEdit;
  Label3: TLabel;
  Edit3: TEdit;
  Panel1: TPanel;
  Panel2: TPanel;
  procedure BitBtn1Click(Sender: TObject);
 private
  { Private declarations }
 public
  { Public declarations }
 end;

var
 FrmJC: TFrmJC;

implementation

{$R *.dfm}

procedure TFrmJC.BitBtn1Click(Sender: TObject);
var
 principal, taxa, juros, montante, anterior, prest: double;
 i, meses: integer;
 montared, jurosred, mesesb, pgpresed, imesesed : String;
begin
 principal := StrToInt(Edit1.Text);
 taxa := StrToInt(Edit3.Text);
 meses := StrToInt(Edit2.Text);
 anterior := 0.0;

 Memo1.Clear;

 for i := 1 to meses do
  begin
    taxa := StrToInt(Edit3.Text) / 100;
    juros := (principal + anterior) * (taxa);
    montante := (principal + anterior) + juros;

    anterior := anterior + juros;
    prest := principal / meses + juros;

    jurosred := FormatFloat('#,##0.00', (juros));
    montared := FormatFloat('#,##0.00', (montante));
    imesesed := FormatFloat('0000', (i));
    pgpresed := FormatFloat('#,##0.00', (prest));

    Memo1.Lines.Add('Mês: '+ (imesesed)
    + ' => Montante: ' + (montared)
    + ' => Juros: ' + (jurosred)
    + ' => Prestações: ' + (pgpresed));
  end;
end;

end.