Rabu, 30 Oktober 2013

Program Cobol Input Data Menggunakan Array

       identification division.
       program-id. array.
       data division.
       working-storage section.
       01 var.
          02 a pic 99.
          02 i pic 99.
          02 angka pic 99.
          02 npm pic a(10) occurs 10 times.
          02 nama pic a(20) occurs 10 times.
          02 kelas pic a(5) occurs 10 times.
       screen section.
       01 hapus.
          02 blank screen.
       procedure division.
       mulai.
           display (1, 1) 'Data Yang Ingin Dimasukkan : '.
           accept (1, 30) angka.
           compute i = 0.
           perform masuk angka times.
       masuk.
           display hapus.
           compute i = i + 1.
           display (1, 1) 'Data Ke -', i.
           display (2, 1) 'Masukkan NPM   : '.
           accept (2, 20) npm(i).
           display (3, 1) 'Masukkan Nama  : '.
           accept (3, 20) nama(i).
           display (4, 1) 'Masukkan Kelas : '.
           accept (4, 20) kelas(i).
           compute a = 0.
           display hapus.
           perform tampil angka times.
       tampil.
           display a, '   ', npm(a), ' ', nama(a), ' ', kelas(a).
           compute a = a + 1.
       keluar.
        stop-run.

Tidak ada komentar:

Posting Komentar