어느 높이에서 물체를 위로 던졌다. 던진 후 몇초에 속도와 높이를 구하는 문제
PROGRAM Projectile
IMPLICIT NONE
!실수형 변수 선언, Acceleration에 값 할당
REAL :: InitialHeight, Height, InitialVelocity, Velocity, &
Acceleration = -9.80665, Time
PRINT *, "Enter the initial height(m) and velocity(m/sec) (ex:100.0 90.0) :"
READ *, InitialHeight, InitialVelocity
PRINT *, "Enter time in seconds at which to calculate height and velocity (ex:4.5):"
READ *, Time
Height = 0.5 * Acceleration * Time ** 2 &
+ InitialVelocity * Time + InitialHeight
Velocity = Acceleration * Time + InitialVelocity
PRINT *, "At time ", Time, " seconds"
PRINT *, "the vertical velocity is ", Velocity, " m/sec"
PRINT *, "and the height is ", Height, " meters"
END PROGRAM
이것을 01_01_Projectile.f95로 저장
100m 높에서 90m/s의 속도로 물체를 위로 던졌을 경우 4.5초의 물체의 속도와 높이 계산
'Programming > Fortran' 카테고리의 다른 글
| 오염지수 구하기 2(IF THEN, ELSE IF THEN, ELSE, END IF) (0) | 2008.08.27 |
|---|---|
| 오염지수 구하기(IF THEN ELSE END IF) (0) | 2008.08.26 |
| 이차방정식의 해 구하기(IF THEN ELSE END IF) (0) | 2008.08.26 |
| 섭씨 온도를 화씨 온도로 변환하는 문제 (0) | 2008.08.08 |
| gfortran의 다운로드와 설치 (1) | 2008.08.08 |