UNIDADE 03

Linguagem Fortran

Sumário


Material de apoio

Apresentações

Leitura

programacao-cientifica-em-fortran-rudinei-dias-d-cunha

Fortran 95

CUNHA, R. D.; Programação Científica Em Fortran 95 Básico, Clube dos Autores, Ilha Solteira, 2011 – [Visitar](http://oferta.vc/qX41)

Avaliações

  • Homework xx – XXXXXXXX – Entregar (xx/xx/2018) Moodle – Questionário

Vídeos

Fonte: Youtube – Acesso em xx/xx/2016


Motivacional

Bitbucket

https://bitbucket.org/snippets/fsc1004/ekeo5

program canhao
implicit none

integer, parameter :: r = 10 ! Alcance máximo a borda de um círculo de raio r (r = 10 Km)
integer :: x, y
real :: distancia
! Equação de um círculo de Raio r:  x^2 + y^2 <= r^2

print *, 'Digite as coordenadas x e y: '
read *, x, y

! Testa se estas coordenadas ficam dentro do circulo

if ((x ** 2. + y ** 2.) .LE. r ** 2) then
    print *, 'Acertou o Alvo'

    ! Calcula a distancia
    distancia = SQRT(x ** 2. + y ** 2.)
    print *, 'Distancia entre o canhao e o Alvo (Km): ', distancia

else
    print *, 'Errou o Alvo!'
endif

end program canhao

IDPFPG-2081

Written with StackEdit.

Anúncios