IDENTIFICATION DIVISION.
PROGRAM-ID. ARRAY.
AUTHOR.
ENVIRONMENT DIVISION.
WORKING-STORAGE SECTION.
01 VARIABEL.
02 NILAI X OCCURS 2 TIMES.
03 NILAI PIC 9 OCCURS 2 TIMES.
77 I PIC 99.
77 J PIC 99.
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
SCREEN SECTION.
BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY '--MASUKKAN ELEMEN MATRIKS--'.
DISPLAY ' '.
PERFORM ISI-DATA
VARYING I FROM 1 BY 1 UNTIL I > 2
AFTER J FROM 1 BY 1 UNTIL J > 2
DISPLAY ' '.
DISPLAY ' ELEMENT MATRIKS '.
DISPLAY ' '.
PERFORM TAMPILKAN-DATA
VARYING I FROM 1 BY 1 UNTIL I > 2
AFTER J FROM 1 BY 1 UNTIL J > 2
AKHIR.
STOP RUN.
ISI-DATA.
DISPLAY ( , ) 'NILAI KE = (', I, ', ', J, ') = '.
ACCEPT NILAI (I, J).
TAMPILKAN-DATA.
DISPLAY( , ) NILAI (I, J) , ' '.
IF J = 2 DISPLAY SPACE.
Sebelum menulis kodingan, COBOL mempunyai aturan penulisan, yaitu setiap kodingan selalu dimulai dengan 7 spasi, dan memulai program pada kolom ke 8. Untuk Display dan Isi dari Item data (level number selain 01) dimulai dengan 11 spasi dan memulai program pada kolom ke 12.
Arti dari statement di atas adalah, Identification Division menjelaskan program yang dibuat. Program ini dijelaskan dengan nama ARRAY dan penulis yang membuat program ini adalah Irene.
Arti dari statement di atas adalah, Identification Division menjelaskan program yang dibuat.
Arti dari statement diatas adalah untuk informasi keadaan komputer yang dipakai. Disini tidak menggunakan configuration section dan input-output section.
Arti dari statement diatas adalah Data Division untuk informasi mengenai bentuk dan jenis data yang digunakan. Data divisi yang digunakan adalah Working-Storage dan Screen Section.
Kode 01 artinya nama record, nama record yang diberikan adalah Variabel. Isi dari Variabel tersebut adalah Nilai [array dengan tipe data alphanumeric sebanyak 2 variabel]. Nilai [array dengan tipe data number, berisikan 2 variabel]
Screen Section adalah yaitu untuk mendefinisikan bentuk dari layar input / output. CLS dan Blank Screen adalah untuk menghapus layar.
Procedure division adalah tempat seluruh instruksi utama ditempatkan. User define word Mulai artinya untuk menandakan mulainya program. Display CLS maksudnya adalah, program cobol akan memanggil perintah dari subprogram CLS, untuk menghapus layar. Lalu akan menampilkan – MASUKKAN ELEMEN MATRIKS--. Lalu, menampilkan baris baru.
VARYING I FROM 1 BY 1 UNTIL I > 2 Varying digunakan untuk menyimpan isi dari variabel I, dimana variabel I dimulai dari 1. Kemudian masuk ke dalam kondisi dimana I > 2.
AFTER J FROM 1 BY 1 UNTIL J > 2 Varying dan After hampir mirip seperti looping For bersarang pada pascal. Varying digunakan untuk menyimpan isi dari variabel J, dimana variabel J dimulai dari 1. Kemudian masuk ke dalam kondisi dimana J > 2. Lalu, menampilkan baris baru.
Lalu program cobol akan mencetak ELEMEN MATRIKS. Kemudian menampilkan baris baru. Lalu, Tampilkan-Data maksudnya adalah, program cobol akan memanggil kembali sub program dari Tampilkan Data untuk masuk kedalam looping.
VARYING I FROM 1 BY 1 UNTIL I > 2 Varying digunakan untuk menyimpan isi dari variabel I, dimana variabel I dimulai dari 1. Kemudian masuk ke dalam kondisi dimana I > 2.
AFTER J FROM 1 BY 1 UNTIL J > 2 Varying dan After hampir mirip seperti looping For bersarang pada pascal. Varying digunakan untuk menyimpan isi dari variabel J, dimana variabel J dimulai dari 1. Kemudian masuk ke dalam kondisi dimana J > 2. Lalu, menampilkan baris baru.
Akhir adalah user define word untuk sub program. Stop run adalah untuk mengakhiri program looping. Isi-data adalah user define word untuk sub program. Sub program ini berisi; akan menampilkan ( [isi dari variabel I],[isi dari variabel J] ). Accept digunakan untuk tempat mengimput nilai I dan J. Tampilkan adalah user define word untuk sub program. Sub program ini berisi; akan menampilkan ( [isi dari variabel I],[isi dari variabel J] ). If J = 2 display space maksudnya adalah program akan menampilkan baris baru jika J = 2.
PROGRAM-ID. ARRAY.
AUTHOR.
ENVIRONMENT DIVISION.
WORKING-STORAGE SECTION.
01 VARIABEL.
02 NILAI X OCCURS 2 TIMES.
03 NILAI PIC 9 OCCURS 2 TIMES.
77 I PIC 99.
77 J PIC 99.
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
SCREEN SECTION.
BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY '--MASUKKAN ELEMEN MATRIKS--'.
DISPLAY ' '.
PERFORM ISI-DATA
VARYING I FROM 1 BY 1 UNTIL I > 2
AFTER J FROM 1 BY 1 UNTIL J > 2
DISPLAY ' '.
DISPLAY ' ELEMENT MATRIKS '.
DISPLAY ' '.
PERFORM TAMPILKAN-DATA
VARYING I FROM 1 BY 1 UNTIL I > 2
AFTER J FROM 1 BY 1 UNTIL J > 2
AKHIR.
STOP RUN.
ISI-DATA.
DISPLAY ( , ) 'NILAI KE = (', I, ', ', J, ') = '.
ACCEPT NILAI (I, J).
TAMPILKAN-DATA.
DISPLAY( , ) NILAI (I, J) , ' '.
IF J = 2 DISPLAY SPACE.
Sebelum menulis kodingan, COBOL mempunyai aturan penulisan, yaitu setiap kodingan selalu dimulai dengan 7 spasi, dan memulai program pada kolom ke 8. Untuk Display dan Isi dari Item data (level number selain 01) dimulai dengan 11 spasi dan memulai program pada kolom ke 12.
Arti dari statement di atas adalah, Identification Division menjelaskan program yang dibuat. Program ini dijelaskan dengan nama ARRAY dan penulis yang membuat program ini adalah Irene.
Arti dari statement di atas adalah, Identification Division menjelaskan program yang dibuat.
Arti dari statement diatas adalah untuk informasi keadaan komputer yang dipakai. Disini tidak menggunakan configuration section dan input-output section.
Arti dari statement diatas adalah Data Division untuk informasi mengenai bentuk dan jenis data yang digunakan. Data divisi yang digunakan adalah Working-Storage dan Screen Section.
Kode 01 artinya nama record, nama record yang diberikan adalah Variabel. Isi dari Variabel tersebut adalah Nilai [array dengan tipe data alphanumeric sebanyak 2 variabel]. Nilai [array dengan tipe data number, berisikan 2 variabel]
Screen Section adalah yaitu untuk mendefinisikan bentuk dari layar input / output. CLS dan Blank Screen adalah untuk menghapus layar.
Procedure division adalah tempat seluruh instruksi utama ditempatkan. User define word Mulai artinya untuk menandakan mulainya program. Display CLS maksudnya adalah, program cobol akan memanggil perintah dari subprogram CLS, untuk menghapus layar. Lalu akan menampilkan – MASUKKAN ELEMEN MATRIKS--. Lalu, menampilkan baris baru.
VARYING I FROM 1 BY 1 UNTIL I > 2 Varying digunakan untuk menyimpan isi dari variabel I, dimana variabel I dimulai dari 1. Kemudian masuk ke dalam kondisi dimana I > 2.
AFTER J FROM 1 BY 1 UNTIL J > 2 Varying dan After hampir mirip seperti looping For bersarang pada pascal. Varying digunakan untuk menyimpan isi dari variabel J, dimana variabel J dimulai dari 1. Kemudian masuk ke dalam kondisi dimana J > 2. Lalu, menampilkan baris baru.
Lalu program cobol akan mencetak ELEMEN MATRIKS. Kemudian menampilkan baris baru. Lalu, Tampilkan-Data maksudnya adalah, program cobol akan memanggil kembali sub program dari Tampilkan Data untuk masuk kedalam looping.
VARYING I FROM 1 BY 1 UNTIL I > 2 Varying digunakan untuk menyimpan isi dari variabel I, dimana variabel I dimulai dari 1. Kemudian masuk ke dalam kondisi dimana I > 2.
AFTER J FROM 1 BY 1 UNTIL J > 2 Varying dan After hampir mirip seperti looping For bersarang pada pascal. Varying digunakan untuk menyimpan isi dari variabel J, dimana variabel J dimulai dari 1. Kemudian masuk ke dalam kondisi dimana J > 2. Lalu, menampilkan baris baru.
Akhir adalah user define word untuk sub program. Stop run adalah untuk mengakhiri program looping. Isi-data adalah user define word untuk sub program. Sub program ini berisi; akan menampilkan ( [isi dari variabel I],[isi dari variabel J] ). Accept digunakan untuk tempat mengimput nilai I dan J. Tampilkan adalah user define word untuk sub program. Sub program ini berisi; akan menampilkan ( [isi dari variabel I],[isi dari variabel J] ). If J = 2 display space maksudnya adalah program akan menampilkan baris baru jika J = 2.
No comments:
Post a Comment