Program COBOL (kalculator)

Posted: Januari 10, 2011 in ALL NEWS

PROGRAM

IDENTIFICATION DIVISION.

PROGRAM-ID.HITUNG.

ENVIRONMENT DIVISION.

DATA DIVISON.

WORKING-STORAGE SECTION.

77 PILIHAN PIC 9.

01 OPERAND.

02 ORP1 PIC 9(5) V99.

02 ORP2 PIC 9(5) V99.

02 HASIL PIC – (7)Z(9)9.ZZ.

01 LAGI PIC A.

88 IYA VALUE ‘Y’.’Y’.

88 TIDAK VALUE ‘T’,’T’.

SCREEN SECTION.

01 HAPUS-LAYAR.

02 BLANK SCREEN.

 

01 MEN-PILIHAN.

02 LINE 5 COLUMN 15 VALUE ‘MENU’.

FOREGROUND-COLOR 3 HIGHLIGHT BLINK.

02 LINE 7 COLUMN 8 VALUE ‘1.PENJUMLAHAN’.

02 LINE 8 COLUMN 8 VALUE ‘2.PENGURANGAN’.

02 LINE 9 COLUMN 8 VALUE ‘3.PERKALIAN’.

02 LINE 10 COLUMN 8 VALUE ‘4.PEMBAGIAN’.

02 LINE 11 COLUMN 8 VALUE ‘5.KELUAR’.

02 LINE 13 COLUMN 8 VALUE ‘6.PILIHAN : ‘.

02 COLUMN PLUS 2 PIC 9 TO PILIHAN REQUIRED.

01 INPUTAN.

02 LINE 17 COLUMN 8 VALUE ‘MASUKKAN BILANGAN KE 1 :’.

02 COLUMN PLUS 2 PIC 9(5) V99 TO ORP1 REQUIRED.

02 LINE 18 COLUMN 8 VALUE ‘MASUKKAN BILANGAN KE 2 :’.

02 COLUMN PLUS 2 PIC 9(5) V99 TO  ORP2 REQUIRED.

PROCEDURE DIVISION.

DISPLAY HAPUS-LAYAR.

DISPLAY MENU-PILIHAN.

ACCEPT MENU-PILIHAN

SELEKSI.

IF PILIHAN = 1.

GO TO PIL1.

IF PILIHAN = 2.

GO TO PIL2.

IF PILIHAN = 3.

GO TO PIL3.

IF PILIHAN = 4.

GO TO PIL4.

IF PILIHAN > 4.

GO TO SELESAI.

PIL1.

DISPLAY (15, 8) ‘++PENJUMLAHAN++’.

DISPLAY INPUTAN.

ACCEPT INPUTAN.

ADD ORP1,ORP2 GIVING HASIL.

DISPLAY(20, 8) ‘HASILNYA : ‘HASIL’.

GO TO MAU-LAGI.

PIL2.

DISPLAY (15,8) ‘–PENGURANGAN–‘.

DISPLAY INPUTAN.

ACCEPT INPUTAN.

SUBTRACT ORP2 FROM ORP1 GIVING HASIL.

DISPLAY (20,8) ‘HASILNYA : ‘HASIL’.

GO TO MAU-LAGI.

PIL3.

DISPLAY (15,8) ‘**PERKALIAN**’.

DISPLAY INPUTAN.

ACCEPT INPUTAN.

MULTYPLY ORP2 BY ORP1 GIVING HASIL.

DISPLAY (20,8) ‘HASILNYA : ‘HASIL’.

GO TO MAU-LAGI.

PIL4.

DISPLAY (15,8) ‘//PEMBAGIAN//’.

DISPLAY INPUTAN.

ACCEPT INPUTAN.

DIVIDE ORP1 BY ORP2 GIVING HASIL.

DISPLAY (20,8) ‘HASILNYA : ‘HASIL’.

GO TO MAU-LAGI.

PIL5.

GO TO SELESAI.

MAU-LAGI.

DISPLAY (23,4) ‘MAU NGITUNG LAGI [Y/T] ?’.

ACEEPT ( , ) LAGI.

IF IYA GO TO MULAI.

ELSE IF TIDAK GO TO SELESAI.

SELESAI.

STOP RUN.

 

Program yang dibuat di atas merupakan program sejenis kalkulator.Dimana jika program dijalankan program akan melakukan penjumlahan,penambahan,perkalian,serta pembagian.ketika program di RUN atau dijalankan,maka akan keluar menu pilihan penghitungan apa yang akan kita lakukan.

Jika dipilih pilihan untuk melakukan penambahan,maka program akan menjalankan proses penambahan,kita input bilanangan 1 dan 2,maka program akan menjumlahkan bilangan 1 dan 2 tersebut.ketika hasil telah keluar,kita diberikan pilihan untuk melakukan penghitungan lagi atau tidak.jika tiak,maka program akan kembali ke menu utama,jika lanjut,maka program akan melakukan penghitungan kembali.

begitu pula dengan pengurangan,perkalian,dan pembagian.jika ingin keluar dari program,kita tinggal input pilihan nomor 5 maka program akan keluar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s