Question

Elaboração de algoritmo. (em visualG)



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 mensalidade

· o nível do curso (I para educação Infantil, B para 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 uma bonificação adicional de 5%.

Answer 1

Primeiramente, definimos as variáveis, depois pedimos para o algoritmo ler 
o nome do aluno, o tipo de curso, e o valor da mensalidade do curso.

Feito isso, podemos partir para os cálculos, é feito o cálculo do valor total do curso (mensalidade * 12), depois vem as condições, que incluem os tipos de aluno e os tipos de curso, cada um com seu desconto.

Abaixo o código em Visualg:

var

curso, tipo_aluno, nome: caractere
mensalidade, valor_curso, bonificacao: real

inicio

escreval("Nome do aluno")
leia(nome)

escreval("Digite F para funcionpario e D para dependente")
leia(tipo_aluno)

escreval("Informe o nível do curso, digite I para infantil, B para educação básica e M para educação média")
leia(curso)

escreval("Informe o valor da mensalidade do curso")
leia(mensalidade)

valor_curso <- mensalidade*12

se tipo_aluno = "F" faca

valor_curso <- valor_curso - (valor_curso*0.5)
mensalidade <- mensalidade - (mensalidade*0.5)
 
    se curso = "I" faca
        valor_curso <- valor_curso - (valor_curso*0.05)
        mensalidade <- mensalidade - (mensalidade*0.05)
    fimse
 
    se curso = "M" faca
       valor_curso <- valor_curso - (valor_curso*0.05)
       mensalidade <- mensalidade - (mensalidade*0.05)
    fimse                  
fimse     

se tipo_aluno = "D" faca

   valor_curso <- valor_curso - (valor_curso*0.3)
   mensalidade <- mensalidade - (mensalidade*0.3)     

   se curso = "I" faca
        valor_curso <- valor_curso - (valor_curso*0.05)
        mensalidade <- mensalidade - (mensalidade*0.05)
    fimse                       

    se curso = "M" faca
        valor_curso <- valor_curso - (valor_curso*0.05)       
        mensalidade <- mensalidade - (mensalidade*0.05)     
    fimse                  
fimse                        

escreval("O aluno", aluno,"pagará o total de, ", valor_curso, ", e o valor da mensalidade será de, ",mensalidade)                                              

fim