Sou novo aqui no fórum e não estou conseguindo resolver o seguinte algoritmo usando o VisuAlg. Alguém pode me ajudar!!! Socorro....
//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%.
//Tentei resolver assim... Mas não está calculando
var
mensalidade : real
Turno : literal
Categoria : literal
mensal : real
valortotal : real
inicio
// Seção de Comandos
escreva ("Valor da mensalidade:")
leia (mensalidade)
escreva (" Digite o turno, M (manhã), T (tarde) ou N (noite):")
leia (Turno)
escreva (" Categoria do aluno (B para baixa renda e N para renda normal):")
leia (categoria)
se (Turno="M") e (Categoria = "N")então
mensal := mensalidade
escreval("mensalidade:", mensal)
senao
se (Turno="M") e (Categoria = "B") então
mensal := 0,90*mensalidade
escreval("mensalidade:", mensal)
senao
se (Turno="T") e (Categoria = "N") então
mensal := 0,95*mensalidade
escreval("mensalidade:", mensal)
senao
se (Turno="T") e (Categoria = "B") então
mensal := 0,85*mensalidade
escreval("mensalidade:", mensal)
senao
se (Turno="N") e (Categoria = "N") então
mensal := 0,90*mensalidade
escreval("mensalidade:", mensal)
senao
se (Turno="N") e (Categoria = "B") então
mensal := 0,80*mensalidade
escreval("mensalidade:", mensal)
senao
Escreva ("Digite uma infomção válida!!!")
fimse
fimse
fimse
fimse
fimse
fimse
valortotal := mensal*12
escreval("Custo Anual:", valortotal)
