IF pada COBOL Teknnik Pemrograman Terstruktur

      IDENTIFICATION DIVISION.
       PROGRAM-ID. Kelompok5.
       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 SISI PIC 99V99.
           02 LP 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 '<<< MENU LUAS BANGUN >>>'.
           02 LINE 4 COLUMN 20 VALUE '<<< 1.LUAS LINGKARAN >>>'.
           02 LINE 5 COLUMN 20 VALUE '<<< 2.LUAS SEGITIGA >>>'.
           02 LINE 6 COLUMN 20 VALUE '<<< 3.LUAS PERSEGI >>>'.
           02 LINE 7 COLUMN 20 VALUE '<<< 4.KELUAR >>>'.
           02 LINE 10 COLUMN 20 VALUE 'INPUT PILIHAN ANDA [1..4] '.

       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 PERSEGI.
           IF PILIH = 4 GO TO SELESAI.


       SEGITIGA.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (8, 10)'LUAS SGITIGA'.
           DISPLAY (9, 13) 'ALAS ='.
           ACCEPT ALAS.
           DISPLAY (10, 13) 'TINGGI ='.
           ACCEPT TINGGI.
           COMPUTE LSEGITIGA = ALAS * TINGGI / 2.
           MOVE LSEGITIGA TO OHASIL.
           DISPLAY (12, 14) 'LUAS SEGITIGA = '
           DISPLAY (12, 30) OHASIL.
           DISPLAY (20, 12) ' '.
           STOP 'PRESS ENTER TO CONTINUE'.
           GO TO MENU.


       LINGKARAN.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (8, 10)'===LUAS LINGKARAN==='.
           DISPLAY (9, 13) 'JARI-JARI : '.
           ACCEPT JARI.
           COMPUTE LLINGKARAN = 3.14 * JARI * JARI.
           MOVE LLINGKARAN TO OHASIL.
           DISPLAY (13, 15) 'LUAS LINGKARAN = '.
           DISPLAY (13, 30) OHASIL.
           DISPLAY (20, 12) ' '.
           STOP 'PRESS ENTER TO CONTINUE'.
           GO TO MENU. 


       PERSEGI.
           DISPLAY HAPUS-LAYAR.
           DISPLAY (8, 10)'===MENGHITUNG LUAS PERSEGI==='.
           DISPLAY (9, 13) 'SISI :'.
           ACCEPT SISI.
           COMPUTE LP = SISI * SISI.
           MOVE LP TO OHASIL.
           DISPLAY (13, 15) 'LUAS PERSEGI = ',
           DISPLAY (13, 35) OHASIL.
           DISPLAY (20, 12) ' '.
           STOP 'PRESS ENTER TO CONTINUE'.
           GO TO MENU.

       SELESAI.
           STOP RUN.

Komentar

Posting Komentar

Postingan populer dari blog ini

AQIDAH, SYARIAH, AKHLAK

KERANGKA DASAR ISLAM ( AQIDAH, SYARIAH, AKHLAK) 1.            Pendahuluan Islam merupakan agama samawi yang memiliki ajaran yang sangat sempurna. Semua masalah diatur dalam Islam, sehingga tidak ada satu pun masalah yang tidak ada ketentuannya dalam Islam. Kesempurnaan Islam ini ditunjang oleh ketiga sumber ajarannya, yakni al-Quran dan Sunnah sebagai sumber ajaran pokoknya serta ijtihad sebagai sumberpenegkapnya. Untuk memahami ajaran Islam secara keseluruhan memang dibutuhkan waktu yang tidak sebentar. Tidak banyak umat Islam  yang mengetahui ajaran Islam secara menyeluruh, bahkan masih banyak umat Islam yang hanya menganut Islam secara formal saja dan sama sekali tidak mengetahui ajaran Islam. Untuk mendasari pemahaman Islam yang lebih luas, perlu dipahami dulu mengenai dasar-dasar Islam atau yang sering disebut kerangka dasar ajaran Islam. Dengan memahami kerangka dasar islam ini, seseorang diharapkan dapat memah...
Baca selengkapnya

Soal Tentang PHP

1.       Bagaimana cara Anda memanggil method method sebuah kelas dari dalam kelas itu sendiri? a. $self=>mymethod();                                                 b. $this->mymethod(); c. $current->mymethod();                                            d. $this::mymethod(); 2.       Asumsi bahwa browser client tidak pernah direstart, berapa lama setelah akses yang terakhir session dinyatakan expire dan dianggap sebagai garbage ? a. Setelah 1440 detik b. Setelah waktu yang dinyatakan pada PHP ini pada session.gc_maxlifetime c. Tidak perna...
Baca selengkapnya