Ajuda com trabalho da faculdade (Simples)

Delphi

04/12/2013

preciso programar em Delphi mais como na minha universidade usamos o Java não sei nada sobre o assunto, o problema é o seguinte

Calcule o salário líquido de um funcionário, sabendo que sobre o salário bruto, incide-se um desconto de 8,5% para a previdência e sobre o restante, tem-se um desconto de 26,6% para o IR. Leia o salário bruto e mostre o salário líquido, o IR e a previdência

se pudessem me mandar o código pronto e explicar qual é a função de cada parte do programa agradeceria
Bruno Freisleben

Bruno Freisleben

Curtidas 0

Respostas

Járabe Emanuel

Járabe Emanuel

04/12/2013

1 - Crie uma aplicação nova = File > new > VCL Forms Application – Delphi
2 – No Form Criado coloque 4 Label , 4 Edit e um Button; paleta Tool Palette
Nos Labels Coloque os nomes respectivo tipo: Salário bruto, IR e etc...
Na propriedade OnClick do Button coloque
Var
  A : Extended;
begin
   //Calcula o valor da previdência,
   //Coloca em formato Real '###,##0.00'
   // 8,5 / 100 = 0,085 valor do percentual para a previdencia
  Edit4.Text :=  FormatFloat('###,##0.00', StrToFloat(Edit1.Text) * StrToFloat('0,085'));
   //Subtrai o valor da previdencia do salário bruto
   // Variavel A, Quarda o valor da subtração
  A := StrToFloat(Edit1.Text) - StrToFloat(Edit4.Text);
   //Calcula o valor do IR,
   // 26,6 / 100 = 0,266 valor do percentual para o IR
  Edit3.Text := FormatFloat('###,##0.00', A * StrToFloat('0,266'));
   //Subtrai o valor da IR do salário armazenado na variavel A;
   //Motra o salário liquido
  Edit2.Text := FormatFloat('###,##0.00', A - StrToFloat(Edit4.Text));
end;


Na propriedade OnExit do Edit1 coloque 
   //Ao sair do edit1 verificar se ele está fazio
  if Edit1.Text <> '' then
     //Se o edit1 não estiver vazio, formata o que foi digitado em formato de Real
    Edit1.Text :=  FormatFloat('###,##0.00', StrToFloat(Edit1.Text));


Espero ter ajudado
GOSTEI 0
POSTAR