PROGRAM BILANGAN GANJIL/GENAP PADA COBOL

PROGRAM BILANGAN GANJIL ATAU GENAP PADA COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. GANJIL.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 BILANGAN.
02 A 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 BILANGAN : '.
ACCEPT A.
DISPLAY SPACE.
DIVIDE 2 INTO A GIVING HASIL REMAINDER SISA.
IF SISA = 0
MOVE 'GENAP' TO BIL
ELSE
MOVE 'GANJIL' TO BIL.
DISPLAY A, ' ADALAH BILANGAN ', BIL.
SELESAI.
STOP RUN.


OUTPUT :

MASUKKAN BILANGAN : 13
13 ADALAH BILANGAN GANJIL

Posting Terkait

CONTOH PROGRAM

• Animasi 1
• Animasi Teks pada Pascal
• Program Menu c pada Linux
• Tabel Biodata Pada Java
• Program Animasi Kata 1 pada C
• Program Jumlah Matriks (ordo2)&det pd pascal
• Program Perkalian Matriks Pada Cobol
• Program Menu Array pada Cobol
• PROGRAM MENU PADA PASCAL
• PROGRAM ROTASI 45 PADA PASCAL
• PROGRAM GARIS PADA PASCAL
• PROGRAM BILANGAN PRIMA PADA COBOL