Visualg - Media de 4 notas

14/11/2014

0

Mais uma vez uma duvida, a questão a resolver é:

Construa um algoritmo que receba 4 notas de um aluno e calcule a media aritmetica, depois imprima a nota e diga se ele foi reprovado, em recuperação ou aprovado
dados:

0 - 4 = reprovado
4.1 - 6.9 = recuperação
7 - 10 = aprovado



Não quero que ninguem faça pra mim, inclusive já tentei, mas aparece um pequeno problema, nos dois primeiro SE, ele captura o REPROVADO E RECUPERAÇÃO.


algoritmo "MEDIA ALUNO - APROVADO, RECUPEAÇÃO E REPROVADO"
// Função :
// Autor :
// Data : 14/11/2014
// Seção de Declarações 
var
NOTA1, NOTA2, NOTA3, NOTA4, MEDIA : REAL


inicio
// Seção de Comandos
 ESCREVA("DIGITE A PRIMEIRA NOTA: ")
 LEIA(NOTA1)
 ESCREVA("DIGITE A SEGUNDA NOTA: ")
 LEIA(NOTA2)
 ESCREVA("DIGITE A TECEIRA NOTA: ")
 LEIA(NOTA3)
 ESCREVA("DIGITE A QUARTA NOTA: ")
 LEIA(NOTA4)
 MEDIA := (NOTA1 + NOTA2 + NOTA3 + NOTA4) / 4 ;



 SE MEDIA <= 4  ENTAO
    ESCREVA("A MEDIA DO ALUNO FOI: ", MEDIA)
    ESCREVAL (" - ALUNO REPROVADO ")
 FIMSE
 SE MEDIA <=  6.9 ENTAO
    ESCREVA("A MEDIA DO ALUNO FOI: ", MEDIA)
    ESCREVAL (" - ALUNO DE RECUPERAÇÃO ")
 FIMSE
 SE MEDIA >= 7 ENTAO
    ESCREVA("A MEDIA DO ALUNO FOI: ", MEDIA)
    ESCREVAL (" - ALUNO APROVADO ")
 FIMSE

fimalgoritmo

Gleyton Menezes

Gleyton Menezes

Responder

Posts

14/11/2014

Joel Rodrigues

Precisa ter um ELSE entre os IFs. No caso, um SENAO entre os SE.
SE media <= 4 ...
SENÃO
SE media <= 6.9...
SENÃO
SE media > 7...
Responder

14/11/2014

Gleyton Menezes

Posso tirar esses

SE...ENTÃO

FIMSE


??
Responder

14/11/2014

Ronaldo Lanhellas

Retire apenas o "SE...ENTÃO" o FIMSE deve ser acumulado no fim do bloco.
Responder

14/11/2014

Gleyton Menezes

Ainda enrolado aqui, fazendo...
Responder

14/11/2014

Gleyton Menezes

Um amigo meu me passou, pra mim está certo



algoritmo "MediadoAluno"

var
   n1,n2,n3,n4,media:real


inicio
escreval("Informe a Primeira Nota: ")
leia(n1)
escreval("Informe a Segunda Nota: ")
leia(n2)
escreval("Informe a Terceira Nota: ")
leia(n3)
escreval("Informe a Quarta Nota: ")
leia(n4)
media <-((n1+n2+n3+n4)/4)


se media < 7 entao
   se media < 4 entao
   escreval("Reprovado...")
   senao
    escreval("Recuperação...")
   fimse//fimse referente ao procedimento <3.9

 senao

  escreval("Aprovado")
  

  
fimse//fimse procedimento < 7



fimalgoritmo

Responder

16/11/2014

Gleyton Menezes

Retornando, não existe nenhuma forma de utilizar o "E, OU" em uma mesma expressão SE?
Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar