• Makanan Sehat Yang Jarang Dikonsumsi
    Mau sehat dan bugar setiap saat ? Tidak ada salahnya untuk mengikuti tips sehat ala ahli gizi Jonny Bowden. Dr. Jonny Bowden adalah penu...
  • Menghidupkan Mesin Mobil Pakai iPhone
    Ketenaran ponsel keluaran Apple iPhone di Indonesia masih kalah dibanding Blackberry, Nokia, Motorola, atau Sony Ericsson. Akan tetapi...
  • Macbeth
    Macbeth adalah sandiwara tragedi karya William Shakespeare yang ditulis sekitar tahun 1606. Drama ini adalah salah satu tragedi Shakesp...
  • Tanggal Rilis Transformers: Fall of Cybertron Dipercepat!
    Transformers: War for Cybertron yang dirilis pada tahun 2010 silam memang harus diakui merupakan salah satu game Transformer terbaik ya...
  • Peristiwa Penting Dalam Dunia IT
    1. Yahoo Melewatkan Facebook Tahukah Anda kalau Mark Zuckerberg pernah nyaris menjual hak kepemilikan Facebook kepada Yahoo? Tahun ...
  • Baju Nabi Adam as.
    Baju tersebut hanyalah replika dibuat di Jeddah, Arab Saudi. Sekadar untuk melihat setinggi manakah rupa bentuk Nabi Adam A.S. Seoran...
  • FIFA 14 Dapatkan Tanggal Rilis
    Jika kita membicarakan franchise game sepakbola paling populer di industri game saat ini, pilihan gamer hanya terpaku pada dua nama –...
  • Kamen Rider W Returns
    Sinopsis: Kamen Rider W Returns (仮面ライダーW (ダブル) RETURNS adalah sekumpulan dua V-Cinema (direct-to-video) rilis yang berfungsi sebagai spin...
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