Jawab :
Array (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 didalamnya.
2. Sebutkan Bentuk Umum Array pada COBOL?
Jawab :
Dalam Bahasa COBOL dapat di tulis sebagai berikut :
01 TABEL-TEMP
02 TEMP OCCURS 24 TIMES PIC 99
3. Berikan Contoh Pemrograman Array Pada Cobol :
Jawab :
IDENTIFICATION DIVISION.
PROGRAM-ID. TABEL1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 U PIC 99.
77 GARIS PIC X(65) VALUE ALL '-'.
01 TABEL1.
02 TGL OCCURS 10 TIMES PIC 99.
02 NOKIA OCCURS 10 TIMES PIC 99.
02 ERIC OCCURS 10 TIMES PIC 99.
02 SAMSUNG OCCURS 10 TIMES PIC 99.
02 NEXI OCCURS 10 TIMES PIC 99.
02 TOTAL OCCURS 10 TIMES PIC 99.
01 judul-1 PIC X(20) VALUE ' Tabel Penjualan'.
01 judul-2.
02 FILLER PIC X(2) VALUE '| '.
02 FILL PIC X(7) VALUE 'TANGGAL'.
02 FILL PIC X(2) VALUE '| '.
02 FILL PIC X(7) VALUE ' NOKIA'.
02 FILL PIC X(2) VALUE '|'.
02 FILL PIC X(9) VALUE ' ERICSON'.
02 FILL PIC X(2) VALUE '|'.
02 FILL PIC X(9) VALUE ' SAMSUNG'.
02 FILL PIC X(2) VALUE '|'.
02 FILL PIC X(9) VALUE ' NEXIAN'.
02 FILL PIC X(2) VALUE '|'.
02 FILL PIC X(9) VALUE ' TOTAL'.
02 FILL PIC X(1) VALUE '|'.
01 isi-tabel.
02 FILL PIC X(2) VALUE '| '.
02 TANGGAL PIC X(7).
02 FILL PIC X(2) VALUE '| '.
02 NOK PIC X(7).
02 FILL PIC X(2) VALUE '| '.
02 ERI PIC X(9).
02 FILL PIC X(2) VALUE '| '.
02 SAM PIC X(9).
02 FILL PIC X(2) VALUE '| '.
02 NEX PIC X(9).
02 FILL PIC X(2) VALUE '| '.
02 TOT PIC Z(9).
02 FILL PIC X(1) VALUE '|'.
SCREEN SECTION.
01 HAPUS.
02 BLANK SCREEN.
PROCEDURE DIVISION.
PROGRAM-UTAMA.
PERFORM MASUK VARYING U
FROM 1 BY 1 UNTIL U > 10.
PERFORM KPALA.
PERFORM TAMPIL VARYING U
FROM 1 BY 1 UNTIL U > 10.
ACCEPT U.
STOP RUN.
MASUK.
DISPLAY 'DATA KE-',U.
DISPLAY ( , )' Masukkan tanggal : '.
ACCEPT TGL(U).
DISPLAY ( , )' Jumlah hp nokia : '.
ACCEPT NOKIA(U).
DISPLAY ( , )' Jumlah ericson :'.
ACCEPT ERIC(U).
DISPLAY ( , )' Jumlah hp samsung : '.
ACCEPT SAMSUNG(U).
DISPLAY ( , )' Jumlah hp nexian : '.
ACCEPT NEXI(U).
COMPUTE TOTAL(U)=NOKIA(U)+ERIC(U)+SAMSUNG(U)+NEXI(U).
DISPLAY HAPUS.
TAMPIL.
MOVE TGL(U) TO TANGGAL.
MOVE NOKIA(U) TO NOK.
MOVE ERIC(U) TO ERI.
MOVE SAMSUNG(U) TO SAM.
MOVE NEXI(U) TO NEX.
MOVE TOTAL(U) TO TOT.
DISPLAY isi-tabel.
DISPLAY GARIS.
KPALA.
DISPLAY judul-1.
DISPLAY judul-2.
DISPLAY GARIS.
=============================================================
Berikut Array dengan kondisi pada COBOL
IDENTIFICATION DIVISION.
PROGRAM-ID. PRINTER1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 KODE PIC X(6).
77 I PIC 9.
01 ULANG PIC X.
88 LAGI VALUE 'Y', 'y'.
88 TIDAK VALUE 'T', 't'.
01 KETR.
02 KODE-PRIN OCCURS 2 TIMES PIC X(6).
02 KET OCCURS 2 TIMES PIC X(35).
SCREEN SECTION.
01 HAPUS.
02 BLANK SCREEN.
01 LAYAR-MASUK.
02 LINE 4 COLUMN 30 "<< INPUT KODE >>".
02 LINE 6 COLUMN 15 "KODE : ".
02 COLUMN PLUS 1 PIC X(6) TO KODE.
PROCEDURE DIVISION.
UTAMA.
MOVE 'LX800 ' TO KODE-PRIN(1).
MOVE 'EPSON' TO KET(1).
MOVE 'HP1010' TO KODE-PRIN(2).
MOVE 'HP LASER' TO KET(2).
DISPLAY HAPUS.
PERFORM MASUK.
PERFORM CARI VARYING I
FROM 1 BY 1 UNTIL I > 2.
GO TO TANYA.
STOP RUN.
MASUK.
DISPLAY LAYAR-MASUK.
ACCEPT LAYAR-MASUK.
CARI.
IF KODE-PRIN(I)=KODE
DISPLAY(8, 15) 'PRINTER YANG ANDA GUNAKAN ADALAH ', KET(I).
TANYA.
DISPLAY(10, 15) 'APAKAH ADA KODE LAINNYA: '.
ACCEPT ULANG.
IF LAGI GO TO UTAMA.
STOP RUN.
Tidak ada komentar:
Posting Komentar