Boa tarde, estou com o mesmo problema na atividade e mesmo assim não aparece o resultado final, apenas uma parte dele
Var
codigo, horas_trab :inteiro
turno, categoria :caractere
sal_minimo, valor_hora, sal_inicial, aux_aliment, sal_final :real
Inicio
Escreval("Digite o codigo do funcionario:")
Leia(codigo)
Escreval("Digite o numero de horas trabalhadas no mês:")
Leia(horas_trab)
Escreval("Digite o turno de trabalho (M-Matutino, V-Vespertino, N-Noturno)")
Leia(turno)
Escreval("Informe a categoria do (G-Gerente, F-Funcionario)")
Leia(categoria)
Escreval("Digite o valor do salario minimo:")
Leia(sal_minimo)
Se (categoria = "G") e (turno = "N")então
valor_hora <- sal_minimo * 0.06
fimse
se (categoria = "G") e (turno = "M")então
valor_hora <- sal_minimo * 0.04
fimse
se (categoria = "G") e (turno = "V")então
valor_hora <- sal_minimo * 0.04
fimse
se (categoria = "F") e (turno = "N")então
valor_hora <- sal_minimo * 0.02
fimse
se (categoria = "F") e (turno = "M")então
valor_hora <- sal_minimo * 0.01
fimse
se (categoria = "F") e (turno = "V")então
valor_hora <- sal_minimo * 0.01
fimse
sal_inicial <- horas_trab * valor_hora
escolha (sal_inicial)
Caso 0 ate 780
aux_aliment <- sal_inicial * 0.25
Caso 781 ate 1200
aux_aliment <- sal_inicial * 0.20
Caso 1201 ate 9999999
aux_aliment <- sal_inicial * 0.15
fimescolha
sal_final <- sal_inicial + aux_aliment
Escreval("Codigo:",codigo," Horas Trabalhadas:",horas_trab)
Escreval("Valor da Hora Trabalhada:",valor_hora," Salario Inicial:",sal_inicial)
Escreval("Auxilio Alimentação:",aux_aliment," Salario Final:",sal_final)
fimpara
Fimalgoritmo
Estou tentando a horas achar o erro, mas parece q e impossível. me ajudem pelo menos a enteder o problema