algoritmo "salario"
var
codigo: inteiro
horasTrabalhadas: inteiro
turno: caractere
categoria: caractere
valorHoraTrabalhada: real
salarioMinino: real
auxilioAlimentacao: real
salarioFinal: real
salarioInicial: real inicio
inicio
escreva("Informe o codigo do funcionario: ")
leia(codigo)
escreval("Qual TURNO de trabalho")
escreval("M - MATUTINO")
escreval("V - VESPERTINO")
escreval("N - NOTURNO")
leia(turno)
escreval("Qual CATEGORIA de trabalho")
escreval("G - GERENTE")
escreval("F - FUNCIONARIO")
leia(categoria)
turno <- maiusc(turno)
categoria <- maiusc(categoria)
escreva("Informe o salário minimo: ")
leia(salarioMinino)
escolha categoria
caso "G"
se turno = "N" entao
valorHoraTrabalhada <- salarioMinino * 0.6
senao valorHoraTrabalhada <- salarioMinino * 0.4
fimse
caso "F"
se turno = "N" entao
valorHoraTrabalhada <- salarioMinino * 0.2
senao
valorHoraTrabalhada <- salarioMinino * 0.1
fimse
fimescolha
escreva("Informe a quantidade de horas trabalhadas: ")
leia(horasTrabalhadas)
salarioInicial <- horasTrabalhadas * valorHoraTrabalhada
se salarioInicial < 800 entao
auxilioAlimentacao <- salarioInicial * 0.25
senao se salarioInicial <= 1200 entao
auxilioAlimentacao <- salarioInicial * 0.20
senao
auxilioAlimentacao <- salarioInicial * 0.15
fimse
fimse
salarioFinal <- salarioInicial + auxilioAlimentacao
escreval("O funcionario ", codigo, " trabalhou ", horasTrabalhadas, " com salario
inicial de: ", salarioInicial )
escreval("Com base no salario inicial, o funcionario receberá ",
auxilioAlimentacao, " de auxilio alimentação")
escreval("Valor total: ", salarioFinal)
fimalgoritmo