Alguém poderia me ajudar fazendo esses 2 problemas na linguagem Portugol?
1) Organizações Tabajara resolveram dar um aumento de salário aos seus colaboradores e lhe contraram para desenvolver o programa que calculará os reajustes.
Faça um programa que recebe o salário de um colaborador e o reajuste segundo o seguinte critério, baseado no salário atual:
- salários até R$ 280,00 (incluindo) : aumento de 20%
- salários entre R$ 280,00 e R$ 700,00 : aumento de 15%
- salários entre R$ 700,00 e R$ 1500,00 : aumento de 10%
- salários de R$ 1500,00 em diante : aumento de 5%
Após o aumento ser realizado, informe na tela: o salário antes do reajuste; o percentual de aumento aplicado; o valor do aumento; o novo salário, após o aumento.
2) Faça um programa para o cálculo de uma folha de pagamento, sabendo que os descontos são do Imposto de Renda, que depende do salário bruto (conforme tabela abaixo) e 3% para o Sindicato e que o FGTS corresponde a 11% do Salário Bruto, mas não é descontado (é a empresa que deposita). O Salário Líquido corresponde ao Salário Bruto menos os descontos. O programa deverá pedir ao usuário o valor da sua hora e a quantidade de horas trabalhadas no mês.
Desconto do IR:
Salário Bruto até 900 (inclusive) - isento
Salário Bruto até 1500 (inclusive) - desconto de 5%
Salário Bruto até 2500 (inclusive) - desconto de 10%
Salário Bruto acima de 2500 - desconto de 20% Imprima na tela as informações, dispostas conforme o exemplo abaixo. No exemplo o valor da hora é 5 e a quantidade de hora é 220.
(tabela exemplo do exerc. em anexo)
Respostas
Resposta:
EXERCÍCIO 1 :
Algoritmo "exercicio_1"
Var
salarioInicial, salarioAjustado : real
Inicio
escreva("Informe seu Salário : ")
leia(salarioInicial)
se (salarioInicial <= 280) entao
salarioAjustado <- (salarioInicial * 1.20)
fimse
se (salarioInicial > 280) e (salarioInicial <= 700) entao
salarioAjustado <- (salarioInicial * 1.15)
fimse
se (salarioInicial > 700) e (salarioInicial <= 1500) entao
salarioAjustado <- (salarioInicial * 1.10)
fimse
se (salarioInicial > 1500) entao
salarioAjustado <- (salarioInicial * 1.05)
fimse
escreval("O Salário Informado foi R$",salarioInicial:5:2," e com o Ajuste ficou R$",salarioAjustado:5:2)
Fimalgoritmo
EXERCÍCIO 2 :
Algoritmo "exercicio_2"
Var
valorHora, quantidadeHora : inteiro
valorBruto, valorLiquido, ir, inss, fgts, desconto : real
Inicio
escreva("Informe o Valor da Hora : ")
leia(valorHora)
escreva("Informe a Quantidade de Horas : ")
leia(quantidadeHora)
valorBruto <- (valorHora * quantidadeHora)
se (valorBruto <= 900) entao
ir <- 0
inss <- valorBruto * 0.10
fgts <- valorBruto * 0.11
desconto <- ir + inss
valorLiquido <- valorBruto - desconto
escreval(" Salário")
escreval("Bruto: (",valorHora," x ",quantidadeHora,")")
escreval(": R$ ",valorBruto:5:2)
escreval("") // Pra dar um espaçamento
escreval(" (-) IR")
escreval("(ISENTO)")
escreval(": R$0,00")
escreval("")
escreval(" (-) INSS")
escreval("(10%)")
escreval(": R$",inss)
escreval("")
escreval(" (-) FGTS")
escreval("(11%)")
escreval(": R$",fgts)
escreval("")
escreval(" Total de Descontos")
escreval(": R$",desconto)
escreval("")
escreval(" Salário Liquido")
escreval(": R$",valorLiquido:5:2)
fimse
se (valorBruto > 900) e (valorBruto <= 1500) entao
ir <- valorBruto * 0.05
inss <- valorBruto * 0.10
fgts <- valorBruto * 0.11
desconto <- ir + inss
valorLiquido <- valorBruto - desconto
escreval(" Salário")
escreval("Bruto: (",valorHora," x ",quantidadeHora,")")
escreval(": R$ ",valorBruto:5:2)
escreval("") // Pra dar um espaçamento
escreval(" (-) IR")
escreval("(5%)")
escreval(": R$",ir)
escreval("")
escreval(" (-) INSS")
escreval("(10%)")
escreval(": R$",inss)
escreval("")
escreval(" (-) FGTS")
escreval("(11%)")
escreval(": R$",fgts)
escreval("")
escreval(" Total de Descontos")
escreval(": R$",desconto)
escreval("")
escreval(" Salário Liquido")
escreval(": R$",valorLiquido:5:2)
fimse
se (valorBruto > 1500) e (valorBruto <= 2500) entao
ir <- valorBruto * 0.10
inss <- valorBruto * 0.10
fgts <- valorBruto * 0.11
desconto <- ir + inss
valorLiquido <- valorBruto - desconto
escreval(" Salário")
escreval("Bruto: (",valorHora," x ",quantidadeHora,")")
escreval(": R$ ",valorBruto:5:2)
escreval("") // Pra dar um espaçamento
escreval(" (-) IR")
escreval("(10%)")
escreval(": R$",ir)
escreval("")
escreval(" (-) INSS")
escreval("(10%)")
escreval(": R$",inss)
escreval("")
escreval(" (-) FGTS")
escreval("(11%)")
escreval(": R$",fgts)
escreval("")
escreval(" Total de Descontos")
escreval(": R$",desconto)
escreval("")
escreval(" Salário Liquido")
escreval(": R$",valorLiquido:5:2)
fimse
se (valorBruto > 2500) entao
ir <- valorBruto * 0.20
inss <- valorBruto * 0.10
fgts <- valorBruto * 0.11
desconto <- ir + inss
valorLiquido <- valorBruto - desconto
escreval(" Salário")
escreval("Bruto: (",valorHora," x ",quantidadeHora,")")
escreval(": R$ ",valorBruto:5:2)
escreval("") // Pra dar um espaçamento
escreval(" (-) IR")
escreval("(20%)")
escreval(": R$",ir)
escreval("")
escreval(" (-) INSS")
escreval("(10%)")
escreval(": R$",inss)
escreval("")
escreval(" (-) FGTS")
escreval("(11%)")
escreval(": R$",fgts)
escreval("")
escreval(" Total de Descontos")
escreval(": R$",desconto)
escreval("")
escreval(" Salário Liquido")
escreval(": R$",valorLiquido:5:2)
fimse
fimalgoritmo