Delphi Código fonte (Calculadora de décimo terceiro salário no Lazarus/Delphi)

[BuiuDeJaraguaDoSul]

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Calcular: TButton;
    Apagar: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Sair: TButton;
    procedure ApagarClick(Sender: TObject);
    procedure CalcularClick(Sender: TObject);
    procedure SairClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.CalcularClick(Sender: TObject);
var n1,n2,resultado:real;//n1(numero1),n2(numero2),resultado(resultado do calculo)
begin
n1:=StrToFloat(Edit1.text);
n2:=StrToFloat(Edit2.text);
resultado:=n1*n2/12;
Edit3.text:=FloatToStr(resultado);
 
end;
 
procedure TForm1.SairClick(Sender: TObject);
begin
  Form1.Close;
end;
 
procedure TForm1.ApagarClick(Sender: TObject);
begin
  Edit1.text:='';
  Edit2.text:='';
  Edit3.Text:='';
end;
 
initialization
  {$I unit1.lrs}
 
end.