Contoh Coding Cobol
Di bawah ini contoh program cobol yang pernah saya buat ..
Jalan apa gak ? yaa dicoba ajaaa . ahahahahahah .. :D
IDENTIFICATION DIVISION.
PROGRAM-ID. MENU.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 KUBUS.
02 SISI PIC 99V99.
02 LUAS-KUBUS PIC Z(8).99.
01 BALOK.
02 PANJANG PIC 99V99.
02 LEBAR PIC 99V99.
02 TINGGI PIC 99V99.
02 LUAS-BALOK PIC Z(8).99.
01 LAYANG-LAYANG.
02 DIAGONAL1 PIC 99V99.
02 DIAGONAL2 PIC 99V99.
02 LUAS-LAYANG-LAYANG PIC Z(8).99.
77 TEKAN PIC 99.
77 PILIH PIC X.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 LAYAR-MENU.
02 LINE 3 COLUMN 10 VALUE '<
>'.
02 LINE 5 COLUMN 10 VALUE 'F1. MENGHITUNG LUAS KUBUS'.
02 LINE 7 COLUMN 10 VALUE 'F2. MENGHITUNG LUAS BALOK'.
02 LINE 9 COLUMN 10 VALUE 'F3. MENGHITUNG LUAS LAYANG'.
02 LINE 11 COLUMN 10 VALUE 'ESC. SELESAI'.
02 LINE 13 COLUMN 10 VALUE 'PILIH YANG MANA ?'.
02 LINE 13 COLUMN 30 PIC X TO PILIH.
PROCEDURE DIVISION.
TAMPILKAN-MENU.
DISPLAY HAPUS-LAYAR.
MOVE SPACE TO PILIH.
DISPLAY LAYAR-MENU.
ACCEPT LAYAR-MENU.
ACCEPT TEKAN FROM ESCAPE KEY.
DISPLAY HAPUS-LAYAR.
SELEKSI-PILIHAN.
IF TEKAN = 1
GO TO SELESAI.
IF TEKAN = 2
DISPLAY (2,5) 'SISI KUBUS ?'.
ACCEPT (2, ) SISI WITH PROMPT.
COMPUTE LUAS-KUBUS = SISI*SISI*SISI.
DISPLAY (4,5)'LUAS KUBUS ADALAH = 'LUAS-KUBUS.
GO TO KEMBALI-KE-MENU.
IF TEKAN = 3
DISPLAY (2,5) 'PANJANG BALOK ?'.
ACCEPT (2, ) PANJANG WITH PROMPT.
DISPLAY (3,5) 'LEBAR BALOK ?'.
ACCEPT (3, ) LEBAR WITH PROMPT.
DISPLAY (5,5) 'TINGGI BALOK ?'.
ACCEPT (4, ) TINGGI WITH PROMPT.
COMPUTE LUAS-BALOK = PANJANG*LEBAR*TINGGI.
DISPLAY (6,5) 'LUAS BALOK ADALAH = 'LUAS-BALOK.
GO TO KEMBALI-KE-MENU.
IF TEKAN = 4
DISPLAY (2,5) 'DIAGONAL1 LAYANG-LAYANG ?'.
ACCEPT (2, ) DIAGONAL1 WITH PROMPT.
DISPLAY (3,5) 'DIAGONAL2 LAYANG-LAYANG ?'.
ACCEPT (3, ) DIAGONAL2 WITH PROMPT.
COMPUTE LUAS-LAYANG-LAYANG = 0.5*(DIAGONAL1+DIAGONAL2).
DISPLAY (5,5) 'LUAS LAYANG-LAYANG ADALAH = 'LUAS-LAYANG-LAYANG.
GO TO KEMBALI-KE-MENU.
ELSE
GO TO TAMPILKAN-MENU.
KEMBALI-KE-MENU.
DISPLAY (15,5).
STOP 'TEKAN SEMBARANG UNTUK KEMBALI KE MENU'.
GO TO TAMPILKAN-MENU.
SELESAI.
STOP RUN.
Tidak ada komentar:
Posting Komentar