Buat program untuk mencari besar pembayaran bila diketahui jumlah barang yang dibeli dan harga satuan barang tersebut.
Jumlah barang : ...
Harga satuan : ...
Pembayaran : ... (dua angka dibelakang koma)
(bayar = jumlah barang x harga satuan)
IDENTIFICATION DIVISION.
PROGRAM-ID. PEMBAYARAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUKKAN.
02 JUMLAH-BARANG PIC 99 VALUE 0.
02 HARGA-SATUAN PIC 9(8)V99.
01 DATA-KELUARAN.
02 BAYAR PIC Z (7)V99
SCREEN SECTION.
01 HAPUS-LAYAR.
49 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY (1,1) 'JUMLAH BARANG: '.
ACCEPT JUMLAH-BARANG.
DISPLAY (2,1) 'HARGA SATUAN: '.
ACCEPT HARGA-SATUAN.
COMPUTE BAYAR = JUMLAH-BARANG * HARGA-SATUAN.
DISPLAY 'BAYAR: ', BAYAR.
SELESAI.
STOP RUN.
Tidak ada komentar:
Posting Komentar