PROGRAM Logaritmik
!--------------------------------------------------------
! 04prg02.f95
! Üstel ve logaritmik fonksiyonlar
!--------------------------------------------------------
REAL :: X, Log7

    PRINT *,"Positif bir x değeri girin :"
    READ *,X

    ! log7(x) değeri nin hesabı

    Log7 = LOG(x) / LOG(7.0)

    PRINT *,"  EXP(x) = ",EXP(x)
    PRINT *,"  LOG(x) = ",LOG(x)
    PRINT *,"LOG10(x) = ",LOG10(x)
    PRINT *," LOG7(x) = ",Log7

END PROGRAM