Contoh Laporan Akhir Looping pada COBOL

Cobol memiliki 4 divisi, yaitu :

1. identification Division : yang berfungsi untuk membuat nama program, tanggal program, nama pembuat program

2. environment division : untuk input & output program, dan configuration section

3. data division : untuk variabel variabel yang akan diolah

4. procedure division : untuk proses.   

77 A pic 9.

77 B pic 9.

Pada line 77 maksudnya adalah mengawali item yang berdiri sendiri dan bertipe data numerik.

Pada codingan ini MULAI berfungsi untuk memulai program. Lalu PERFORM CETAK untuk menampilkan  / mencetak. Varying A FROM 1 BY 1 UNTIL A > 5 untuk melakukan looping sebanyak A satu demi satu sampai dengan A > 5 , setelah looping sampai sama dengan nilai variable A maka program akan berhenti sendiri. AFTER B FROM 1 BY 1 UNTIL B > A untuk melakukan perulangan setelah B dari 1 by 1 sampai B lebih besar dari A. STOP RUN  berhenti.

Setelah program sudah dibuat, sebelum menjalankannya, program harus di compile terlebih dahulu untuk mengetahui kesalahan / error yang terjadi pada program.

DISPLAY ( , ) A untuk mencetak A. IF B = A DISPLAY SPACE maksudnya adalah jika B sama dengan A maka akan membuat baris baru.

A dimulai dari 1,     B = A SPACE (Baris Baru)

A	B>A	CETAK
1>5	1>1	1
	2>1
2>5	1>2	2
	2>2	2
	3>2
3>5	1>3	3
	2>3	3
	3>3	3
	4>3
4>5	1>4	4
	2>4	4
	3>4	4
	4>4	4
	5>4
5>5	1>5	5
	2>5	5
	3>5	5
	4>5	5
	5>5	5
	6>5
6>5

Penjelasan :

1          1>1 kondisi ini tidak terpenuhi karna 1 tidak lebih besar dari 1, jadi tercetak 1

2>1 kondisi ini terpenuhi karena 2 lebih besar dari 1, jadi tidak tercetak dan membuat baris baru

2          1>2 kondisi ini tidak terpenuhi karna 1 tidak lebih besar dari 2, jadi tercetak 2

2>2 kondisi ini tidak terpenuhi karna 2 tidak lebih besar dari 2, jadi tercetak 2

3>2 kondisi ini terpenuhi karena 3 lebih besar dari 2, jadi  tercetak dan membuat baris baru

3          1>3 kondisi ini tidak terpenuhi karena 1 tidak lebih besar dari 3, jadi tercetak 3

2>3 kondisi ini tidak terpenuhi karena 2 tidak lebih besar dari 3, jadi tercetak 3

3>3 kondisi ini tidak terpenuhi karena 3 tidak lebih besar dari 3, jadi tercetak 3

4>3 kondisi ini terpenuhi karena 4 lebih besar dari 3, jadi tidak tercetak dan membuat baris baru

4          1>4 kondisi ini tidak terpenuhi karena 1 tidak lebih besar dari 4, jadi tercetak 4

2>4 kondisi ini tidak terpenuhi karena 2 tidak lebih besar dari 4, jadi tercetak 4

3>4 kondisi ini tidak terpenuhi karena 3 tidak lebih besar dari 4, jadi tercetak 4

4>4 kondisi ini tidak terpenuhi karena 4 tidak lebih besar dari 4, jadi tercetak 4

5>4 kondisi ini terpenuhi karena 5 lebih besar dari 4, jadi tidak tercetak dan membuat baris baru

5          1>5 kondisi ini tidak terpenuhi karena 1 tidak lebih besar dari 5, jadi tercetak 5

2>5 kondisi ini tidak terpenuhi karena 2 tidak lebih besar dari 5, jadi tercetak 5

3>5 kondisi ini tidak terpenuhi karena 3 tidak lebih besar dari 5, jadi tercetak 5

4>5 kondisi ini tidak terpenuhi karena 4 tidak lebih besar dari 5, jadi tercetak 5

5>5 kondisi ini tidak terpenuhi karena 5 tidak lebih besar dari 5, jadi tercetak 5

6>5 kondisi ini terpenuhi karena 6 lebih besar dari 5, jadi tidak tercetak dan membuat baris baru

6          1>6 kondisi ini tidak terpenuhi karena lebih dari 5

Output