Visualg - Media de 4 notas

Off Topic

14/11/2014

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

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

14/11/2014

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...
GOSTEI 0
Gleyton Menezes

Gleyton Menezes

14/11/2014

Posso tirar esses

SE...ENTÃO

FIMSE


??
GOSTEI 0
Ronaldo Lanhellas

Ronaldo Lanhellas

14/11/2014

Retire apenas o "SE...ENTÃO" o FIMSE deve ser acumulado no fim do bloco.
GOSTEI 0
Gleyton Menezes

Gleyton Menezes

14/11/2014

Ainda enrolado aqui, fazendo...
GOSTEI 0
Gleyton Menezes

Gleyton Menezes

14/11/2014

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
GOSTEI 0
Gleyton Menezes

Gleyton Menezes

14/11/2014

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