Question

Elaboração de algoritmo
 
Uma empresa decidiu auxiliar os funcionários e seus dependentes
oferecendo uma bonificação para os estudos. Elabore um algoritmo para
ler:
o valor da mensalidadeo nível do curso (I para educação Infantil, Bpara educação Básica ou M para ensino Médio)o tipo de aluno (F para funcionário ou D para dependente)
 
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 umabonificação adicional de 5%.

Answer 1

 var
 valormensal, valortotal, valorbonifica, valormensalbonifica: real
 nivelcurso, tipoaluno: literal
 inicio
 escreva("Qual o valor da mensalidade: R$ ")
 leia(valormensal)
 escreval(" ")
 escreval("Qual o nível do curso?")
 escreval(" ")
 escreval("I Para educação infantil")
 escreval("B Para educação básica")
 escreval("M Para ensino médio")
 escreval(" ")
 escreva("Escolha uma opção e tecle enter: ")
 leia(nivelcurso)
 escreval(" ")
 escreval("Qual o tipo de aluno?")
 escreval(" ")
 escreval("F Para funcionário")
 escreval("D Para dependente")
 escreval(" ")
 escreva("Escolha uma opção e tecle enter: ")
 leia(tipoaluno)
 escreval(" ")
 valortotal <- valormensal * 12
 se ((nivelcurso = "i") ou (nivelcurso = "I") ou (nivelcurso = "m") ou (nivelcurso = "M")) e ((tipoaluno = "d") ou (tipoaluno = "D")) entao
 valorbonifica <- ((valormensal*5)/100) + ((valormensal*30)/100)
 valormensalbonifica <- valormensal - valorbonifica
 escreval("O valor total é: R$",valortotal)
 escreval("O valor mensal da bonificação é de: R$",valorbonifica)
 senao
 se ((nivelcurso = "i") ou (nivelcurso = "I") ou (nivelcurso = "m") ou (nivelcurso = "M")) e ((tipoaluno = "f") ou (tipoaluno = "F")) entao
 valorbonifica <- ((valormensal*5)/100) + ((valormensal*50)/100)
 valormensalbonifica <- valormensal - valorbonifica
 escreval("O valor total é: R$",valortotal)
 escreval("O valor mensal da bonificação é de: R$",valorbonifica)
 senao
 se ((nivelcurso = "b") ou (nivelcurso = "B")) e ((tipoaluno = "d") ou (tipoaluno = "D")) entao
 valorbonifica <- (valormensal*30)/100)
 valormensalbonifica <- valormensal - valorbonifica
 escreval("O valor total é: R$",valortotal)
 escreval("O valor mensal da bonificação é de: R$",valorbonifica)
 senao
 se ((nivelcurso = "b") ou (nivelcurso = "B")) e ((tipoaluno = "f") ou (tipoaluno = "F")) entao
 valorbonifica <- (valormensal*50)/100)
 valormensalbonifica <- valormensal - valorbonifica
 escreval("O valor total é: R$",valortotal)
 escreval("O valor mensal da bonificação é de: R$",valorbonifica)
 senao
 escreval("O valor total é: R$",valortotal)
 escreval("Erro!!! Nível de curso ou Tipo de aluno inválido")
 fimse
 fimse
 fimse
 fimse
 fimalgoritmo