Tugas TPT 1 ENVIRONMENT DIVISION (COBOL)

    Input

Luas Persegi Panjang Menggunakan Cumpute:

        IDENTIFICATION DIVISION.
        PROGRAM-ID.    FIRST.
        ENVIRONMENT DIVISION.
                        AUTHOR. XEVIRUS.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 DATA-MASUKKAN.
            02 PANJANG PIC 9(3).
                                    02 LEBAR PIC 9(3).
                                    02 LUAS PIC 9(3).
               
        SCREEN SECTION.
        01 HAPUS-LAYAR.
            02 BLANK SCREEN.
        PROCEDURE DIVISION.
        MULAI.
          
            DISPLAY 'PANJANG               : '.
            ACCEPT PANJANG.
            DISPLAY 'LEBAR                : '.
            ACCEPT LEBAR.
            COMPUTE LUAS = PANJANG * LEBAR.
                                    DISPLAY 'Luas Persegi Panjang: ', LUAS.
       
        SELESAI.
            STOP RUN.
Output
Input

Luas Persegi Panjang Menggunakan Aritmatika:

        IDENTIFICATION DIVISION.
        PROGRAM-ID.    FIRST.
        ENVIRONMENT DIVISION.
                        AUTHOR. XEVIRUS.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 DATA-MASUKKAN.
            02 PANJANG PIC 9(3).
                                    02 LEBAR PIC 9(3).
                                    02 LUAS PIC 9(3).
               
        SCREEN SECTION.
        01 HAPUS-LAYAR.
            02 BLANK SCREEN.
        PROCEDURE DIVISION.
        MULAI.
          
            DISPLAY 'PANJANG               : '.
            ACCEPT PANJANG.
            DISPLAY 'LEBAR                : '.
            ACCEPT LEBAR.
            MULTIPLY PANJANG BY LEBAR GIVING LUAS.
                                    DISPLAY 'Luas Persegi Panjang: ', LUAS.
       
        SELESAI.
            STOP RUN.
Output
 
Input

Luas Segitiga Menggunakan Compute:

        IDENTIFICATION DIVISION.
        PROGRAM-ID.    SECOND.
        ENVIRONMENT DIVISION.
                        AUTHOR. XEVIRUS.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 DATA-MASUKKAN.
            02 ALAS PIC 9(3).
                                    02 TINGGI PIC 9(3).
                                    02 LUAS PIC 9(3).
               
        SCREEN SECTION.
        01 HAPUS-LAYAR.
            02 BLANK SCREEN.
        PROCEDURE DIVISION.
        MULAI.
          
            DISPLAY 'ALAS               : '.
            ACCEPT ALAS.
            DISPLAY 'TINGGI                : '.
            ACCEPT TINGGI.
            COMPUTE LUAS = (ALAS * TINGGI) / 2.
                                    DISPLAY 'Luas Segitiga: ', LUAS.
       
        SELESAI.
            STOP RUN.
Output
 
Input
Luas Segitiga Menggunakan Aritmatika:
        IDENTIFICATION DIVISION.
        PROGRAM-ID.    SECOND.
        ENVIRONMENT DIVISION.
                        AUTHOR. XEVIRUS.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 DATA-MASUKKAN.
            02 ALAS PIC 9(3).
                                    02 TINGGI PIC 9(3).
                                    02 LUAS PIC 9(3).
                                    02 LUASNEW PIC 9(3).
                
        SCREEN SECTION.
        01 HAPUS-LAYAR.
            02 BLANK SCREEN.
        PROCEDURE DIVISION.
        MULAI.
          
            DISPLAY 'ALAS               : '.
            ACCEPT ALAS.
            DISPLAY 'TINGGI                : '.
            ACCEPT TINGGI.
            MULTIPLY ALAS BY TINGGI GIVING LUASNEW.
                                    DIVIDE LUASNEW BY 2 GIVING LUAS
                                    DISPLAY 'Luas Segitiga: ', LUAS.
       
        SELESAI.
            STOP RUN.
Output
 
Input
Luas Lingkaran Menggunakan Compute:
        IDENTIFICATION DIVISION.
        PROGRAM-ID.    THIRD.
        ENVIRONMENT DIVISION.
                        AUTHOR. XEVIRUS.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 DATA-MASUKKAN.
            02 JARI PIC 9(3).
                                    02 LUAS PIC 9(3).
               
        SCREEN SECTION.
        01 HAPUS-LAYAR.
            02 BLANK SCREEN.
        PROCEDURE DIVISION.
        MULAI.
          
            DISPLAY 'JARI-JARI               : '.
            ACCEPT JARI.
            COMPUTE LUAS = JARI * JARI * 3.14.
                                    DISPLAY 'Luas Persegi Panjang: ', LUAS.
       
        SELESAI.
            STOP RUN.

Output


 

Input
Luas Lingkaran Menggunakan Aritmatika:
        IDENTIFICATION DIVISION.
        PROGRAM-ID.    THIRD.
        ENVIRONMENT DIVISION.
                        AUTHOR. XEVIRUS.
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 DATA-MASUKKAN.
            02 JARI PIC 9(3).
                                    02 JARI2 PIC 9(3).
                                    02 LUAS PIC 9(3).
               
        SCREEN SECTION.
        01 HAPUS-LAYAR.
            02 BLANK SCREEN.
        PROCEDURE DIVISION.
        MULAI.
          
            DISPLAY 'JARI-JARI               : '.
            ACCEPT JARI.
            MULTIPLY JARI BY JARI GIVING JARI2.
                                    MULTIPLY JARI2 BY 3.14 GIVING LUAS.
                                    DISPLAY 'Luas Lingkaran: ', LUAS.
       
        SELESAI.
            STOP RUN.

Output






Daftar Pustaka:
http://rani_push.staff.gunadarma.ac.id/Downloads/folder/0.1
Materi Statement Aritmatika

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

Soal UU Testing Implementasi Sistem

Tugas Buat 30 Soal + Jawaban PG Testing Implementasi Sistem Sistem Informasi Gunadarma University PTA 2018/2019 Dosen :  AGUSTIANI DWI HANDAYANI 1.        Yang tidak termasuk pengujian white box adalah: a.        Pengujian partisi ekivalensi b.       Pengujian matrik grafik c.        Pengujian aliran data d.       Pengujian struktur kontrol Jawaban : A 2.        Yang tidak termasuk karakteristik preangkat lunak yang bisa di uji adalah: a.        Kontrolabilitas b.       Realibilitas c.        Operabilitas d.       Observabilitas Jawaban : B 3.        Langkah – langkah yang dapat di usulkan dalam pengujian system real time adalah...
Baca selengkapnya