Kamis, 27 November 2014

Program cobol berdimensi 1


 artikel kali ini saya akan membahas tentang sebuat program cobol berdimensi 1,
 seperti ini lah contoh program dan outputnya..

A.   Tabel 1 Dimensi

1.      Listing Program

Untuk membuat program tabel 1 dimensi, yang pertama kali harus dilakukan adalah membuka program IDECobol pada windows 7 32-bit atau windows 8 64-bit yang sudah di install, kemudian ketikkan source code-nya seperti dibawah ini :

  
    IDENTIFICATION DIVISION.
    PROGRAM-ID. TABEL1.
   AUTHOR. GILANG.
    ENVIRONMENT DIVISION.
    DATA DIVISION.
    WORKING-STORAGE SECTION.
    77 n PIC 99.
    01 tabel-nilai-siswa.
        02 nilai-siswa PIC 99 OCCURS 10 TIMES.
    SCREEN SECTION. 
    01 hapus-layar.
        02 BLANK SCREEN.

    PROCEDURE DIVISION.
    PROGRAM-UTAMA.
        PERFORM pemasukan-nilai-siswa
          VARYING n FROM 1 BY 1 UNTIL n > 10
    DISPLAY hapus-layar.
    PERFORM tampilan-nilai-siswa
          VARYING n FROM 1 BY 1 UNTIL n > 10
    STOP RUN.

    PEMASUKAN-NILAI-SISWA.
        DISPLAY (  ,  ) "Nilai :".
        ACCEPT (  ,  ) nilai-siswa (n).
        DISPLAY SPACE.       TAMPILAN-NILAI-SISWA.
        DISPLAY (  ,  ) "Nilai ke",  n  ,  " : "  nilai-siswa (n).
        DISPLAY SPACE.


Setelah source code selesai ditulis/diketik kemudian file di save.

 2.      Output

Untuk meng-compile dan melihat output program yang pertama dilakukan adalah mengistal aplikasi dosboox menjalankan program DOSBOX seperti pada gambar dibawah ini :



 

1.1  Compile Program


 
1.2 Output (Hasil Eksekusi)

Tidak ada komentar:

Posting Komentar