Programação de Computadores I - Programa em Fortran

Senhores alunos:

Abaixo, encontra-se a solução para o Programa Tempo de Treinamento em Fortran.

Até a próxima postagem.


--------------------------------------------------------------------------
program main
  implicit none
  character(len=1) :: sexo
  integer(kind=1) :: idade
  print *, "Entre com a sua idade e sexo (m ou f) separados por espaco"
  read (*,*)idade,sexo
  if(sexo == 'm'.OR.sexo == 'M')then
    if(idade<=30)then
        print *, "Seu treino eh de 45 min"
    else
        print *, "Seu treino eh de 60 min"
    end if
  else if(sexo == 'f'.OR.sexo == 'F')then
    if(idade<=30)then
        print *, "Seu treino eh de 15 min"
    else
        print *, "Seu treino eh de 25 min"
    end if
  else
    print *, "Dados errados"
  end if
end