COBOL

 Contoh program cobol menggunakan inputan.

      IDENTIFICATION DIVISION.
      PROGRAM-ID. SATU.
      ENVIRONMENT DIVISION.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01  DATA.
          02 NM PIC A(20).
          02 NPM PIC X(8).
          02 KLS PIC X(5).
          02 A PIC 99.
          02 B PIC 99.
          02 TB PIC ZZ.
          02 KR PIC ZZ.
          02 KL PIC ZZ.
          02 BG PIC ZZ.
      PROCEDURE DIVISION.
      MULAI.
          DISPLAY (2,7) "====================================="
          DISPLAY (4,8) "Masukan Nama     : ". ACCEPT NM.
          DISPLAY (5,8) "Masukan NPM      : ". ACCEPT NPM.
          DISPLAY (6,8) "Masukan Kelas     : ". ACCEPT KLS.
          DISPLAY (7,8) "Masukan Angka 1 : ". ACCEPT A.
          DISPLAY (8,8) "Masukan Angka 2 : ". ACCEPT B.
          DISPLAY (10,7) "===============BIODATA=============="
          DISPLAY (12,8) "Nama        : ", NM.
          DISPLAY (13,8) "NPM        : ", NPM.
          DISPLAY (14,8) "Kelas        : ", KLS.
          DISPLAY (16,7) "=============KALKULATOR============="
          COMPUTE TB = A + B.
          DISPLAY (18,8) "Penjumlahan : ", TB.
          COMPUTE KR = A - B.
          DISPLAY (19,8) "Pengurangan : ", KR.
          COMPUTE KL = A * B.
          DISPLAY (20,8) "Penjumlahan : ", KL.
          COMPUTE BG = A / B.
          DISPLAY (21,8) "Pengurangan : ", BG.
          DISPLAY (23,7) "===================================="
          STOP RUN.



          Output :