F�rum Visualg - Media de 4 notas #501247

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

Curtir t�pico

+ 0

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

Gostei + 0

14/11/2014

Gleyton Menezes

Posso tirar esses

SE...ENT�O

FIMSE

??

Responder

Gostei + 0

14/11/2014

Ronaldo Lanhellas

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

Responder

Gostei + 0

14/11/2014

Gleyton Menezes

Ainda enrolado aqui, fazendo...

Responder

Gostei + 0

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

Gostei + 0

16/11/2014

Gleyton Menezes

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

Responder

Gostei + 0