Algoritimos resolvidos
algoritmo "semnome"
// Função :
// Autor :
// Data : 28/07/2011
// Seção de Declarações var numeroDependente: inteiro nome, flagSalarioLiquido : caracter rendaMensal, rendamensalDesconto: real rendaBaseIRPF, inss,irpf, descontoDependente, valorDependente, salarioLiquido: real inicio // Seção de Comandos repita numeroDependente <- 0 nome <- "" rendaMensal <- 0 rendaMensalDesconto <- 0 rendaBaseIRPF <- 0 inss <- 0 irpf <- 0 descontoDependente <- 90 valorDependente <- 0 salarioLiquido <- 0
escreval (" Informe o nome do funcionário: ") leia (nome) escreval (" Informe a renda mensal: ") leia (rendaMensal) escreval (" Informe o numero de dependentes: ") leia (numeroDependente) valorDependente <- numeroDependente * descontoDependente rendaMensalDesconto <- rendaMensal - valorDependente
se (rendaMensalDesconto<= 287.27) entao inss<- rendaMensalDesconto * 8/100 senao se ((rendaMensalDesconto > 287.27) e (rendaMensalDesconto <= 478.78)) entao inss <- rendaMensalDesconto * 9/100 senao se ((rendaMensalDesconto > 478.78) e (rendaMensalDesconto <= 957.56)) entao inss <- rendaMensal * 11/100 senao inss <- 105.33 fimse fimse fimse salarioLiquido <- rendaMensal - valorDependente - inss - irpf
escreval ("") escreval (" Funcionário : ", nome) escreval (" Renda mensal : ", rendaMensal :9:2) escreval (" Número de Dependentes : ", numeroDependente) escreval (" Desconto dos Dependentes : ", valorDependente) escreval (" Renda mensal : ", rendaMensal :9:2) escreval (" Renda mensal c/ desc. Dependentes : ", rendaMensalDesconto :9:2) escreval (" INSS : ", inss :9:2) escreval (" Renda Líquida : ", rendaBaseIRPF :9:2) escreval (" Imposto de Renda : ", irpf :9:2) escreval ("") escreval (" SALÁRIO LIQUIDO ", salarioLiquido :9:2) escreval ("")
escreval (" Deseja realizar novo cálculo na folha de pagamento? (S/N): ")
leia (flagSalarioLiquido) limpatela ate flagSalarioLiquido = "N"
fimalgoritmo
[hr]
algoritmo "ex15"
// Função : Faça um algoritmo que receba um número e