IDENTIFICATION DIVISION.
PROGRAM-ID. FUNCTION.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 AWAL.
02 NAMA PIC X(30).
02 NPM PIC X(8).
02 KELAS PIC X(8).
01 LUAS.
02 NILAI1 PIC 9(3).
02 NILAI2 PIC 9(3).
02 NILAI3 PIC 9(3).
02 HASIL PIC 9(3).
01 GRADE.
02 UTS PIC 9(3).
02 UAS PIC 9(3).
02 TOTAL PIC 9(3).
01 TANYA PIC X.
88 LAGI VALUE 'Y', 'y'.
88 TIDAK VALUE 'T', 't'.
77 PIL PIC 9.
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY (3 , 25) '<<<___MENU___>>>'.
DISPLAY (4 , 25) '1. BIODATA'.
DISPLAY (5 , 25) '2. LUAS'.
DISPLAY (6 , 25) '3. NILAI'.
DISPLAY (8 , 25) 'MASUKKAN PILIHAN [1..3]'.
ACCEPT PIL.
GO TO PIL1, PIL2, PIL3 DEPENDING ON PIL.
DISPLAY (10 , 25) 'MAAF TIDAK ADA PILHAN LAIN HANYA 1..3'.
ACCEPT PIL.
GO TO MULAI.
PIL1.
DISPLAY CLS.
DISPLAY (3 , 3) 'MASUKKAN NAMA :'.
ACCEPT NAMA.
DISPLAY (4 , 3) 'MASUKKAN NPM :'.
ACCEPT NPM.
DISPLAY (5 , 3) 'MASUKKAN KELAS :'.
ACCEPT KELAS.
GO TO HAY.
PIL2.
DISPLAY CLS.
DISPLAY (3 , 3) 'MASUKKAN PANJANG :'.
ACCEPT NILAI1.
DISPLAY (4 , 3) 'MASUKKAN LUAS :'.
ACCEPT NILAI2.
DISPLAY (5 , 3) 'MASUKKAN TINGGI :'.
ACCEPT NILAI3.
COMPUTE HASIL = NILAI1 * NILAI2 * NILAI3.
DISPLAY (7 , 3) 'VOLUME PERSEGI PANJANG ADALAH: ', HASIL.
GO TO HAY.
PIL3.
DISPLAY CLS.
DISPLAY (3 , 3) 'NILAI UTS : '.
ACCEPT ( , ) UTS.
DISPLAY (4 , 3) 'NILAI UAS : '.
ACCEPT ( , ) UAS.
COMPUTE TOTAL = (UTS * 0.7) + (UAS * 0.3).
IF TOTAL > 50
DISPLAY (5 , 3) 'ANDA LULUS'.
IF TOTAL < 49
DISPLAY (6 , 3) 'ANDA TIDAK LULUS'.
DISPLAY (8 , 3) 'NILAI ANDA ADALAH: ', TOTAL.
GO TO HAY.
PIL4.
DISPLAY CLS.
DISPLAY 'TERIMA KASIH'.
GO TO SELESAI.
HAY.
DISPLAY (10 , 3) 'KEMBALI KE MENU Y/T?'.
ACCEPT TANYA.
IF LAGI GO TO MULAI ELSE GO TO PIL4.
SELESAI.
STOP RUN.
Tidak ada komentar:
Posting Komentar