Thursday 29 November 2012

Program Tabel Pada COBOL

Ini program yang kelompok gua buat untuk tugas, langsung ajah berikut Listing Programnya     


      IDENTIFICATION DIVISION.
       PROGRAM-ID. KEL3.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 nama PIC X(50).
       77 npm PIC X(8).
       77 kelas PIC X(5).
       77 fak PIC 9(2).
       77 garis1 PIC X(37) VALUE ALL '-'.
       77 garis2 PIC X(52) VALUE ALL '-'.
       01 judul.
           02 FILL PIC X(1) VALUE '|'.
           02 FILL PIC X(18) VALUE ' KODE MATA KULIAH '.
           02 FILL PIC X(1) VALUE '|'.
           02 FILL PIC X(26) VALUE '       MATA KULIAH       '.
           02 FILL PIC X(1) VALUE '|'.
           02 FILL PIC X(4) VALUE ' SKS'.
           02 FILL PIC X(1) VALUE '|'.
       SCREEN SECTION.
       01 hapus.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       TANYA-DIRI.
           DISPLAY 'MASUKKAN NAMA ANDA : '
           ACCEPT nama.
           DISPLAY 'MASUKKAN NPM ANDA : '
           ACCEPT npm.
           DISPLAY 'MASUKKAN KELAS ANDA : '
           ACCEPT kelas.
       TANYA-FAKULTAS.
           DISPLAY SPACE
           DISPLAY garis1.
           DISPLAY '| JENIS FAKULTAS TEKNOLOGI INDUSTRI |'
           DISPLAY garis1.
           DISPLAY '|   1. TEKNIK INFORMATIKA           |'
           DISPLAY '|   2. TEKNIK ELEKTRO               |'
           DISPLAY '|   3. TEKNIK MESIN                 |'
           DISPLAY '|   4. TEKNIK INDUSTRI              |'
           DISPLAY garis1.
           DISPLAY '| KODE FAKULTAS ANDA [1-4] :        |'
           DISPLAY garis1.
           ACCEPT fak.
           GO TO T1, T2, T3, T4 DEPENDING ON fak.
           DISPLAY 'TIDAK ADA KODE FAKULTAS TERSEBUT..!! ULANGI'
           GO TO TANYA-FAKULTAS.
       T1.
           DISPLAY hapus.
           DISPLAY 'NAMA     : ', nama.
           DISPLAY 'NPM      : ', npm.
           DISPLAY 'KELAS    : ', kelas.
           DISPLAY 'SEMESTER : 3'
           DISPLAY 'JURUSAN  : TEKNIK INFORMATIKA'
           DISPLAY SPACE
           DISPLAY garis2.
           DISPLAY judul.
           DISPLAY garis2.
           DISPLAY '|     PB045104     | BAHASA INDONESIA 1       |  1 |'
           DISPLAY '|     IT045227     | STATISTIKA 1             |  2 |'
           DISPLAY '|     IT045217     | MATEMATIKA LANJUT 1      |  2 |'
           DISPLAY '|     IT045215     | MATEMATIKA INFORMATIKA 3 |  2 |'
           DISPLAY '|     IT045329     | STRUKTUR DATA            |  3 |'
           DISPLAY '|     IT045219     | OSK                      |  2 |'
           DISPLAY '|     IT045203     | AP 3                     |  2 |'
           DISPLAY '|     PP00020X     | PENDIDIKAN AGAMA         |  2 |'
           DISPLAY '|     AK045303     | SIAK                     |  2 |'
           DISPLAY '|     IT045204     | PTI & NEW MEDIA          |  1 |'
           DISPLAY '|     IT045123     | PRAKTIKUM AP 3           |  1 |'
           DISPLAY garis2.
           GO TO SELESAI.
       T2.
           DISPLAY hapus.
           DISPLAY 'NAMA     : ', nama.
           DISPLAY 'NPM      : ', npm.
           DISPLAY 'KELAS    : ', kelas.
           DISPLAY 'SEMESTER : 3'
           DISPLAY 'JURUSAN  : TEKNIK ELEKTRO'
           DISPLAY garis2.
           DISPLAY judul.
           DISPLAY garis2.
           DISPLAY '|     PP041203     | PENDIDIKAN PANCASILA     |  2 |'
           DISPLAY '|     IT041223     | FISIKA 3                 |  2 |'
           DISPLAY '|     IT041222     | KALKULUS 3               |  2 |'
           DISPLAY '|     IT041221     | MATEMATIKA TEKNIK 3      |  2 |'
           DISPLAY '|     IT041325     | ANALIS SISTEM LINIER     |  3 |'
           DISPLAY '|     IT041224     | DASAR ELEKTRONIKA        |  2 |'
           DISPLAY '|     IT041226     | DASAR TELEKOMUNIKASI     |  2 |'
           DISPLAY '|     IT041227     | DASAR SISTEM KONTROL     |  2 |'
           DISPLAY '|     IT041228     | PENGETAHUAN BHN ELEKTRIK |  2 |'
           DISPLAY '|     IT041231     | PENGANTAR LINGKUNGAN     |  2 |'
           DISPLAY garis2.
           GO TO SELESAI.
       T3.
           DISPLAY hapus.
           DISPLAY 'NAMA     : ', nama.
           DISPLAY 'NPM      : ', npm.
           DISPLAY 'KELAS    : ', kelas.
           DISPLAY 'SEMESTER : 3'
           DISPLAY 'JURUSAN  : TEKNIK MESIN'
           DISPLAY garis2.
           DISPLAY judul.
           DISPLAY garis2.
           DISPLAY '|     PP00020X     | PENDIDIKAN AGAMA         |  2 |'
           DISPLAY '|     PP000206     | PENDIDIKAN PANCASILA     |  2 |'
           DISPLAY '|     IT042219     | KALKULUS 3               |  2 |'
           DISPLAY '|     IT042220     | MATEMATIKA TEKNIK 1      |  2 |'
           DISPLAY '|     IT042221     | FISIKA DASAR 3           |  2 |'
           DISPLAY '|     IT042222     | TERMODINAMIKA            |  3 |'
           DISPLAY '|     IT042223     | K & D TEKNIK             |  2 |'
           DISPLAY '|     IT042324     | STATIKA STRUKTUR         |  3 |'
           DISPLAY '|     IT042326     | MATERIAL TEKTNIK         |  3 |'
           DISPLAY '|     IT042137     | PRAK. MATERIAL TEKTNIK   |  1 |'
           DISPLAY garis2.
           GO TO SELESAI.
       T4.
           DISPLAY hapus.
           DISPLAY 'NAMA     : ', nama.
           DISPLAY 'NPM      : ', npm.
           DISPLAY 'KELAS    : ', kelas.
           DISPLAY 'SEMESTER : 3'
           DISPLAY 'JURUSAN  : TEKNIK INDUSTRI'
           DISPLAY garis2.
           DISPLAY judul.
           DISPLAY garis2.
           DISPLAY '|     XXXXXXXX     | ANALISIS & PENG. KERJA   |  2 |'
           DISPLAY '|     XXXXXXXX     | ELEKTRONIKA INDUSTRI     |  2 |'
           DISPLAY '|     XXXXXXXX     | KALKULUS 3               |  2 |'
           DISPLAY '|     XXXXXXXX     | MATERIAL TEKNIK          |  2 |'
           DISPLAY '|     XXXXXXXX     | PENDIDIKAN AGAMA         |  2 |'
           DISPLAY '|     XXXXXXXX     | PRAK. STASTITIKA INDUSTRI|  1 |'
           DISPLAY '|     XXXXXXXX     | PSIKOLOG INDUSTRI        |  2 |'
           DISPLAY '|     XXXXXXXX     | STATISTIKA INDUSTRI      |  2 |'
           DISPLAY '|     XXXXXXXX     | PRAK. ANALISIS & P.K     |  1 |'
           DISPLAY '|     XXXXXXXX     | ILMU SOSIAL DASAR        |  2 |'
           DISPLAY garis2.
           GO TO SELESAI.
       SELESAI.
           STOP RUN.


Berikut Hasil Outputnya jika di run maka akan muncul sebagai berikut

maka setelah meekan eneter akan keluar output sebagai berikut

 lalu jika anda memillih 1 akan tampil output seperti berikut



sekian dari saya jika ada pertanyaan silahkan tinggalkan komen dibawah.

 Sumber
http://ilfen.blogspot.com/2012/11/contoh-program-tabel-pada-cobol.html
Posted by at
Labels: ,

1 comment:

Subscribe to: Post Comments (Atom)