LAPORAN AKHIR COBOL 3

Cobol

Pada pertemuan kali ini saya akan membuat program perulangan pada Cobol. Pertama seperti biasa kita bentuk struktur pada Cobol seperti di bawah ini :

Pada working strorage section kita menggunakan variabel A dan B sebagai data independent (77) dan di deklarasikan sebagai data Numerik (9).

Selanjutnya, masuk ke Procedure Division untuk membuat codingan perulangannya seperti di bawah ini :

Perform Cetak untuk deklarasi akan mencetak perulangan.

Verying A From 1 by 1 Until A lebih besar dari 5  dimana data yang di cetak nantinya di mulai dari 1 hingga lebih besar dari 5.

B From 1 by 1 Until B lebih besar dari A dimana B akan di cetak ulang hingga sebanyak A.

DISPLAY untuk menampilkan A yang dicetak sebagai A

Hingga B lebih besar dari A akan dilakukan Spasi untuk baris berikutnya.

OUTPUT

Penjelasan Perulangan Logika OUTPUT seperti Berikut;

A > 5  

B > A SPACE (Baris Baru)

DISPLAY A.

A>5	B>A	Dicetak output A	Logika
1	1>1	1	A = 1 lalu B = 1 cetak A=(1) karena B belum lebih besar dari A
	2>1	SPASI	A = 1 lalu B = 2 Cetak SPASI karena B(2)>A(1)
2	1>2	2	A = 2 lalu B = 1 lebih dari 2 cetak A=(2) karena B belum lebih besar dari A
	2>2	22	A = 2 lalu B = 2 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga A=(22)
	3>2	SPASI	B = 3 dan A = 2 Cetak baris baru karena B>A
3	1>3	3	A = 3 lalu B = 1 karena B belum lebih besar dari A cetak A=(3)
	2>3	33	A = 3 lalu B = 2 karena B belum lebih besar dari A Cetak dan Nilai A yang selalu tercetak sehingga A=(33)
	3>3	333	A = 3 lalu B = 3 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga Cetak A=(333)
	4>3	SPASI	B = 4 dan A = 3 Cetak Baris baru karena B>A
4	1>4	4	A = 4 lalu B = 1 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga Cetak A=(4)
	2>4	44	A = 4 lalu B = 2 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga Cetak A=(44)
	3>4	444	A = 4 lalu B = 3 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga Cetak A(444)
	4>4	4444	A = 4 lalu B = 4 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga Cetak A(4444)
	5>4	SPASI	B = 5 dan A = 4 Cetak Baris baru karena B>A
5	1>5	5	A = 5 lalu B = 1 karena B belum lebih besar dari A Cetak A=(5)
	2>5	55	A = 5 lalu B = 2 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga Cetak A=(55)
	3>5	555	A = 5 lalu B = 3 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga Cetak A=(555)
	4>5	5555	A = 5 lalu B = 4 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga Cetak A=(5555)
	5>5	55555	A = 5 lalu B = 5 karena B belum lebih besar dari A dan Nilai A yang selalu tercetak sehingga Cetak A=(5555)
	6>5	SPASI	B = 6 dan A = 5 Cetak Baris baru karena B>A
6	1>6	Tidak Tercetak	Tidak dapat dibaca Karena A>5