Menghitung Luas Trapesium menggunakan Cobol

Saya akan memberitahu cara menghitung luas trapesium dengan menggunakan program Cobol

CODING

       IDENTIFICATION DIVISION.

       PROGRAM-ID. TRAPE.

       AUTHOR. AYUVIDYA.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       01 JUMLAH.

           02 ALASBAWAH PIC 9(2).

           02 ALASATAS PIC 9(2).

           02 TINGGI PIC 9(2).

           02 LUAS PIC 9(2).

       PROCEDURE DIVISION.

       MULAI.

           DISPLAY ' '.

           DISPLAY '                    MENCARI LUAS TRAPESIUM'.

           DISPLAY ' '.

           DISPLAY 'ALAS BAWAH : '.

           ACCEPT ALASBAWAH.

           DISPLAY 'ALAS ATAS : '.

           ACCEPT ALASATAS.

           DISPLAY 'TINGGI : '.

           ACCEPT TINGGI.

           COMPUTE LUAS=(ALASBAWAH+ALASATAS)*(TINGGI/2).

           DISPLAY 'LUAS TRAPESIUM : ',LUAS.

           ACCEPT LUAS.

           STOP.

       SELESAI.

           STOPRUN. 

Atau ini adalah Print Screen dari Codingannya di Ide Cobol

 

 

OUTPUT