Ivans Ardiansyah

Cobol : IF - Kondisi

  •  cobol

    • Berikut merupakan program cobol yang bertujuan untuk pemilihan hari sesuai dengan kode hari yang kita input, misalkan di input 1 maka outputnya senin.

    Programnya :

    (kondisi) download
         IDENTIFICATION DIVISION.
      PROGRAM-ID. LA_IVANS_KONDISI.
      AUTHOR. IVANS.

      ENVIRONMENT DIVISION.

      DATA DIVISION.
      WORKING-STORAGE SECTION.
      77 JAWAB PIC 9.
      
      PROCEDURE DIVISION.
      MULAI.
          DISPLAY "MASUKAN KODE HARI [1 .. 7] : ".
          ACCEPT JAWAB.
      SELEKSI.
          IF JAWAB = 1 GO TO SENIN.
          IF JAWAB = 2 GO TO SELASA.
          IF JAWAB = 3 GO TO RABU.
          IF JAWAB = 4 GO TO KAMIS.
          IF JAWAB = 5 GO TO JUMAT.
          IF JAWAB = 6 GO TO SABTU.
          IF JAWAB = 7 GO TO MINGGU.
          GO TO PILIHAN-SALAH
          STOP RUN.
      SENIN.
          DISPLAY "HARI SENIN".
          GO TO SELESAI.
      SELASA.
          DISPLAY "HARI SELASA".
          GO TO SELESAI.
      RABU.
          DISPLAY "HARI RABU".
          GO TO SELESAI.
      KAMIS.
          DISPLAY "HARI KAMIS".
          GO TO SELESAI.
      JUMAT.
          DISPLAY "HARI JUMAT".
          GO TO SELESAI.
      SABTU.
          DISPLAY "HARI SABTU".
          GO TO SELESAI.
      MINGGU.
          DISPLAY "HARI MINGGU".
          GO TO SELESAI.
      PILIHAN-SALAH.
          DISPLAY "KODE YANG DIMASUKAN SALAH".
          GO TO SELESAI.
      SELESAI.
          STOP RUN.

    Hasil Output nya :

    Comments