program perulangan pada cobol

membuat program perulangan pada cobol

v  Pada program ini disini kita akan membuat program perulangan dimana :

v  Idntification division adalah mengidentifikasi divisi program

v  Program-id mita adalah membuat nama id program

v  Data division adalah data divisi .

v  Working-storage section menjalankan program

v  01 pass pic a(8).

v  01 angka1 pic 99.

v  01 angka2 pic 99.

v  01 jumlah pic 99.

v  Procedure division : prosedur divisi program .

v  C.

v  Display ( , ) ‘npm : ‘. Masukan npm

v  Accept pass. Terima npm

v  If pass = ‘34112609’  jika npm adalah ‘34112609’

v  Perform D

v  Else display ‘ulang!’ jika tidak seperti npm diatas maka ULANG!’

v  Display ‘ ‘

v  Go to c kembali ke c

v  D.

v  Display ( , ) ‘angka1=’. Masukan angka 1

v  Accept angka1 terima angka1

v  Display ( , ) ‘angka2=’.masukan angka2

v  Accept angka2 terima angka2

v  Compute jumlah =  ‘angka1 + angka2 . jumlahkan angka tersebut

v  Didplay angka1 + angka2 = jumlah lalu cetak hasil angka tersebut

v  Begitu seterusnya sampai pembagian seperti kodingan di atas

v  Dan stoprun = selesai menjalankan program maka hasil outputnya adalah :