• 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...
  • 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...
  • Micro Thin LED Monitor yang Biru
    Monitor HP x2301 Micro thin LED dengan layar LED dari HP (Hewlett-Packard) memang sangat berteknologi tinggi. Ini dapat dilihat pada tampi...
Snippet

Program COBOL | Penjumlahan

       identification division.
       program-id. hitungan.
       author. dan prihono.
       data division.
       working-storage section.
       77 angka pic 9(5).        
       77 angka2 pic 9(5).
       77 hasil pic 9(5).
       screen section.
       01 hapus.
           02 blank screen.
       01 masukan.
           02 line 1 column 1 value 'angka:'.
           02 column plus 2 pic z(5) to angka.
           02 line 2 column 1 value 'angka:'.
           02 column plus 2 pic z(5) to angka2.
       01 keluaran.
           02 line 5 column 1 value 'hasil:'.
           02 column plus 2 pic z(5) from hasil.
       procedure division.
       mulai.
           display hapus.
           display masukan.
           accept masukan.
       compute hasil = angka + angka2.
           display keluaran.
           stop run.

Show 0 Comments
Categories:

Posting Komentar