IDENTIFICATION DIVISION.
PROGRAM-ID. ARITMATIKA.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC 9(1).
01 B PIC 9(2).
01 C PIC 9(2).
01 D PIC 9(4).
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY ( 3 , 4 ) 'JUMLAH NILAI PERTAMA DAN KEDUA < 100'.
DISPLAY ( 5 , 4 ) 'NILAI PERTAMA : '.
ACCEPT B.
DISPLAY ( 7 , 4 ) 'NILAI KEDUA : '.
ACCEPT C.
GO TO MENU.
MENU.
DISPLAY CLS.
DISPLAY ( 3 , 1 ) 'MENU'.
DISPLAY ( 5 , 4 ) '1. TAMBAH'.
DISPLAY ( 6 , 4 ) '2. KURANG'.
DISPLAY ( 7 , 4 ) '3. KALI'.
DISPLAY ( 8 , 4 ) '4. BAGI'.
DISPLAY ( 9 , 4 ) '5. PANGKAT'.
DISPLAY ( 10 , 4 ) '6. KELUAR'.
DISPLAY ( 11 , 4 ) 'MASUKKAN PILIHAN : '.
ACCEPT A.
IF A = 1 GO TO TAMBAH.
IF A = 2 GO TO KURANG.
IF A = 3 GO TO KALI.
IF A = 4 GO TO BAGI.
IF A = 5 GO TO PANGKAT.
IF A = 6 GO TO KELUAR.
TAMBAH.
DISPLAY CLS.
ADD B, C GIVING D.
DISPLAY ( 9 , 4 ) 'HASIL PENJUMLAHAN ', B ' DI TAMBAH ', C.
DISPLAY ( 10 , 4 )'ADALAH ', D.
GO TO SELESAI.
KURANG.
DISPLAY CLS.
SUBTRACT C FROM B GIVING D.
DISPLAY ( 9 , 4 ) 'HASIL PENGURANGAN ', B ' DI KURANG ', C.
DISPLAY ( 10 , 4 )'ADALAH ', D.
GO TO SELESAI.
KALI.
DISPLAY CLS.
MULTIPLY B BY C GIVING D.
DISPLAY ( 9 , 4 ) 'HASIL PERKALIAN ', B ' DI KALI ', C.
DISPLAY ( 10 , 4 )'ADALAH ', D.
GO TO SELESAI.
BAGI.
DISPLAY CLS.
DIVIDE C INTO B GIVING D.
DISPLAY ( 9 , 4 ) 'HASIL PEMBAGIAN ', B ' DI BAGI ', C.
DISPLAY ( 10 , 4 )'ADALAH ', D.
GO TO SELESAI.
PANGKAT.
DISPLAY CLS.
COMPUTE D = B ** C
DISPLAY ( 9 , 4 ) 'HASIL PERPANGKATAN ', B ' DI PANGKAT ', C.
DISPLAY ( 10 , 4 )'ADALAH ', D.
GO TO SELESAI.
KELUAR.
DISPLAY CLS.
DISPLAY ' "TERIMA KASIH" '.
GO TO SELESAI.
SELESAI.
STOP RUN.
Tidak ada komentar:
Posting Komentar