brainstorms

Sentence IF
Digunakan untuk penyeleksian kondisi baik untuk tipe data numerik, karakter ataupun logika.
Bentuk umum :
IF kondisi pernyataan-1 ...
[ ELSE ] pernyataan-2 ...

Keterangan :
• Bagian pernyataan yg terletak sesudah kondisi hanya akan dijalankan jika kondisi bernilai benar
• Bagian pernyataan yg terletak sesudah ELSE akan dijalankan jika kondisi bernilai salah

IDENTIFICATION DIVISION.
PROGRAM-ID. GENAP-GANJIL.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ANGKA.
02 INPUT PIC 99.
02 HASIL PIC 99 VALUE 0.
02 SISA PIC 99 VALUE 0.
02 BIL PIC X(6).
PROCEDURE DIVISION.
MULAI.
DISPLAY (1, 1) 'MASUKKAN ANGKA : '.
ACCEPT INPUT.
DISPLAY SPACE.
DIVIDE 2 INTO A GIVING HASIL REMAINDER SISA.
IF SISA = 0
MOVE 'GENAP' TO BIL
ELSE
MOVE 'GANJIL' TO BIL.
DISPLAY INPUT, ' MERUPAKAN ANGKA ', BIL.
SELESAI.
STOP RUN.