F90: Programa do cálculo da média de um aluno

Este programa foi desenvolvido pelos alunos Aloisio Santana, Jeilson Barreto e Rafael Máximo durante a disciplina Processamento de Dados (UFBA 2008.2). Data da apresentação: 02/12/2008.

PROGRAM media
  IMPLICIT NONE
  REAL :: p1, p2, p3
  REAL :: med, final
  CHARACTER (len=10):: nome        	
  WRITE(*,*)  "Digite o nome do aluno:"
  READ(*,*)   nome
  DO
    WRITE(*,*)  "Digite a primeira nota: "
    READ(*,*)   p1
    IF (0 <= p1 .and. p1 <= 10)  EXIT
    WRITE(*,*)  "Valor invalido! Nota deve estar entre 0 e 10"
  END DO
  DO
    WRITE(*,*)  "Digite a segunda nota: "
    READ(*,*)   p2
    IF (0 <= p2 .and. p2 <= 10)  EXIT
    WRITE(*,*)  "Valor invalido!!! Nota deve estar entre 0 e 10"
  END DO
  DO
    WRITE(*,*)  "Digite a terceira nota: "
    READ(*,*)   p3
    IF (0 <= p3 .and. p3 <= 10)  EXIT
    WRITE(*,*)  "Valor invalido!!! Nota deve estar entre 0 e 10"
  END DO
 
  med = ( p1 + p2 + p3 ) / 3
  WRITE(*,*) "A media e", med
 
  IF ( med >= 7) THEN 
    WRITE (*,*) "O aluno ", nome , " esta aprovado! Parabens!"
  ELSE
  IF (med<=2 ) THEN
    WRITE (*,*) "O aluno ", nome , " esta reprovado! Nem reza braba salva!"
  ELSE
    final = (5 - (0.6*med))/0.4 
    WRITE (*,*) " O aluno ", nome , " precisa tirar", final, "na prova final! Precisar estudar!"
  END IF
END PROGRAM media