F�rum Ajuda com trabalho da faculdade (Simples) #462964

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

Curtir t�pico

+ 0

Responder

Posts

04/12/2013

J�rabe Emanuel

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

Responder

Gostei + 0