ex salario

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "salarios"
var
Salario,Sal_Reaj:real
Profissao:caractere
inicio
Escreval("Entre com a profissao: Auxiliar, Tecnico, Gerente, Outro ")
leia(Profissao)
Escreval("Entre com Salario")
Leia(Salario)
Escolha Profissao
 Caso "Tecnico","Auxiliar"
 Sal_Reaj<-1.5*Salario
 Caso "Gerente"
 Sal_Reaj<-1.3*Salario
 Caso "Outro"
 Sal_Reaj<-1.1*Salario
 Fimescolha
 Escreval("Salario Reajustado = ",Sal_Reaj)
 
fimalgoritmo