PROGRAM Dort_Islem
!-----------------------------------------------------------
! 05prg05.f95
! CASE yapısı ile dört işlem
!-----------------------------------------------------------
IMPLICIT NONE
REAL :: X, Y, Sonuc
INTEGER :: Secim

    PRINT *, "Iki sayi girin:"
    READ *, X, Y

    WRITE(*,*) "*** Menu ***"
    WRITE(*,*) "[1] Toplama"
    WRITE(*,*) "[2] Cikarma"
    WRITE(*,*) "[3] Carpma"
    WRITE(*,*) "[4] Bolme"
    WRITE(*,*)

    WRITE(*,*) "Seciminiz ?";
    READ (*,*) Secim

    SELECT CASE( secim )

         CASE (1)
                sonuc = x + y;
                PRINT *, "Toplam = ",sonuc
         CASE (2)
                sonuc = x-y;
                PRINT *, "Fark = ",sonuc
         CASE (3)
                sonuc = x * y;
                PRINT *, "Carpim = ",sonuc
         CASE (4)
                sonuc = x/y;
                PRINT *, "Oran = ",sonuc
         CASE DEFAULT
                PRINT *,"Yanlis secim "

     END SELECT

END PROGRAM