Cálculadora de décimo terceiro
Publicado por rafael farias novaes 27/01/2009
[ Hits: 5.341 ]
Homepage: http://www.vivaolinux.com.br/perfil/verPerfil.php?login=bfmano
Download Cálculadora De Décimo Terceiro, Código-Fonte.txt
Componentes necessários:
Label1=SALÁRIO
Label2=MESES DE TRABALHO
Label3=RESULTADO
Button1=CALCULAR
Button2=APAGAR
Button3=SAIR
unit UdecimoTerceiro; {$mode objfpc}{$H+} interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls; type { TForm2 } TForm2 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form2: TForm2; implementation { TForm2 } procedure TForm2.Button3Click(Sender: TObject); begin Form2.Close; end; procedure TForm2.Button2Click(Sender: TObject); begin Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; end; procedure TForm2.Button1Click(Sender: TObject); var n1,n2,calculo:real; begin n1:=StrToFloat(Edit1.text); n2:=StrToFloat(Edit2.text); calculo:=n1*n2/12; Edit3.text:=FloatToStr(calculo); end; initialization {$I udecimoterceiro.lrs} end.
Programa que realiza o reajuste salarial de acordo com o cargo
programa para selecionar os números em posições impares em array de 19 espaços e calcular a media
Atualizando o Passado: Linux no Lenovo G460 em 2025
aaPanel - Um Painel de Hospedagem Gratuito e Poderoso
O macete do Warsaw no Linux Mint e cia
Visualizar arquivos em formato markdown (ex.: README.md) pelo terminal
Dando - teoricamente - um gás no Gnome-Shell do Arch Linux
Como instalar o Google Cloud CLI no Ubuntu/Debian
Mantenha seu Sistema Leve e Rápido com a Limpeza do APT!
Procurando vídeos de YouTube pelo terminal e assistindo via mpv (2025)
Iinstalar o Scanner Kodak i940 no Linux Mint 19/20? (4)
Pastas da raiz foram para a área de trabalho [RESOLVIDO] (11)
Será que eu deveria apreender C/C++ para desenvolver para Linux? (4)