Lily Allen - Smile


Lily Allen - Smile

Minggu, 30 Oktober 2011

Perhitungan Matematika

Ini adalah salah satu coding untuk pemrograman COBOL dalam menghitung luas segitiga, luas lingkaran dan luas persegi panjang.

====================================================================

       IDENTIFICATION DIVISION.
       PROGRAM-ID. PRISTI-KURNIAD.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 ISIMENU.
           02 JARI PIC 99V99.
           02 LLINGKARAN PIC 99999V99.
           02 ALAS PIC 99V99.
           02 TINGGI PIC 99V99.
           02 LSEGITIGA PIC 99V99.
           02 PANJANG PIC 99V99.
           02 LEBAR PIC 99V99.
           02 LPERPANJANG PIC 99999V99.
       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 '********** PILIHAN **********'.
           02 LINE 5 COLUMN 20 VALUE '1. MENGHITUNG LUAS LINGKARAN'.
           02 LINE 6 COLUMN 20 VALUE '2. MENGHITUNG LUAS SEGITIGA'.
           02 LINE 7 COLUMN 20 VALUE '3. MENGHITUNG LUAS P.PANJANG'.
           02 LINE 8 COLUMN 20 VALUE '4. SELESAI/KELUAR'.
           02 LINE 11 COLUMN 20 VALUE 'PILIH : '.

       01 BDATA.
           02 LINE 3 COLUMN 20 VALUE 'PERHITUNGAN MATEMATIKA'.
           02 LINE 4 COLUMN 20 VALUE 'KELOMPOK 4'.
           02 LINE 5 COLUMN 20 VALUE 'KELAS : 2KA04'.


       PROCEDURE DIVISION.
       MENU.
           DISPLAY HAPUS-LAYAR.
           DISPLAY LAYAR-MENU.
           ACCEPT PILIH.
           DISPLAY HAPUS-LAYAR.

       SELEKSI.
           IF PILIH = 1 GO TO LINGKARAN.
           IF PILIH = 2 GO TO SEGITIGA.
           IF PILIH = 3 GO TO PERPANJANG.
           IF PILIH = 4 GO TO SELESAI.

       SEGITIGA.
           DISPLAY HAPUS-LAYAR.
           DISPLAY BDATA.
           DISPLAY (8, 10)'****** MENGHITUNG LUAS SGITIGA ******'.
           DISPLAY (10, 13) 'ALAS : '.
           ACCEPT ALAS.
           DISPLAY (11, 13) 'TINGGI : '.
           ACCEPT TINGGI.
           COMPUTE LSEGITIGA = ALAS * TINGGI / 2.
           MOVE LSEGITIGA TO OHASIL.
           DISPLAY (14, 14) 'LUAS SEGITIGA : '
           DISPLAY (14, 30) OHASIL.
           DISPLAY (20, 12) ' '.
           STOP 'TEKAN ENTER UNTUK MELANJUTKAN'.
           GO TO MENU.

       LINGKARAN.
           DISPLAY HAPUS-LAYAR.
           DISPLAY BDATA.
           DISPLAY (8, 10)'****** MENGHITUNG LUAS LINGKARAN ******'.
           DISPLAY (10, 13) 'JARI-JARI : '.
           ACCEPT JARI.
           COMPUTE LLINGKARAN = 3.14 * JARI * JARI.
           MOVE LLINGKARAN TO OHASIL.
           DISPLAY (14, 14) 'LUAS LINGKARAN : '.
           DISPLAY (14, 30) OHASIL.
           DISPLAY (20, 12) ' '.
           STOP 'TEKAN ENTER UNTUK MELANJUTKAN'.
           GO TO MENU.

       PERPANJANG.
           DISPLAY HAPUS-LAYAR.
           DISPLAY BDATA.
           DISPLAY (8, 10)'****** MENGHITUNG LUAS PERSEGI PANJANG ******'.
           DISPLAY (10, 13) 'PANJANG : '.
           ACCEPT PANJANG.
           DISPLAY (11, 13) 'LEBAR : '.
           ACCEPT LEBAR.
           COMPUTE LPERPANJANG = PANJANG * LEBAR.
           MOVE LPERPANJANG TO OHASIL.
           DISPLAY (14, 14) 'LUAS PERSEGI PANJANG : ',
           DISPLAY (14, 30) OHASIL.
           DISPLAY (20, 12) ' '.
           STOP 'TEKAN ENTER UNTUK MELANJUTKAN'.
           GO TO MENU.

       SELESAI.
           STOP RUN.

Tidak ada komentar:

Posting Komentar