Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IDENTIFICATION DIVISION.
- PROGRAM-ID. Biodata.
- DATA DIVISION.
- FILE SECTION.
- WORKING-STORAGE SECTION.
- 01 identitas.
- 02 nama pic a(10).
- 02 jurusan pic a(8).
- 02 kelasan pic 9(2).
- PROCEDURE DIVISION.
- AWAL.
- DISPLAY "==== Program Biodata ==="
- DISPLAY "Nama : ".
- ACCEPT nama.
- DISPLAY "Jurusan : " ACCEPT jurusan.
- DISPLAY "Jumlah Murid ", ACCEPT kelasan.
- DISPLAY ' '
- DISPLAY 'Nama saya adalah ' nama.
- DISPLAY 'Jurusan Saya Adalah ' jurusan.
- DISPLAY 'Jumlah siswa adalah ' kelasan '.'.
- STOP RUN.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement