aldiunanto.com

Inputan dan kalkulasi sederhana mencari nilai keliling dan luas persegi panjang pada COBOL

Dalam post ini akan dibuat 2 buah program sederhana yang pada ruang lingkup utamanya memaksimalkan WORKING-STORAGE, dan kalkulasi aritmatika.

  1. Membuat inputan data NPM, Nama, dan Tanggal Lahir.

    Screenshot of source code
    1.	Membuat inputan data NPM, Nama, dan Tanggal Lahir pada COBOLScreenshot of result
    Membuat inputan data NPM, Nama, dan Tanggal Lahir pada COBOLPenjelasan dan logika

    Dalam divisi ini, menjelaskan tentang ID program yang kita buat (LADUA), selain itu ada informasi author dari pemilik atau creator program (ALDI).

    Menjelaskan tentang configurasi-configurasi dan peralatan yang dibutuhkan dalam sebuah program.

    Adalah divisi yang berguna untuk mendeklarasikan data input maupun data output, tentang bagaimana jenis data yang digunakan dan sifat dari data tersebut. Dalam hal ini, dibagi menjadi 2 section yaitu WORKING-STORAGE SECTION yang berguna untuk tempat mendeklarasikan variable-variable yang akan digunakan nanti, yang kedua SCREEN SECTION berguna untuk mengatur bentuk format dari layar input maupun output.

    Pada WORKING-STORAGE SECTION, dideklarasikan 3 buah variable yakni NPM dengan tipe data character yang mempunyai max length = 8, NAMA dengan tipe data character yang mempunyai max length = 50, dan terakhir TGL dengan tipe data angka yang memiliki format khusus yaitu format tanggal dd/mm/yyyy.


    Adalah divisi inti dari program COBOL, dimana pada divisi ini berisi semua statement instruksi program dibuat. Bisa kita lihat pada contoh progam ini, pemanggilan fungsi pertama yang sudah dideklarasikan di SCREEN SECTION sebelumnya yaitu HAPUS-LAYAR. Kita memanggilnya dengan DISPLAY yang berguna untuk clear screen output ke user.

    Pada bagian ini, ditampilkan karakter ‘NPM : ’, ‘Nama : ’, dan ‘Tanggal Lahir : ’ yang pada setiap samping karaker tersebut, program menerima inputan dari user dengan ACCEPT NPM, ACCEPT TGL, dan ACCEPT NAMA. Yang nantinya variable-variable tersebut tentunya akan menampung inputan dari user berupa NPM, Nama, dan Tanggal Lahir user tersebut.

    Dan terakhir yaitu menampilkan NPM, NAMA, dan TGL yang sebelumnya sudah terisi dengan inputan dari user dibagian awal dengan ACCEPT. Kususnya untuk variable TGL, COBOL akan secara otomatis mengubah format inputan dari user yang semula ‘07051995’ menjadi ‘07/05/1995’ kemudian program diakhiri dengan STOP RUN.
  2. Program penghitung keliling dan luas persegi panjang, COBOL

    Screenshot of source code
    Program penghitung keliling dan luas persegi panjang pada COBOLScreenshot of result
    Program penghitung keliling dan luas persegi panjang pada COBOL
    Penjelasan dan logika


    Dalam divisi ini, menjelaskan tentang ID program yang kita buat (LADUAA), selain itu ada informasi author dari pemilik atau creator program (ALDI).

    Menjelaskan tentang configurasi-configurasi dan peralatan yang dibutuhkan dalam sebuah program.

    Adalah divisi yang berguna untuk mendeklarasikan data input maupun data output, tentang bagaimana jenis data yang digunakan dan sifat dari data tersebut. Dalam hal ini digunakan satu section yaitu WORKING-STORAGE SECTION yang berguna untuk tempat mendeklarasikan variable-variable yang akan digunakan nanti. Pada WORKING-STORAGE SECTION, dideklarasikan 4 buah variable dengan 2 buah label yakni MASUKAN dan KELUARAN. Pada label MASUKAN, terdapat 2 buah variable yaitu PANJANG yg bertipe data angka dengan max length = 3, dan LEBAR bertipe data angka dengan max length = 3. Dan pada label KELUARAN, dideklarasi 2 buah variable yang nantinya digunakan untuk menampung hasil dari keliling dan luas suatu persegi panjang. Yang pertama yaitu KELILING bertipe data angka dan mempunyai max length = 3, dan LUAS bertipe data angka dengan max length = 4.

    Adalah divisi inti dari program COBOL, dimana pada divisi ini berisi semua statement instruksi program dibuat. Bisa kita lihat dalam snippet code ini, menerima inputan PANJANG dan LEBAR dari user.

    Pada bagian ini, merupakan bagian kalkulasi untuk mecari nilai keliling dan luas suatu persegi panjang. Yang pertama mencari keliling dengan rumus: 2*p + 2*l, dan terakhir luas dengan rumus: panjang * lebar.

    Dan terakhir yaitu menampilkan hasil kalkulasi keliling dan luas persegi panjang, kemudian program diakhiri dengan STOP RUN.

Leave a Reply

%d bloggers like this: