Question

como faço um algoritmo pra calcular média!

Answer 1

Inicio

var:

N1, N2, N3, N4, MEDIA : REAL

 inicio

 ESCREVA("DIGITE A NOTA 1: ")

 LEIA(N1)

 ESCREVA("DIGITE A NOTA 2: ")

 LEIA(N2)

 ESCREVA("DIGITE A  NOTA 3: ")

 LEIA(N3)

 ESCREVA("DIGITE A  NOTA 4: ")

 LEIA(N4)

 MEDIA := (N1 + N2 + N3 + N4) / 4 ;

  SE MEDIA <= 4  ENTAO

    ESCREVA("A MEDIA DO ALUNO É: ", MEDIA)

    ESCREVAL (" ALUNO REPROVADO ")

 FIMSE

 SE MEDIA <=  6.9 ENTAO

    ESCREVA("A MEDIA DO ALUNO É: ", MEDIA)

    ESCREVAL (" ALUNO DE RECUPERAÇÃO ")

 FIMSE

 SE MEDIA >= 7 ENTAO

    ESCREVA("A MEDIA DO ALUNO É: ", MEDIA)

    ESCREVAL (" ALUNO APROVADO ")

 FIMSE

 

fimalgoritmo