Question

Usando o algoritmo desenvolvido na atividade semanal 3, elabore um algoritmo para ler as informações de 5 alunos:



O algoritmo deverá ler:



O valor da mensalidade do curso. Fazer crítica (restrição)para que não seja aceito o valor 0 (zero) ou negativo.
Oturno do curso escolhido (M para manhã, T para tarde e N para noite). Fazercrítica (restrição) para aceitar apenas os níveis M para manhã, T para tarde ou N para noite.
Acategoria do aluno (B para baixa renda e N para renda normal). Fazer crítica (restrição)para aceitar apenas os tipos B para renda familiar baixa ou N para renda familiar normal.


O algoritmo deverá calcular e exibir:



Valor total do curso durante 1 ano (valor da mensalidade do curso vezes 12);
O valor da mensalidade do aluno. Essa mensalidade poderá sofrer alterações, dependendo do turno escolhido e da categoria do aluno, conforme descrito abaixo:
- Caso o turno escolhido for M (manhã), não haverá nenhum desconto;

- Caso o turno escolhido for T (tarde), será atribuido um desconto de 5%;

- Caso o turno escolhido for N (noite), será atribuido um desconto de 10%;



ATENÇÃO: Para alunos classificados na categoria de renda familiar baixa, será acrescido um desconto adicional de 10%, independentemente do turno escolhido.

Answer 1

var
i, quantaln: inteiro
mensalidade, desconto, valor: real
turno, categoria : caractere
inicio
quantaln <- 0
mensalidade <- 0
para i de 1 ate 5 faca   
enquanto (mensalidade<=0) faca     
escreval("Informe sua mensalidade")     
escreval("")     
leia (mensalidade)     
escreval("")     
se (mensalidade<=0) entao         
escreval("Valor invalido.")     
fimse   
fimenquanto   
enquanto ((turno<>"M") E (turno<>"T") E (turno<>"N")) faca
escreval("Informe seu turno")     
escreval("M - para manhã")     
escreval("T - para tarde")     
escreval("N - para noite")     
escreval("")     
leia(turno)     
escreval("")     
se ((turno<>"M") E (turno<>"T") E (turno<>"N")) entao         
escreval ("Turno invalido.")         
escreval("")     
fimse   
fimenquanto
enquanto ((categoria<>"B") E (categoria<>"N")) faca     
escreval("Informe sua categoria")     
escreval("B - para renda baixa")     
escreval("N - para renda normal")     
leia(categoria)     
escreval("")     
escreval("")     
se ((categoria<>"B") E (categoria<>"N")) entao         
escreval("Categoria invalida.")         
escreval("")     
fimse   
fimenquanto
se(categoria="N") entao
quantaln <- quantaln + 1
fimse
valor <- mensalidade
se(turno="T") entao
desconto <- mensalidade * 5/100
valor <- mensalidade - desconto
fimse
se(turno="N") entao
desconto <- mensalidade * 10/100
valor <- mensalidade - desconto
fimse
se categoria="B" entao
desconto <- valor * 10/100
valor <- valor - desconto
fimse      
escreval("Mensalidade: ", valor, " R$")   
escreval("Valor total do curso: ", valor*12)   
escreval("")   
escreval("")   
escreval("")
valor <- 0
desconto <- 0
categoria <- "O"
mensalidade <- 0
turno <- "O"
fimpara
escreval("O numero de alunos com renda normal e:", quantaln)
escreval("O numero de alunos com renda baixa e:", 5-quantaln)
fimalgoritmo

Um abraço!