LP COBOL IV

Soal :
1. Apa yang dimaksud array pada cobol?
2. Sebutkan dan jelaskan macam – macam array
3. Buat program sederhana array

Jawaban :
Salah satu struktur data yang teramat penting adalah array atau larik. Array merupakan bagian dasar, yang disebut blok, guna keperluan pembentukan suatu struktur data lain yang lebih kompleks. Hampir setiap jenis struktur data kompleks dapat disajikan secara logik oleh array.

Kita dapat mendefinisikan array sebagai suatu himpunan hingga elemen, terurut dan homogen. Terurut, kita artikan bahwa elemen tersebut dapat diidentifikasi sebagai elemen pertama, elemen kedua, dan seterusnya sampai elemen ke-n. Sedangkan pengertian elemen yang homogen adalah bahwa setiap elemen dari sebuah array tertentu haruslah mempunyai tipe data yang sama.

Macam-macam array :
Array satu dimensi
Merupakan sebuah variabel yang menyimpan sekumpulan data yang memiliki tipe sama dan elemen yang akan diakses hanya melalui 1 indeks atau subskrip.

Bentuk umum pendeklarasian:
nama_array[jumlah_eleman];

Array dua dimensi
Merupakan sebuah variabel yang menyimpan sekumpulan data yang memiliki tipe sama dan elemen yang akan diakses melalui 2 indeks atau subskrip yaitu indeks baris dan indeks kolom.

Bentuk umum pendeklarasian:
nama_array[jumlah_eleman_baris][jumah_eleme_kolom];

Array multidimensi
Merupakan sebuah variabel yang menyimpan sekumpulan data yang memiliki tipe sama dan elemen yang akan diakses melalui banyak indeks atau subskrip. Array seperti ini biasa digunakan untuk matik, array 2 dimensi juga termasuk kedalam array multidimensi.

Contoh program array :
    IDENTIFICATION DIVISION.
    PROGRAM-ID. tabel1.
    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    77 n PIC 99.
    01 tabel-nilai-siswa.
        02 nilai-siswa PIC 999 OCCURS 10 TIMES.
    SCREEN SECTION.
    01 hapus-layar.
        02 BLANK SCREEN.
    PROCEDURE DIVISION.
    program-utama.
        PERFORM pemasukan-nilai-siswa
        VARYING n FROM 1 BY 1 UNTIL n > 10.
        DISPLAY hapus-layar.
        PERFORM tampilan-nilai-siswa
        VARYING n FROM 1 BY 1 UNTIL n > 10.
        STOP RUN.
    pemasukan-nilai-siswa.
        DISPLAY ( , ) ‘Nilai : ‘.
        ACCEPT ( , ) nilai-siswa (n).
        DISPLAY SPACE.
    tampilan-nilai-siswa.
        DISPLAY ( , ) ‘Nilai ke ‘, n , ‘ : ‘ nilai-siswa (n).
        DISPLAY SPACE.