[Exemplo] - Estudo 'se' - estrutura simples

[Elektra 102]

1. Calcule a folha de pagamento de um funcionário levando em consideração os seguintes dados:

 

 

2. Calcule o valor do empréstimo solicitado, sabendo-se que, o valor da prestação não pode atingir 30% do valor do salário líquido do mesmo.

 

var
    nome: caracter
    base, salario: real
    idade, dep, faltas: inteiro
    inss, ir: real
    add_idade: real
    add_dep: real
    add_freq: real
    limite: real
    num_parc: inteiro
    emprestimo: real


inicio
// Seção de Comandos
      escreval ("Nome do funcionário: ")
      leia (nome)
      escreval ("Salário base: ")
      leia (base)
      escreval ("Idade: ")
      leia (idade)
      escreval ("Número de dependentes: ")
      leia (dep)
      escreval ("Faltas no mês: ")
      leia (faltas)
      escreval ("Informe o número de parcelas do empréstimo: ")
      leia (num_parc)

      // adicional dependentes ----------------------------SOMA
      se (dep > 0) entao
          add_dep <- dep * (base * 0.005) // 0,5%
      fimse
      escreval ("adicional dependentes: ", add_dep)

      //adicional idade ------------------------------------SOMA
       se (idade > 25)entao
            add_idade <- (idade - 26) * (base * 0.01)  // 0,1%
       fimse
       escreval("adicional idade: ", add_idade)

       //adicional por frequencia --------------------------SOMA
       se (faltas = 0) entao
            add_freq <- base * 0.025
       fimse
       escreval("adicional frequência: ", add_freq)

       //inss (desconto) ----------------------------------SUBTR
       se ((base >= 437.51) e (base <= 800)) entao
          inss <- base * 0.008 // 8 %
          se (base > 800) entao
              inss <- base * 0.085  // 8,5%
          fimse
      fimse
      escreval("desconto inss: ", inss)

       //ir (desconto) ------------------------------------SUBTR
       se ((base >= 437.50) e (base <= 800))entao
                ir <-  base * 0.03
       fimse
       se ((base > 800) e (base <= 1300))entao
                ir <- base * 0.05
       senao
            ir <- base * 0.07
       fimse
       escreval ("desconto ir: ", ir)


       salario <- base +  (add_dep + add_idade + add_freq) - (inss - ir )
       escreval ("Salário líquido a receber: R$ ",salario)

       escreval ("")
       escreval ("")
       // limite máximo das prestações
       limite <- (salario * 0.3) - 1  //  parcela < 30% do salário líquido
       escreval ("Limite das parcelas:  ",limite)

       // valor do empréstimo
       emprestimo <- limite * num_parc
       escreval ("Valor do empréstimo:  ",emprestimo)


fimalgoritmo

 

 

Abraços :graduated:

[blacksaint 0]

Maravilhoso algoritmo

parabéns

[quitZAUMMM 18]

Opa, obrigado por compartilhar ;D

 

[]s