Program Sederhana COBOL : ARRAY

Codingan :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ARRAY.
       AUTHOR. JESSY.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 I PIC 9.
       01 J PIC 9.
       01 CETAK.
           02 M1 PIC Z9.
       01 DATA1.
           02 BARIS1 OCCURS 2 TIMES.
              03 MATRIKS1 OCCURS 2 TIMES PIC 999.
       SCREEN SECTION.
       01 HAPUS.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           MOVE 3 TO LIN.
           DISPLAY HAPUS.
           PERFORM ISI1 VARYING I FROM 1 BY 1 UNTIL I > 2
           AFTER J FROM 1 BY 1 UNTIL J > 2.
           COMPUTE LIN = 10.
           DISPLAY HAPUS.
           PERFORM HASIL VARYING I FROM 1 BY 1 UNTIL I > 2
           AFTER J FROM 1 BY 1 UNTIL J > 2.
           GO TO SELESAI.
       ISI1.
           DISPLAY(3 , 2 ) 'MATRIKS A'.
           COMPUTE LIN = LIN + 1.
           DISPLAY(LIN, 2) ' ELEMEN BARIS KE-', I ,
           ' KOLOM KE- ', J , ':'.                    
           ACCEPT MATRIKS1(I, J).
       HASIL.
           MOVE I TO LIN.
           MOVE J TO COL.
           MOVE MATRIKS1(I, J) TO M1.
           COMPUTE LIN = LIN * 2.
           COMPUTE COL = COL * 4.
           DISPLAY(LIN, COL + 1) M1.
           DISPLAY SPACE.
       SELESAI.
           STOP RUN.
             
OUTPUT :

Program Sederhana COBOL : Segitiga (looping)

Codingan :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. LOOPING.
       AUTHOR. JESSY.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 ANGKA PIC 99.
       01 L PIC 99.
       01 K PIC 99.
       01 J PIC 99.
       SCREEN SECTION.
       01 CLS.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY CLS.
           PERFORM TAMPILKAN
           VARYING L FROM 5 BY -1 UNTIL L <2
           AFTER K FROM 1 BY 1 UNTIL K > L.
       TAMPILKAN.
           MOVE K TO J
           DISPLAY ( , ) J, ' '.
           IF L = K DISPLAY SPACE.
       SELESAI.
           STOP RUN.

OUTPUT : 

Program Sederhana COBOL : Looping

Coding :
IDENTIFICATION DIVISION.
       PROGRAM-ID. LOOPING.
       AUTHOR. JESSY.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 ANGKA PIC 99.
       01 JUMLAH PIC 99.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY ( , ) 'Masukkan Angka = ',
           ACCEPT JUMLAH.
           DISPLAY ' '.
           PERFORM TAMPILKAN
           VARYING ANGKA FROM 1 BY 1 UNTIL ANGKA = JUMLAH.
       TAMPILKAN.
           DISPLAY ANGKA.
       SELESAI.
           STOP RUN.

Output :

Program Sederhana COBOL : NILAI (GRADE)

Codingan :

       IDENTIFICATION DIVISION.
       PROGRAM-ID. GRADE.
       AUTHOR. JESSY
       DATA DIVISION
       WORKING-STORAGE SECTION.
       01 NAMA PIC A(20).
       01 NPM PIC 9(8).
       01 UTS PIC 9(2).
       01 UAS PIC 9(2).
       01 TOTAL PIC 9(3).
       SCREEN SECTION.
       01 MASUKKAN.
           02 LINE 5 COLUMN 3 VALUE 'NAMA :'.
           02 COLUMN PLUS 1 PIC A(20) TO NAMA.
           02 LINE 7 COLUMN 3 VALUE 'NPM :'.
           02 COLUMN PLUS 1 PIC 9(8) TO NPM.
           02 LINE 9 COLUMN 3 VALUE 'NILAI UTS :'.
           02 COLUMN PLUS 1 PIC 9(2) TO UTS.
           02 LINE 11 COLUMN 3 VALUE 'NILAI UAS :'.
           02 COLUMN PLUS 1 PIC 9(2) TO UAS.
       01 GRADE-A.
           02 LINE 15 COLUMN 3 VALUE 'GRADE A.'.
       01 GRADE-B.
           02 LINE 15 COLUMN 3 VALUE 'GRADE B.'.
       01 GRADE-C.
           02 LINE 15 COLUMN 3 VALUE 'GRADE C.'.
       01 GRADE-D.
           02 LINE 15 COLUMN 3 VALUE 'GRADE D.'.
       01 GRADE-E.
           02 LINE 15 COLUMN 3 VALUE 'GRADE E.'.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY MASUKKAN.
           ACCEPT MASUKKAN.
           DISPLAY ' '.
           COMPUTE TOTAL = (0.3 * UTS) + (0.7 * UAS).
           IF TOTAL > 89
           DISPLAY GRADE-A.
           IF TOTAL < 89 AND TOTAL > 79
           DISPLAY GRADE-B.
           IF TOTAL < 79 AND TOTAL > 69
           DISPLAY GRADE-C.
           IF TOTAL < 69 AND TOTAL > 59
           DISPLAY GRADE-D.
           IF TOTAL < 59
           DISPLAY GRADE-E.
       SELESAI.
           STOP RUN.
      

Program Sederhana COBOL : BIODATA

Codingan :
 

 Logika :

• Dalam IDENTIFICATION  DIVISION, kita diharuskan mengisi nama Program (PROGRAM-ID) dan pembuat program (AUTHOR).
• Dalam DATA DIVISION,berisi tentang variabel” yang akan digunakan dalam program. Variabel NAMA merupakan variabel karakter(alphabet) yang dapat memuat 20 karakter. Variabel NPM merupakan variabel numeric yang memuat 8 angka.Variabel KELAS merupakan variabel yg dapat menampung karakter dan numeric sebanyak 5 karakter. Variabel TAHUN merupakan variabel angka yg menampung 4 angka. Dan Variabel HITUNG adalah variabel numerik yang hanya memuat 2 angka.
• PROCEDURE DIVISION berisi tentang statement untuk menjalankan program. Pertama,program dimulai dengan statement Mulai. Program akan meminta menginput Nama dan ketika di enter(input),akan masuk ke dalam Variabel NAMA. Lalu akan melanjutkan hal yang sama. Meminta menginput KELAS,NPM,dan tahun lahir. Dan akan disimpan juga dalam variabel NPM,KELAS,dan TAHUN
• Pada Statement COMPUTE,akan dilakukan perhitungan tentang berapa umur anda sekarang. Menggunakan variabel TAHUN. Dan hasil perhitungan tersebut dimasukkan kedalam variabel HITUNG.
• Setelah semua data telah dimasukkan dan perhitungan telah dihitung, maka akan keluar output(hasil) yang berupa Nama,Kelas,NPM,Umur sesuai dengan data yang telah diinput oleh pengguna program.
• Selesai dan STOPRUN menandakan bahwa program selesai berjalan.

  Output :

Program Sederhana COBOL : HELLO WORLD

 Codingan :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. HELLO.
       AUTHOR. JESSY.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY 'HELLO WORLD.'.
       SELESAI.
           STOP RUN.

OUTPUT :