Snippet

Program COBOL | Penghitungan

       identification division.
       program-id. penghitungan.
       author. danprihono.
       data division.
       working-storage section.
       77 angka1 pic 9(5).
       77 angka2 pic 9(5).
       77 hasil pic 9(5).
       77 pil pic x.      
       77 hasil-out pic z(5).
       screen section.
       01 hapus-layar.
           02 blank screen.
       01 masukan.
           02 line 1 column 1 value 'Input Bilangan 1 :'
           foreground-color 10.
           02 column plus 2 pic z(5) to angka1.
           02 line 2 column 1 value 'Input Bilangan 2 :'
           foreground-color 11.
           02 column plus 2 pic z(5) to angka2.
           02 line 4 column 8 value '==Pilihan=='.
           02 line 6 column 1 value '1. Penjumlahan'.
           02 line 7 column 1 value '2. Pengurangan'.
           02 line 8 column 1 value '3. Perkalian'.
           02 line 9 column 1 value '4. Pembagian'.
           02 line 10 column 1 value '5. Pangkat'.
           02 line 12 column 1 value 'Masukan Pilihan :'.
           02 column plus 2 pic x to pil.  
       01 keluaran.
           02 line 13 column 1 value 'Hasil :'
           foreground-color 12.
       procedure division.
       mulai.
           display hapus-layar.
           display masukan.
           accept masukan.
       kondisi.
           if (pil = '1' )
           compute hasil = angka1 + angka2
           else if (pil = '2')
           compute hasil = angka1 - angka2
           else if (pil = '3')
           compute hasil = angka1 * angka2
           else if (pil = '4')
           compute hasil = angka1 / angka2
           else if (pil = '5')
           compute hasil = angka1 ** angka2
           else
           display (15, 6) 'Pilihan Salah!'.
           display keluaran.
           move hasil to hasil-out.
           display (13, 10) hasil-out.
       selesai.       
           stop run.
 

Show 0 Comments
Categories:

Posting Komentar