Saya
mengkoding program cobol perulangan menggunakan notepad++.
Codingannya
adalah.
IDENTIFICATION
DIVISION. (perintah ini
untuk Mengidentification Program yang dibuat. Seperti Nama, Tanggal, dan
Program apa yang kita buat)
PROGRAM-ID.
VARYING. (perintah
ini Digunakan sebagai Pemberi Keterangan judul program yang di buat.)
ENVIRONMENT
DIVISION. (perintah
ini Sebagai Pemberitahu atas Peralatan apa saja yang kita gunakan dalam membuat
program.)
DATA
DIVISION. (Menjelaskan
tentang input dan output yang di gunakan.)
WORKING-STORAGE SECTION. (perintah ini untuk mendeklarasikan Variabel dan Type data yang kita
gunakan dalam program)
01
INPUT-AREA. (perintah
ini untuk Area Inputan Data)
02
I PIC 9. (pada
bagian Level Number 02 dengan variable I dengan type data Numeric)
02
J PIC 9. (pada
bagian Level Number 02 dengan variableJ dengan type data Numeric)
02
NILAI PIC 9 VALUE 1. (pada
bagian Level Number 02 dengan variable
Nilai dengan type data Numeric yang
bernilai satu.)
SCREEN
SECTION. (perintah
ini untuk mendefinisikan bentuk layar
tampilan untuk input atau tampilan output)
01
CLS. (perintah ini untuk menghapus tampilan layar)
02
BLANK SCREEN. (perintah ini untuk Membersihkan tampilan layar)
PROCEDURE
DIVISION. (perintah
ini Merupakan inti dari cobol yang untuk Tempat
Prosedure Statement Instruksi dibuat.)
MULAI. (perintah
ini untuk Memulai Program)
PERFORM
CETAK VARYING I FROM 3 BY -1 UNTIL I < NILAI. (pada bagian ini untuk melakukan Perulangan dengan logika
Memanggil Pencetak untuk varying I dari 3 by -1 sampai I lebih kecil daripada
nilai)
AFTER
J FROM 1 BY 1 UNTIL J > I. (perintah
ini untuk melakukan perulangan setelah J dari 1 by 1 sampai J lebih besar dari
I)
SELESAI. (peintah
ini Merupakan Procedure perintah unutuk SELESAI,.)
STOP RUN. (perintah
ini Merupakanprintah yang Digunakan Untuk Mengakhiri Program.)
CETAK. (perintah
ini Merupakan perintah yang Digunakan Untuk
mencetak pada outputan)
DISPLAY
(, ) J. (perintah
ini Merupakan perintah untuk melakukan penampilan atau pencetakan (,) J)
IF
I = J DISPLAY SPACE. (perintah
ini Merupakan perintah untuk kondisi Jika I = J maka cetak Spasi)
Dan
ini adalah kodingan di notepad++.
Ketika
sudah di coding maka buka dosbox cobol dan ketik.
Cobol
angka.cob (untuk
mengetahui kodingan ada yang eror atau tidak)
Kemudian
setelah tidak ada yang error maka ketik:
Runcob
angka.cob (untuk
menjalan kan program varying yang kita buat.)
Dan
kemudian akan menghasilkan outputan:
Tidak ada komentar:
Posting Komentar