Sunday 1 November 2015

ARRAY PADA COBOL

pengertian array pada cobol
arrray atau yang biasa di sebut larik merupakan tipe data tersetruktur dimana didalamnya terdiri dari komponen – komponen yang mempunyai tipe data yang sama. Didalam suatu array jumlah komponen banyaknya adalah tetap. Didalam suatu larik atau array setiap kompoenen ditunjukan oleh suatu index yang unik. Index dari setiap komponen array menunjukan urutan data atau identitas yang mewakili data yang ada
read more.

macam-macam array pada cobol
setelah kita mengetahui pengertian tentang array selanjutnya kita akan membahas tentang macam macam array pada cobol.
ada 3 jenis array yaitu sebagai berikut?
1.                  array 1 dimensi
2.                  array 2 dimensi
3.                  array multidimensi
array 1 dimensi
array 1 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 array 1 dimensi
nama_array[jumlah_eleman];

array 2 dimensi
array 2 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 array 2 dimensi
nama_array[jumlah_eleman_baris][jumah_eleme_kolom];

Array multidimensi
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 DIMENSI 1

       IDENTIFICATION DIVISION.
       PROGRAM-ID. ARRAY.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE DIVISION.
       01 AWAL.
           02 NAMA PIC X(10) OCCURS 10 TIMES.
       77 A PIC 9(2).
       77 B PIC 9(2).
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY 'INPUTAN JUMLAH NAMA :'.
           ACCEPT B.
           PERFORM HASIL VARYING A FROM 1 BY 1 UNTIL A=B.
       HASIL.
           DISPLAY 'NAMA KE-', A , '?'.
           ACCEPT NAMA(A).
       ULANG.
           DISPLAY SPACE.
           PERFORM TAMPIL VARYING A FROM 1 BY 1 UNTIL A=B.
       TAMPIL.
           DISPLAY NAMA(A).
       AKHIR.
           STOP RUN.


No comments:

Post a Comment