Kita disini akan membuat program
looping Segitiga Terbalik. Sebelum kita menjalankan program COBOL kita buka dahulu “Run” lalu
ketik “cmd”, Enter.
Disini kita ketik “E:” jika direktori
COBOL terdapat pada Local Disk E:. Setelah itu kita masuk ke direktori COBOL
dengan mengetik “CD COBOL”. Untuk membuat program baru kita langsung saja
mengetik “EDIT LOOPING2.COB” program tsb dengan nama “LOOPING2”, lalu akan
masuk ke dalam program COBOL.
IDENTIFICATION DIVISION.
PROGRAM-ID. LOOPING.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INPUT-AREA.
02 I PIC 9.
02 J PIC 9.
02 NILAI PIC 9 VALUE 1.
PROCEDURE DIVISION.
MULAI.
PERFORM CETAK VARYING I FROM 6 BY -1 UNTIL I < NILAI
AFTER J FROM 1 BY 1 UNTIL J > I.
SELESAI.
STOP RUN.
CETAK.
DISPLAY (, ) J.
IF I = J DISPLAY SPACE.
LOGIKA :
IDENTIFICATION DIVISION.
Divisi yang memberikan informasi tentang
program yang akan dibuat.
PROGRAM-ID. GOTO.
Merupakan salah satu dari section
IDENTIFICATION DIVISION untuk memberikan nama program, dan program ini
dinamakan GOTO.
ENVIRONMENT DIVISION.
Divisi untuk memberi penjelasan kondisi
komputer yang sedang dipakai, bisa berhubungan dengan alat input/output seperti
printer yang terhubung, divisi ini juga bisa dipaki untuk mengatur tampilan.
DATA DIVISION.
Divisi yang digunakan untuk menjelaskan
variabel dan jenis data yang akan dipakai nanti, divisi ini juga bisa digunakan
untuk mengatur tampilan.
WORKING-STORAGE SECTION.
Merupakan
salah satu section dari DATA DIVISION, untuk mendeklarasikan semua variabel
picture clause dan picture editing.
01
INPUT-AREA.
Untuk memberi
judul record variabel-variabel yang akan digunakan, diberi nomor 01 karena
untuk nama recordnya.
02 I
PIC 9.
Memberi
variabel I dengan tipe 9 yaitu suatu numerik dengan jumlah 1 digit. 02
Maksudnya isi dari record 01.
02 J
PIC 9.
Memberi
variabel J dengan tipe 9 yaitu suatu numerik dengan jumlah 1 digit. 02
Maksudnya isi dari record 01.
02
NILAI PIC 9 VALUE 1.
Memberi
variabel dengan tipe 9 yaitu suatu
numerik dengan jumlah 1 digit. 02 Maksudnya isi dari record 01.
PROCEDURE DIVISION.
Divisi dimana tempat kita akan
memberikan codingan yang akan nanti muncul pada layar.
MULAI.
Salah satu
nama prosedur dari PROCEDURE DIVISION dan procedure ini dinamakan MULAI, nanti
dalam prosedur ini akan diisi coding-coding.
PERFORM CETAK VARYING I FROM 6 BY -1 UNTIL I < NILAI
AFTER J FROM 1 BY 1 UNTIL J > I.
Disini kita akan membuat logika perulangan
dengan memanggil dahulu prosedur CETAK lalu kita memakai var I dari 6 dengan
langkah dikurang 1 sampai var I lebih kecil daripada NILAI.
Setelah itu kita menggunakan var J didalam
var I dari 1 dengan langkah ditambah 1 sampai J lebih besar var I. Var J jika
sudah mencapai nilai dari I maka var I mengulang mundur ke selanjutnya.
SELESAI.
Prosedur lain yang ada di PROCEDURE
DIVISION dan prosedur ini dinamakan SELESAI.
STOP RUN.
Menghentikan
program LOOPING2.
CETAK.
DISPLAY (, ) J.
IF I
= J DISPLAY SPACE.
Semua dari statement CETAK diluar
Prosedur dengan mencetak var J dan tidak mengganti baris. Jika nilai Var I sama
dengan var J maka ganti garis baru.
Setelah kita sudah
selesai membuat programnya, maka kita harus terlebih dahulu compile dengan cara
mengetik “COBOL LOOPING2.COB” di cmd dengan direktori COBOL. Setelah tidak ada
masalah ataupun eror, maka kita langsung saja menjalankan output program
tersebut dengan mengetik “RUNCOB LOOPING2.COB”.
Ini adalah hasil output segitiga terbalik menggunakan
COBOL.
Tidak ada komentar:
Posting Komentar