Kamis, 13 Oktober 2011

Program Sederhana COBOL

PROCEDURE DIVISION.
       MULAI.
       DISPLAY CLS.
       DISPLAY 'Masukan Nilai A & B.'.
       DISPLAY 'Nilai A harus lebih besar dari Nilai B.'.
       DISPLAY 'Nilai A = ' AT LINE 4.
       ACCEPT NILAIA AT LINE 4 COL 11.
       DISPLAY 'NILAI B = ' AT LINE 5.
       ACCEPT NILAIB AT LINE 5 COL 11.
       DISPLAY 'Maka' AT LINE 7.
       COMPUTE TAMBAH = NILAIA + NILAIB.
       DISPLAY 'A + B = ', TAMBAH AT LINE 9.
       COMPUTE KURANG = NILAIA - NILAIB.
       DISPLAY 'A - B = ', KURANG AT LINE 10.
       ACCEPT KELUARAN.
       SELESAI.
       STOP RUN.

Untuk menjumlah nilai A+B
dan Untuk mengurang A-B

0 komentar:

Posting Komentar