Sunday, 11 October 2009

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

1 comments:

Pak wendi said...

Awalnya aku hanya mencoba main togel akibat adanya hutang yang sangat banyak dan akhirnya aku buka internet mencari aki yang bisa membantu orang akhirnya di situ lah aku bisa meliat nmor nya AKI NAWE terus aku berpikir aku harus hubungi AKI NAWE meskipun itu dilarang agama ,apa boleh buat nasip sudah jadi bubur,dan akhirnya aku menemukan seorang aki.ternyata alhamdulillah AKI NAWE bisa membantu saya juga dan aku dapat mengubah hidup yang jauh lebih baik berkat bantuan AKI NAWE dgn waktu yang singkat aku sudah membuktikan namanya keajaiban satu hari bisa merubah hidup ,kita yang penting kita tdk boleh putus hasa dan harus berusaha insya allah kita pasti meliat hasil nya sendiri. siapa tau anda berminat silakan hubungi AKI NAWE Di Nmr 085--->"218--->"379--->''259 atau klik dibawah PESUGIHAN TAMPA TUMBAL .
.

Post a Comment

Mikail Alfith Amarullah

↑ Grab this Headline Animator

IKLAN

  © Blogger Tamplates

Back to TOP