Cobol - Program Ganjil genap

seperti yang sudah kita bahas sebelumnya tentang cobol, kali ini kita akan membahas beberapa hal lagi tentang cobol di antaranya :

Keuntungan Cobol :
  1. instruksi dalam bahasa inggris.
  2. sesuai untuk pengolahan data, terutama untuk permasalahan bisnis.
  3. standart, atau dapat di gunakan pada komputer yang berbeda.
  4. struktur program jelas.
  5. fasilitas listing program.
  6. mudah di dokumentasikan.
3 Macam data constan :

  1. Literal Numerik : 
  • Maxsimal panjang 18 digit.
  • boleh ada tanda (+) atau (-) yang letaknya pada posisi terkiri tampa ada sepasi dengan angka pertamanya.
  • Boleh ada titik desimal di mana saja KECUALI pada posisi terkanan.
Contoh :

BOLEH.            TIDAK BOLEH.                ALASAN TIDAK BOLEH.
10111676               10111676.                             karena ada titik di posisi terkanan.
-10111676             - 10111676                            Karena (-) dengan sepasi.
+10111676             + 10111676                            Karena (+) dengan sepasi.
123456                12345678912345678912       karena lebih dari 18 karakter.


    2. Literal Non Numerik :
  • Panjang maximal 120 Karakter.     
  • Boleh terdiri dari kumpulan Karaktaer (char set) kecuali karakter petik satu (').

Contoh :

BOLEH.      TIDAK BOLEH.          ALASAN TIDAK BOLEH.
'Laporan'      'Laporan' Keuangan''       karena memiliki lebih dari 2 tanda petik satu (').


Perbedaan antara Literal Numerik dengan Literal Non Numerik :

Numerik                         Non Numerik

15 + 35 = 50                             '15' + '35' = '1535'


Ungkapan Arit matika pada Cobol :
  1. pangkat  --> **
  2. kali        --> *
  3. bagi       --> /
  4. tambah   --> +
  5. kurang   --> -


    3. Figuratif Constan :
Figuratif Constan termasuk dalam Reserved Word yang mempunyai maksud tertentu yang sudah di kenal oleh compaile.

Contoh :

ZERO, ZEROS, ZEROES            berarti nilai nol
SPACE,SPACES                      berarti nilai 1 blank atau spasi
QUOTE, QUOTES                   berarti tanda petik



PROGRAM GANJIL / GENAP :

 COMPAIL STATUS : NO ERRORS OR WARNINGS.

(program ganjil Cobol)

(Hasil Output program ganjil Cobol)


(program genap Cobol)

(hasil output program genap Cobol)

KETERANGAN :

Pada 77 ANGKA PIC 99. --:> di ganti zz untuk menghilangkan 0 pada awal output.
Pada  MOVE 1 TO ANGKA.  --:> 1 untuk awalan output.
Pada PERFORM ULANG 10 TIMES  --> jumlah perulangan.
pada ADD 2 TO ANGKA. -->  jumlah longkapan numerik.

BILA INGIN MENCOBA SILAHKAN DOWNLOAD DISINI :
        CODING COBOL [VIA ZIDDU]

        CODING COBOL [VIA 4Shared]

jika tidak punya sofware cobol silahkan download DISINI

Terimakasih sudah datang dan membaca artikel kami Sertakan link sumber untuk menghargai karya cipta orang lain :)

1 komentar:

Posting Komentar

Dilarang Menggunakan Bahasa Yang Kotor Dan Berbau SARA
jika ada link yang rusak atau request silahkan menuju ke link ini : DISINI

Recommendation

Related Posts Plugin for WordPress, Blogger...