h) Dado o salário de uma pessoa, cobrar 8% de INSS e verificar se ela paga IR calcular o valor a ser pago de acordo com os critérios abaixo, depois de todos os cálculos efetuados, exibir o salário bruto, INSS, IR e salário liquido:
Base de cálculo mensal Alíquota %
Até 1.434,59 0
De 1.434,60 até 2.150,00 7,5
De 2.150,01 até 2.866,70 15,0
De 2.866,71 até 3.582,00 22,5
Acima de 3.582,00 27,5
A minha duvida e se o calculo e feito antes o no meio do Codigo alguém Pode me ajudar analisem por favor:
Pergunta
valterlin
h) Dado o salário de uma pessoa, cobrar 8% de INSS e verificar se ela paga IR calcular o valor a ser pago de acordo com os critérios abaixo, depois de todos os cálculos efetuados, exibir o salário bruto, INSS, IR e salário liquido:
Base de cálculo mensal Alíquota %
Até 1.434,59 0
De 1.434,60 até 2.150,00 7,5
De 2.150,01 até 2.866,70 15,0
De 2.866,71 até 3.582,00 22,5
Acima de 3.582,00 27,5
A minha duvida e se o calculo e feito antes o no meio do Codigo alguém Pode me ajudar analisem por favor:
Program Salario ;
Var
Salario,Inss,ir,Ir01,Ir02,Ir03,Ir04,SalBruto,SalLiquido :real;
Begin
write ('Digite seu salario: ');
Readln (salario);
salLiquido:= (salario - inss);
Inss:= (SALARIO * 0.8);
SalBruto:= (salario + inss + ir );
Ir01:= (salario * 7.5);
Ir02:= ( salario * 15.0);
ir03:= ( salario * 22.5);
ir04:= (salario * 27.5);
If ( salario <= 1434.59 ) then
write ('Não Paga IR')
else
if (salario >= 1434.59) and (salario <= 2150.00) then
write (ir01)
else
if ( salario >= 2150.01) and ( salario <= 2866.70 ) then
write (Ir02)
else
if ( salario >= 2866.71) and ( salario <= 35822.00) then
write (Ir03)
else
if ( salario >= 35822.01 ) then
write (Ir04);
write('Salario:',salario,'Inss:',inss,'SalBruto: ',SalBruto,'Salliquido: ',SalLiquido);
End.
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.