Informática, perguntado por roseflorcris, 1 ano atrás

Uma empresa decidiu auxiliar os funcionários e seus dependentes oferecendo uma bonificação para os estudos. Elabore um algoritmo para ler informações sobre 6 pessoas:

o valor da mensalidade. Fazer crítica (restrição) para que não seja aceito o valor 0 ou negativo.
o nível do curso (I para educação Infantil, B para educação Básica ou M para ensino Médio). Fazer crítica (restrição) para aceitar apenas os níveis I para infantil, B para básico ou M para médio.
o tipo de aluno (F para funcionário ou D para dependente). Fazer crítica (restrição) para aceitar apenas os tipos F para funcionário ou D para dependente.


Para cada aluno o algoritmo deve calcular:

Valor total do curso (valor da mensalidade vezes 12 mensalidades).
O valor mensal da bonificação. Este valor é calculado sobre o valor mensal do curso, sendo: 50% para funcionário e 30% para dependente.
Obs.: Para curso da educação infantil ou do ensino médio, conceder uma bonificação adicional de 5%.



No final o algoritmo deve informar quantos funcionários e quantos dependentes foram processados.

Soluções para a tarefa

Respondido por felipelisom
1
Acabei hoje, ou melhor agora!
Se não abri no seu computador a minha resposta tente ver o bloco de notas em baixo!
algoritmo "Bonificação para Cursos"


var
  vt,vm,vmb,vb:real  // (vt)Valor total,(vm)Valor mensal,(vmb)Valor mensal bonificado,(vb)Valor bonificado

  nivel_curso,tipo_curso:literal

  pe,fun,dep:inteiro
inicio
//Seção de Comandos
    fun :=0
    dep :=0

   para pe de 1 ate 6 faca


 escreva("Digite o",pe,"º valo da mensalidade, :R$ ")
   leia(vm)
     enquanto (vm <= 0) faca
escreva("Valor inválido Reinforme o valor da mensalidade: ")
   leia(vm)
     fimenquanto

 escreval("")
 escreval("Nivel do curso!")
 escreval("")
 escreval("(I) Educação Infantil")
 escreval("(B) Educaçãio Basica")
 escreval("(M) Ensino Medio")
 escreval("")
 escreva("Digite apenas a letra em (),Exemplo(E):")
   leia(nivel_curso)

    enquanto((nivel_curso<>"I") e (nivel_curso<>"i") e (nivel_curso<>"B") e (nivel_curso<>"b") e (nivel_curso<>"M") e (nivel_curso<>"m")faca
     escreval("Nivel inválido. Reinforme o nível do curso!")
     escreval("")
 escreval("Nivel do curso!")
 escreval("")
 escreval("(I) Educação Infantil")
 escreval("(B) Educaçãio Basica")
 escreval("(M) Ensino Medio")
 escreval("")
 escreva("Digite apenas a letra em (),Exemplo(E):")
   leia(nivel_curso)
     fimenquanto

 escreval("")
 escreval("Tipo do curso!")
 escreval("")
 escreval("(F) Funcionario")
 escreval("(D) Dependente")
 escreval("")
 escreva("Digite apenas a letra em (),Exemplo(E):")
   leia(tipo_curso)
 escreval("")
 enquanto((tipo_curso<>"D")e(tipo_curso<>"d")e(tipo_curso<>"F")e(tipo_curso<>"f")faca
 escreval("Tipo inválido. Reinforme o tipo de aluno")
    escreval("")
 escreval("Tipo do curso!")
 escreval("")
 escreval("(F) Funcionario")
 escreval("(D) Dependente")
 escreval("")
 escreva("Digite apenas a letra em (),Exemplo(E):")
   leia(tipo_curso)
     fimenquanto

     se(tipo_curso="F")ou(tipo_curso="f")entao
       fun<-(fun+1)
      senao
       dep<-(dep+1)
       fimse
      
    vt<-(vm*12)
   
se((nivel_curso="i") ou (nivel_curso="I") ou(nivel_curso="m") ou (nivel_curso="M")) e ((tipo_curso="d") ou (tipo_curso="D"))entao
    vb<-((vm*5)/100) + ((vm*30)/100)
    vmb<-(vm-vb)
       escreval("Valor Total :R$",vt)
       escreval("Valor da mensalidade bonificado :R$",vb)
       escreval("")
      
  senao
 
se((nivel_curso="i") ou (nivel_curso="I") ou(nivel_curso="m") ou (nivel_curso="M")) e ((tipo_curso="f") ou (tipo_curso="F"))entao
    vb<-((vm*5)/100) + ((vm*50)/100)
    vmb<-(vt-vb)
       escreval("Valor Total :R$",vt)
       escreval("Valor da mensalidade bonificado :R$",vb)
       escreval("")
      
  senao

se((nivel_curso="b") ou (nivel_curso="B")) e ((tipo_curso="d") ou (tipo_curso="D")) entao
   vb<-(vm*30)/100)
   vmb<-(vt-vb)
       escreval("Valor Total :R$",vt)
       escreval("Valor da mensalidade bonificado :R$",vb)
       escreval("")
      
  senao

se((nivel_curso="b") ou (nivel_curso="B")) e ((tipo_curso="f") ou (tipo_curso="F")) entao
   vb<-((vm*50)/100)
   vmb<-(vt-vb)

       escreval("Valor Total :R$",vt)
       escreval("Valor da mensalidade bonificado :R$",vb)
       escreval("")
      
  senao

   escreval("Valor Total R$:",vt)
   escreval("Error! Nivel ou Tipo do curso Incorretor!")
       escreval("")
          fimse
          fimse
          fimse
          fimse
 fimpara
          escreval("Numeros total de Funcionarios é: ",fun)
          escreval("Numeros total de Dependentes é: ",dep)
fimalgoritmo


Anexos:
Perguntas interessantes