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 ILMU KOMPUTER DAN TEKNOLOGI INFORMASI |'
DISPLAY garis1.
DISPLAY '| 1. SISTEM INFORMASI |'
DISPLAY '| 2. SISTEM KOMPUTER |'
DISPLAY garis1.
DISPLAY '| KODE FAKULTAS ANDA [1-2] : |'
DISPLAY garis1.
ACCEPT fak.
GO TO T1, T2 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 : SISTEM INFORMASI'
DISPLAY SPACE
DISPLAY garis2.
DISPLAY judul.
DISPLAY garis2.
DISPLAY '| IT011232 | TEORI ORGANISASI UMUM 1 | 2 |'
DISPLAY '| IT011226 | STATISTIKA 1 | 2 |'
DISPLAY '| IT011212 | MATEMATIKA LANJUT 1 | 2 |'
DISPLAY '| IT011214 | MATEMATIKA SI 1 | 2 |'
DISPLAY '| IT011228 | STRUKTUR&ORGANISASI DATA1| 3 |'
DISPLAY '| IT011317 | PO | 2 |'
DISPLAY '| IT011230 | TPT 1 | 2 |'
DISPLAY '| IT011201 | AKUNTANSI 1 | 2 |'
DISPLAY '| AK011209 | MANAJEMEN & SIM 1 | 2 |'
DISPLAY garis2.
GO TO SELESAI.
T2.
DISPLAY hapus.
DISPLAY 'NAMA : ', nama.
DISPLAY 'NPM : ', npm.
DISPLAY 'KELAS : ', kelas.
DISPLAY 'SEMESTER : 3'
DISPLAY 'JURUSAN : SISTEM KOMPUTER'
DISPLAY garis2.
DISPLAY judul.
DISPLAY garis2.
DISPLAY '| IT012244 | PENDIDIKAN PANCASILA | 2 |'
DISPLAY '| IT012219 | FISIKA 3 | 2 |'
DISPLAY '| IT012217 | KALKULUS 3 | 2 |'
DISPLAY '| IT041221 | MATEMATIKA TEKNIK 3 | 2 |'
DISPLAY '| IT012245 | ANALIS SISTEM LINIER | 3 |'
DISPLAY '| IT012211 | DASAR ELEKTRONIKA | 2 |'
DISPLAY '| IT041226 | DASAR TELEKOMUNIKASI | 2 |'
DISPLAY '| IT012346 | DASAR SISTEM KONTROL | 2 |'
DISPLAY '| IT012147 | PENGETAHUAN BHN ELEKTRIK | 2 |'
DISPLAY '| IT012239 | PENGANTAR LINGKUNGAN | 2 |'
DISPLAY '| IT012322 | ORGANISASI&ARSITEKTUR | 3 |'
DISPLAY '| IT012267 | MANAJEMEN PROYEK&RESIKO | 2 |'
DISPLAY garis2.
GO TO SELESAI.
SELESAI.
STOP RUN.
Berikut Hasil Outputnya jika di run maka akan muncul sebagai berikut
maka setelah menekan
enter akan keluar output sebagai berikut
lalu jika
anda memillih 1 akan tampil output seperti berikut
Sumber:
No comments:
Post a Comment