Laporan Akhir Cobol 5

Cobol

            COBOL (Common Business Oriented Language) adalah bahasa komputer tingkat tinggi/high level language. Dimana program tersebut dapat mudah dipelajari karena sudah berbahasa sama dengan programmer.

Pada pertemuan kali ini saya akan membuat Laporan Akhir tentang perulangan pada Cobol.

Pertama kita bentuk struktur pada Cobol seperti IDENTIFICATION DIVISION , ENVIRONMENT DIVISION , DATA DIVISION dan PROCEDURE DIVISION. Tetapi pada Data Division kita buat deklarasi Data A dan B sebagai Indenpent dengan tipe Numerik didalam Working-Storage Section .

Setelah saya buat struktur pertama pada coding cobol , berikutnya saya masuk kedalam Procedure Division disinilah kita akan membuat coding Perulangan pada Cobol.

Dimulai dengan Perform Cetak yang berarti untuk deklarasi akan mencetak perulangan.

Kemudian masuk kedalam Verying A From 1 by 1 Until A lebih besar dari 5.

Kemudian B From 1 by 1 Until B lebih besar dari A.

Setelah itu di Cetak yang sudah kita deklarasi kan sebelumnya.

Lalu DISPLAY untuk menampilkan A pada Baris dan Coloumn (0,0) dicetaknya sebagai A

Kemudian jika B sama dengan A akan dilakukan Spasi untuk baris berikutnya.

Codingnya seperti berikut ;

OUTPUT

Penjelasan Perulangan Logika OUTPUT seperti Berikut;

A > 5  

B > A            B = A SPACE (Baris Baru)

A>5	B>A	Dicetak output A	Logika
1	1>1	1	A masuk 1 lalu ke B (1)lebih dari 1, cetak A(1)
	2>1	SPASI	Baris Baru Karena B(2) lebih dari A (1)
2	1>2	2	A masuk 2 lalu ke B(1) lebih dari 2 cetak A(2)
	2>2	22	A masuk 2 lalu ke B(2) lebih dari 2 cetak A(22)
	3>2	SPASI	Baris Baru Karena B(3) lebih dari A (2)
3	1>3	3	A masuk 3 lalu ke B(1) lebih dari 3 cetak A(3)
	2>3	33	A masuk 3 lalu ke B(2) lebih dari 3 cetak A(33)
	3>3	333	A masuk 3 lalu ke B(3) lebih dari 3 cetak A(333)
	4>3	SPASI	Baris Baru Karena B(4) lebih dari A (3)
4	1>4	4	A masuk 4 lalu ke B(1) lebih dari 4 cetak A(4)
	2>4	44	A masuk 4 lalu ke B(2) lebih dari 4 cetak A(44)
	3>4	444	A masuk 4 lalu ke B(3) lebih dari 4 cetak A(444)
	4>4	4444	A masuk 4 lalu ke B(4) lebih dari 4 cetak A(4444)
	5>4	SPASI	Baris Baru Karena B(5) lebih dari A (4)
5	1>5	5	A masuk 5 lalu ke B(1) lebih dari 5 cetak A(5)
	2>5	55	A masuk 5 lalu ke B(2) lebih dari 5 cetak A(55)
	3>5	555	A masuk 5 lalu ke B(3) lebih dari 5 cetak A(555)
	4>5	5555	A masuk 5 lalu ke B(4) lebih dari 5 cetak A(5555)
	5>5	55555	A masuk 5 lalu ke B(5) lebih dari 5 cetak A(5555)
	6>5	SPASI	Baris Baru Karena B(6) lebih dari A (5)
6>5	Tidak Dapat	Dibaca Karena	Sampai A>5