Menghitung luas segitiga dan persegi dengan cobol

LISTING PROGRAM :

       IDENTIFICATION DIVISION.

       PROGRAM-ID. ERIKA.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       77 JAWAB PIC X(10).

       77 COBA-LAGI PIC X.         

       01 DATA-SGTG.

           02 ALAS PIC 9(2).

           02 TINGGI PIC 9(2).

       01 DATA-PERSEGI.

           02 PANJANG PIC 9(2).

           02 LEBAR PIC 9(2).

       01 DATA-LUAS.

           02 LUAS PIC 9(3).

       SCREEN SECTION.

       01 BERSIH.

           02 BLANK SCREEN.

       01 SGTG-INPUTAN.

           02 LINE 1 COLUMN 2 VALUE 'ALAS = '.

           02 COLUMN PLUS 2 PIC 9(2) TO ALAS.

           02 LINE 2 COLUMN 2 VALUE 'TINGGI = '.

           02 COLUMN PLUS 2 PIC 9(2) TO TINGGI.

       01 PERSEGI-INPUTAN.

           02 LINE 1 COLUMN 2 VALUE 'PANJANG = '.

           02 COLUMN PLUS 2 PIC 9(2) TO PANJANG.

           02 LINE 2 COLUMN 2 VALUE 'LEBAR = '.

           02 COLUMN PLUS 2 PIC 9(2) TO LEBAR.

       01 HASIL.

           02 LINE 4 COLUMN 2 VALUE 'LUAS = '.

           02 COLUMN PLUS 2 PIC 9(3) FROM LUAS.

           02 LINE 6 COLUMN 2 VALUE 'COBA LAGI [Y/N] ? '.

       01 TANYAKAN.

           02 LINE 3 COLUMN 20 VALUE '#######################'.

           02 LINE 5 COLUMN 27 VALUE 'SEGITIGA'.

           02 LINE 6 COLUMN 27 VALUE 'PERSEGI'.

           02 LINE 7 COLUMN 27 VALUE 'EXIT'. 

           02 LINE 9 COLUMN 20 VALUE '#######################'.

           02 LINE 11 COLUMN 20 VALUE 'PILIH JENIS PERHITUNGANNYA ? '.   

       PROCEDURE DIVISION.

       MULAI.

           DISPLAY BERSIH.

           DISPLAY TANYAKAN.

           ACCEPT JAWAB.

       SELEKSI.

           IF JAWAB = 'SEGITIGA' GO TO SGTG.

           IF JAWAB = 'PERSEGI' GO TO PERSEGI.

           IF JAWAB = 'EXIT' GO TO SELESAI.

       SGTG.

           DISPLAY BERSIH.

           DISPLAY SGTG-INPUTAN.

           ACCEPT SGTG-INPUTAN.

           DISPLAY SPACE.

           DISPLAY ' LUAS = (ALAS * TINGGI) / 2'.

           COMPUTE LUAS = (ALAS * TINGGI) / 2.

           DISPLAY HASIL.

           ACCEPT COBA-LAGI.    

       PERSEGI.

           DISPLAY BERSIH.

           DISPLAY PERSEGI-INPUTAN.

           ACCEPT PERSEGI-INPUTAN.

           DISPLAY SPACE.

           DISPLAY ' LUAS = (PANJANG * LEBAR)'.

           COMPUTE LUAS = (PANJANG * LEBAR).

           DISPLAY HASIL.          

           ACCEPT COBA-LAGI.

       LAGI.

           IF COBA-LAGI = 'Y' GO TO MULAI.

           IF COBA-LAGI = 'N' GO TO SELESAI.                 

       SELESAI.

           STOP RUN.

Output awal setelah program di eksekusi  tampilannya seperti di bawah ini. User diminta menginput jenis perhitungan yang diinginkan sesuai dengan pilihan yang ada.

 

Misalnya user memilih perhitungan segitiga. 

 

Maka output yang tampil adalah sebagai berikut. Kemudian user diminta untuk memasukkan nilai dari alas dan tinggi.

 

Setelah menginput nilai dari alas dan tinggi kemudian menekan tombol enter maka akan tampil hasil perhitungan dari alas dan tinggi sebagai luas.

Output selanjutnya user ditanya kembali meu mencoba kembali perhitungan atau tidak? Misalnya user memilih Y (yes) seperti dibawah ini.

Setelah user memilih Y, maka program akan menampilkan program berikutnya yaitu perhitungan persegi. Cara menginput nilai untuk panjang dan lebar sama seperti menginput nilai dari luas segitiga.

 

Pada pilihan diatas user ditanya kembali apakah mau mencoba perhitungan lagi ? misalnya user memilih Y, maka tampilannya seperti dibawah ini yaitu kembali ke menu pilihan perhitungan.

 

Tetapi jika pada pilihan mau coba lagi atau tidak user memilih N (no), maka program akan keluar dari program yang sedang di eksekusi (kembali ke window code). Seperti di bawah ini :

 

Jika pada menu pilihan perhitungan user memilih exit, maka program akan keluar dari program yang sedang di eksekusi. Tampilannya seperti di bawah ini :