Contoh Program COBOL

Disini saya akan share mengenai Program COBOL yang bagi anda ingin mengcopasnya untuk mempelajarinya atau hanya untuk tugas mata kuliah Teknik Pemrograman Terstruktur 1 kelas 2 Universitas Gunadarma, silahkan copas saja bro,wkwkwkwk

Contoh programnya ada dibawah ini :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. BANGUNDATAR.
       AUTHOR Maulana.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 ISIMENU.
           02 PANJANG PIC 99V99.
           02 LEBAR PIC 99V99.
           02 ALAS PIC 99V99.
           02 TINGGI PIC 99V99.
           02 LPERSEGI PIC 9999V99.
           02 LPERPAN PIC 9999V99.
           02 LLING PIC 9999V99.
           02 LSEGITIGA PIC 9999V99.
           02 JARI PIC 99V99.

       01 PILIH PIC 9.
       01 HASIL.
           02 OHASIL PIC ZZZZZ.99.

       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       01 LAYAR-MENU.
           02 LINE 3 COLUMN 20 VALUE '>> MENU PILIHAN <<'.
           02 LINE 5 COLUMN 5 VALUE '1. LUAS PERSEGI '.
           02 LINE 6 COLUMN 5 VALUE '2. LUAS PERSEGI PANJANG '.
           02 LINE 7 COLUMN 5 VALUE '3. LUAS SEGITIGA '.
           02 LINE 8 COLUMN 5 VALUE '4. LUAS LINGKARAN '.
           02 LINE 9 COLUMN 5 VALUE '5. KELUAR '.
           02 LINE 11 COLUMN 10 VALUE ' MASUKAN PILIHAN ANDA    = '.
       PROCEDURE DIVISION.
       MENU.
           DISPLAY HAPUS-LAYAR.
           DISPLAY LAYAR-MENU. ACCEPT PILIH.
           DISPLAY HAPUS-LAYAR.

       MILIH.
           IF PILIH = 1 GO TO PERSEGI.
           IF PILIH = 2 GO TO PERSEGI-PANJANG.
           IF PILIH = 3 GO TO SEGITIGA.
           IF PILIH = 4 GO TO LINGKARAN.
           IF PILIH = 5 GO TO KELUAR.
           

       SALAH.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (8, 13) ' ANDA SALAH MEMASUKAN PILIHAN '.
           DISPLAY (20, 12) ' '.
           STOP ' TEKAN ENTER UNTUK MELANJUTKAN '.
           DISPLAY HAPUS-LAYAR.
           GO TO MENU.

       PERSEGI.
           DISPLAY (2, 5) ' MASUKAN PANJANG             = '.
           ACCEPT PANJANG.
           COMPUTE LPERSEGI = PANJANG * PANJANG.
           MOVE LPERSEGI TO OHASIL.
           DISPLAY (4, 5) ' LUAS PERSEGI ADALAH         = ', OHASIL.
           DISPLAY (20, 12) ' '.
           STOP ' TEKAN ENTER UNTUK MENERUSKAN '.
           GO TO MENU.

       PERSEGI-PANJANG.
           DISPLAY (2, 5) ' MASUKAN PANJANG             = '.
           ACCEPT PANJANG.
           DISPLAY (3, 5) ' MASUKAN LEBAR               = '.
           ACCEPT LEBAR.
           COMPUTE LPERPAN = PANJANG * LEBAR.
           MOVE LPERPAN TO OHASIL.
           DISPLAY (5, 5) ' LUAS PERSEGI PANJANG        = ', OHASIL.
           DISPLAY (20, 12) ' '.
           STOP ' TEKAN ENTER UNTUK MENERUSKAN '.
           GO TO MENU.

       SEGITIGA.
           DISPLAY (2, 5) ' MASUKAN ALAS                = '.
           ACCEPT ALAS.
           DISPLAY (3, 5) ' MASUKAN TINGGI SEGITIGA     = '.
           ACCEPT TINGGI.
           COMPUTE LSEGITIGA = 0.5 * ALAS * TINGGI.
           MOVE LSEGITIGA TO OHASIL.
           DISPLAY (5, 10) ' LUAS SEGITIGA ADALAH       = ', OHASIL.
           DISPLAY (20, 12) ' '.
           STOP ' TEKAN ENTER UNTUK MELANJUTKAN '.
           GO TO MENU.

       LINGKARAN.
           DISPLAY (2, 5) ' MASUKAN JARI - JARI         = '.
           ACCEPT JARI.
           COMPUTE LLING = 3.14 * JARI * JARI.
           MOVE LLING TO OHASIL.
           DISPLAY (4, 5) ' LUAS LINGKARAN ADALAH       = ', OHASIL.
           DISPLAY (20, 12) ' '.
           STOP ' TEKAN ENTER UNTUK MELANJUTKAN '.
           GO TO MENU.

       KELUAR.
           STOP RUN.
Dan Outputnya dibawah ini :

Contoh Program COBOL

Contoh Program COBOL

Semoga bermanfaat bagi anda, sekian dan terimakasih !

Perhatian Copas !!! "Mohon bagi anda para sahabat blog, jangan sekali-kali copy paste dengan tanpa mencantumkan link sumber kami dan menulis tanpa anda tulis dalam narasi atau kalimat anda sendiri saya akan mengapus url anda sesuai kebijakan privasi google DMCA/DMCA.com. Atas perhatiannya, saya ucapkan terimakasih."
Next
Previous

No comments

aturan berkomentar pada blog ini !.
1. berkomentarlah dengan baik, sesuai konten yang dibahas dan berkualitas.
2. kalimat yang tidak berkenan saya akan hapus.
3. jika menaruh "LINK HIDUP" akan dimasukan ke folder spam.
4. dilarang mempromosikan produk melalui komentar.

Emoticon