Membuat program mencari luas jajargenjang dan persegi dengan bahasa pemrograman cobol

Sebelum membuat program mencari luas jajargenjang dan persegi dengan bahasa pemrograman cobol terlebih dahulu anda harus mencari rumus matematiknyaa dalam mencari luas jajargenjang dan persegi tersebut. Rumun didapat  sebagi berikut:

1.      Rumus luas jajarangenjang

Luas Jajarangenjang = Panjang*Tinggi

2.      Rumus persegi

Luas persegi = Sisi*sisi

Setelah mendapat rumus anda dapat membuat programnya. Dibawah ini akan ditulis coding untuk membuat program luas jajarangenjang dan persegi:

IDENTIFICATION DIVISION.

       PROGRAM-ID. ERWIN_ROMANSAH.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

           01 NAMA PIC X(30).

           01 UMUR PIC X(3).

           01 PEKERJAAN PIC X(8).

           01 ALAMAT PIC X(30).

       01 MENURUMUS.

           02 SISI PIC 99V99.

           02 LUASPERSEGI PIC 99V99.

           02 LJAJARGENJANG PIC 99V99.

           02 TINGGI PIC 99V99.

           02 ALAS PIC 99V99.

       01 PILIH PIC 9.

       01 HASIL.

           02 EHASIL PIC ZZZZZ.99.

       SCREEN SECTION.

       01 HAPUS-LAYAR.

           02 BLANK SCREEN.

       01 LAYAR-MENU.

           02 LINE 3 COLUMN 20 VALUE 'MENU PERHITUNGAN'.

    02 LINE 4 COLUMN 20 VALUE '1. MENGHITUNG LUAS PERSEGI'.

    02 LINE 5 COLUMN 20 VALUE '2. MENGHITUNG LUAS JAJARGENJANG'.

           02 LINE 6 COLUMN 20 VALUE '3. KELUAR'.

           02 LINE 10 COLUMN 20 VALUE 'PILIH = '.

       01 EDATA.

           02 LINE 3 COLUMN 18 VALUE 'PERHITUNGAN BANGUN '.

           02 LINE 4 COLUMN 25 VALUE 'DATAR'.

         

       PROCEDURE DIVISION.

       MULAI.

           DISPLAY (2,3) "NAMA  : ".

           ACCEPT NAMA.

           DISPLAY (3,3) "UMUR   : ".

           ACCEPT UMUR.

           DISPLAY (4,3) "PEKERJAAN  : ".

           ACCEPT PEKERJAAN.

           DISPLAY (5,3) "ALAMAT : ".

           ACCEPT ALAMAT.

       MENU.

           DISPLAY HAPUS-LAYAR.

           DISPLAY LAYAR-MENU.

           ACCEPT PILIH.

           DISPLAY HAPUS-LAYAR.

       SELEKSI.

           IF PILIH = 1 GO TO PERSEGI.

           IF PILIH = 2 GO TO JAJARGENJANG.

           IF PILIH = 3 GO TO KELUAR.

       JAJARGENJANG.

           DISPLAY HAPUS-LAYAR.

           DISPLAY EDATA.

           DISPLAY (8, 10)'MENGHITUNG LUAS JAJAR GENJANG'.

           DISPLAY (11, 10) 'ALAS               = '.

           ACCEPT ALAS.

           DISPLAY (12, 10) 'TINGGI             = '.

           ACCEPT TINGGI.

           COMPUTE LJAJARGENJANG = ALAS * TINGGI.

           MOVE LJAJARGENJANG TO EHASIL.

           DISPLAY (14, 10) 'LUAS JAJARGENJANG  = '.

           DISPLAY (14, 30) EHASIL.

           DISPLAY (20, 10) ' '.

    STOP 'TEKAN ENTER ANDA AKAN KEMBALI KE MENU       PERHITUNGAN!!'.

           GO TO MENU.

       PERSEGI.

           DISPLAY HAPUS-LAYAR.

           DISPLAY EDATA.

           DISPLAY (8, 10)'MENGHITUNG LUAS PERSEGI'.

           DISPLAY (11, 10) 'SISI : '.

           ACCEPT SISI.

           COMPUTE LUASPERSEGI = SISI * SISI.

           MOVE LUASPERSEGI TO EHASIL.

           DISPLAY (13, 10) 'LUAS PERSEGI = '.

           DISPLAY (13, 24) EHASIL.

           DISPLAY (20, 10) ' '.

           STOP 'TEKAN ENTER, ANDA AKAN KEMBALI KE MENU PERHITUNGAN!!'.

           GO TO MENU.

       KELUAR.

           STOP RUN.

Berikut printscreennya:

Berikut printscreen saat program dijalankan:

selamat mencoba dan semoga bermanfaat.^_^

Penulis             : Erwin romansah

Referensi         : Arik (2KA07), Dosen, modul ilab