O Calculo IR - VisualG

Algoritmo "CalculoIR";

Var

        nome: Caractere

         ValorHoraTr, QuantidadeHoraTr, SalarioBruto, SalarioLiquido, IR, INSS, FGTS, Descontos : REAL

Inicio

        Escreval("Informe seu nome")

        Leia(Nome)

        Escreval("Infome o valor da sua hora trabalhada")

        Leia(ValorHoraTr)

        Escreval("Informe sua quantidade de horas trabalhadas no mês")

        Leia(QuantidadeHoraTr)

        SalarioBruto <-ValorHoraTr*QuantidadeHoraTr

        se (SalarioBruto <=900) entao

        IR <- 0

        senao se(SalarioBruto >900) e (SalarioBruto < OU =1500)entao

        IR <- SalarioBruto*0.05

fimse

        se(SalarioBruto > 1500) e (SalarioBruto <=2500) entao

        IR <- SalarioBruto*0.10

        fimse

        se (SalarioBruto > 2500) entao

        IR <- SalarioBruto*0.20

        fimse

        INSS <-SalarioBruto*0.10

   FGTS <- SalarioBruto*0.11

   Descontos <- IR+INSS

   SalarioLiquido <- SalarioBruto - Descontos

   

   Escreval("Seu salário bruto é:", salarioBruto)

   Escreval("Seu imposto de renda é:", Ir)

   Escreval("Seu INSS é:", INSS)

   Escreval("Seu FGTS é:", FGTS)

   Escreval("Total de descontos é:", Descontos)

   Escreval("Seu salario liquido é:", SalarioLiquido)

        

Fimalgoritmo

...