Advertisement
Guest User

Untitled

a guest
Oct 2nd, 2016
82
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
COBOL 0.71 KB | None | 0 0
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. Biodata.
  3.  
  4.        DATA DIVISION.
  5.        FILE SECTION.
  6.        WORKING-STORAGE SECTION.
  7.        01 identitas.
  8.            02 nama pic a(10).
  9.            02 jurusan pic a(8).
  10.            02 kelasan pic 9(2).
  11.  
  12.        PROCEDURE DIVISION.
  13.        AWAL.
  14.             DISPLAY "==== Program Biodata ==="
  15.             DISPLAY "Nama : ".
  16.             ACCEPT nama.
  17.             DISPLAY "Jurusan : " ACCEPT jurusan.
  18.             DISPLAY "Jumlah Murid ", ACCEPT kelasan.
  19.  
  20.             DISPLAY ' '
  21.             DISPLAY 'Nama saya adalah ' nama.
  22.             DISPLAY 'Jurusan Saya Adalah ' jurusan.
  23.             DISPLAY 'Jumlah siswa adalah ' kelasan '.'.
  24.  
  25.  
  26.             STOP RUN.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement