Senin, 28 Desember 2009

CONTOH PROGRAM 1

Akan menghitung luas dan keliling empat persegi panjang dengan rumus sebgai berikut :
luas = panjang x lebar
keliling = 2 x ( panjang + lebar )
Buat program untuk mencari luas dan keliling tersebut !

IDENTIFICATION DIVISION.
PROGRAM-ID. LUAS DAN KELILING.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUKKAN.
02 PANJANG PIC 9(4)V99.
02 LEBAR PIC 9(4)V99.
01 LUAS PIC 9(6)V99.
01 KELILING PIC 9(6)V99.
SCREEN SECTION.
01 HAPUS-LAYAR.
49 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY (1,1) 'PANJANG: '.
ACCEPT PANJANG.
DISPLAY (2,1) 'LEBAR: '.
ACCEPT LEBAR.
COMPUTE LUAS = PANJANG * LEBAR.
COMPUTE KELILING = 2 * (PANJANG+LEBAR).
DISPLAY 'LUAS: ', LUAS.
DISPLAY 'KELILING: ', KELILING.
SELESAI.
STOP RUN.

Tidak ada komentar: