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
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
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
História,
11 meses atrás
Artes,
11 meses atrás
História,
11 meses atrás
Biologia,
1 ano atrás
Matemática,
1 ano atrás