PROGRAM Top
!---------------------------------------------------------
! 06prg03.f95
! Serbest düşen bir topun dt zaman aralıklarıları ile 
! hızını, konumunu ve çıkacağı en yüksek noktayı hesaplar.
!---------------------------------------------------------
IMPLICIT NONE
REAL, PARAMETER :: g  = 9.81 ! m/s2
REAL, PARAMETER :: v0 = 10.0 ! m/s  
REAL, PARAMETER :: dt = 0.1  ! s
REAL :: t, v, y, Hmax

      y = 0.0
   Hmax = 0.0
      t = 0.0

   DO WHILE( y>=0.0 )

      ! Hareket denklemleri
      v = v0 - g*t
      y = v0*t - 0.5*g*t**2

      ! Maksimum yükseklik
      IF(y > Hmax) Hmax = y

      PRINT 10,t,v,y

      ! zamanı arttır
      t = t + dt

   END DO

   PRINT *,"Hmax = ", Hmax, " m"

10 FORMAT (3F9.2)

END PROGRAM