PROGRAM Trigonometrik
!--------------------------------------------------------
! 04prg01.f95
! Trigonometrik kütüphane fonksiyonları
!--------------------------------------------------------
REAL :: Aci, Pi

    PRINT *,"Derece cinsinden bir açı girin:"
    READ *,Aci

    ! Pi sayısı
    Pi = 4.0 * ATAN(1.0)

    ! derece -> radyan dönüşümü
    Aci = Aci * Pi /180.0

    PRINT *," Pi: ",Pi
    PRINT *,"SIN: ",SIN(Aci)
    PRINT *,"COS: ",COS(Aci)
    PRINT *,"TAN: ",TAN(Aci)

END PROGRAM