PROGRAM Euler_Acilimi
!----------------------------------------------------
! 20prg02.f95
! exp(ix) = cos(x) + i*sin(x) şeklide 
! yazılabileceğinin gösterimi.
!----------------------------------------------------
IMPLICIT NONE
COMPLEX :: i = (0.0,  1.0) !
REAL    :: x = 0.5         ! radyan

  PRINT *,"exp(i*x) = ",EXP(i*x)
  PRINT *,"cos(x)   = ",COS(x)
  PRINT *,"sin(x)   = ",SIN(x)

END PROGRAM