Question

NO VisualG
Elabore um algoritmo para ler:
O valor da mensalidade do curso;
O turno do curso escolhido (M para manhã, T para tarde e N para noite);
Categoria do aluno (B para baixa renda e N para renda normal);


O algoritmo deve 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á atribuído um desconto de 5%;

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



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

Answer 1

var
valor, mensalidade: real
duracao: real
turno: LITERAL
categoria: caractere
porcentagem1: real
renda: LITERAL
inicio
escreval(" ATENÇÂO: O curso tem como novidade beneficiar pessoas carentes.")


   escreval
   escreval("Valor da mensalidade do curso R$:")
leia(valor)

   escreval
   escreval("Duração do curso em meses: ")
   leia (duracao)


   escreval
   escreval("Valor do curso total no período R$:")
escreval(valor * duracao)

   escreval
   escreval("Escreva 'B' para baixa renda ou 'N' para renda normal:")
leia(categoria)
se (categoria="B") entao
escreval ("''Você é baixa renda''")
FIMSE

se (categoria="N") entao
escreval ("''Renda normal''")
FIMSE

escreval
escreval("Escreva a sigla do seu turno do curso M(manhã), T(Tarde) ou N(Noite):")
leia(turno)
Se (turno="M") entao
escreval ("O turno da manhã não tem desconto, o valor permanece R$:", turno=valor * duracao)
FIMSE

se (turno="T") entao
escreval ("desconto da mensalidade igual à:")
escreval (turno=0.05 * valor)
FIMSE

se (turno="N") entao
escreval ("desconto da mensalidade igual à:")
escreval(turno=0.10 * valor)
FIMSE

se (categoria="B") entao
escreval ("Mas, como você é baixa renda terá um desconto adicional de 10%(dez porcento)")
FIMSE