e programa copilou legal mai so deu um probleminha... me parece q ele ficou infinito não para, o certo era so chegar até 50 não é? mais ele não para... como eu faço para corrigir? eu fiz desse jeito oOOOOoooo!!!! algoritmo "remuneração"
// Função :
// Autor :
// Data : 21/2/2008
// Seção de Declarações
var
sal,ContSal_35,ContSal_15,ContSal_5,aux: real
cont: inteiro
inicio
// Seção de Comandos
cont <- 1
enquanto (cont < 50) faca
aux <- 0
escreva (" entre com o salario: ")
leia (sal)
se (sal < 1500) então
ContSal_35 <- (35 * sal / 100)
aux <- (sal + ContSal_35)
escreva (ContSal_35, "+", sal, "=", aux, " ")
senao
se (sal <= 3000) e (>= 1500) então
ContSal_15 <- (15 * sal / 100)
aux <- (sal + ContSal_15)
escreva (ContSal_15, "+", sal, "=", aux, " ")
senao
se (sal > 3000) então
ContSal_5 <- (5 * sal / 100)
aux <- (sal * ContSal_5)
escreva (ContSal_5, "+", sal, "=", aux, " ")
fimse
fimse
fimse
fimenquanto
fimalgoritmo o trêm não para não -.-"