PROGRAM PADA COBOL

beberapa program pada COBOL

Membuat program BIODATA dan program SEGITIGA pada COBOL !

Langkah pertama yang harus dilakukan adalah membuka program COBOL dengan cmd/Command Prompt

Contoh seperti gambar di bawah :

Setelah itu akan muncul tampilan seperti

Setelah muncul seperti gambar di atas, ketik kan program yang ingin kita buat.

1.      PROGRAM BIODATA

IDENTIFICATION DIVISION.

PROGRAM-ID.INPUT.

AUTHOR.NONE.

ENVIRONMENT DIVISION.

WORKING-STORAGE SECTION.

01 MHS.

            02 NAMA PIC A(10).

            02 NPM PIC X(8).

            02 KELAS PIC X(9).

            02 ALAMAT PIC X(20).

SCREEN SECTION.

01 HAPUS.

            02 BLANK SCREEN.

PROCEDURE DIVISION.

MULAI.

            DISPLAY HAPUS.

            DISPLAY (09, 09) “NAMA: “.

            ACCEPT ( , ) NAMA.

            DISPLAY (10, 09) “NPM: “.

            ACCEPT ( , ) NPM.

            DISPLAY (11, 09) “KELAS: “,

            ACCEPT ( , ) KELAS.

            DISPLAY (12, 09) “ALAMAT: “.

            ACCEPT ( , ) ALAMAT.

            DISPLAY (14 , 09) “NAMA : “ NAMA.

            DISPLAY (15 , 09) “NPM : “ NPM.

            DISPLAY (16 , 09) “KELAS : “ KELAS.

            DISPLAY (17 , 09) “ALAMAT : “ ALAMAT.

SELESAI.

            STOP RUN.

Setelah proses meng-input data selesai,sekarang saat nya meng-compile dengan cara, buka cmd/command prompt

Contoh seperti gambar di bawah :

 

Kemudian tekan (enter) hingga muncul tulisan c:\cobol\COBOL\>

Dan tambahkan runcobol “latihan” seperti gambar berikut :

Dan seperti ini lah output nya :

Program selanjut nya ,buka kembali cmd/command prompt lalu ketikan seperti program yang tadi telah kita buat Seperti ini:

(NB: nama file segitiga.cob bisa di ganti sesuai keinginan)

Setelah itu ketika program seperti di bawah ini :

2.      PROGRAM SEGITIGA

IDENTIFICATION DIVISION.

PROGRAM-ID. LUAS SEGITIGA.

AUTHOR. ABID RIFKI.

ENVIRONTMENT DIVISION.

WORKING-STORAGE SECTION.

01 DATA-MASUK.

            02 ALAS PIC 9(3).

            02 TINGGI PIC 9(3).

01 DATA-KELUAR.

            02 LUAS PIC Z(7).

PROCEDURE DIVISION.

MASUKAN-DATA.

            DISPLAY (5, 6) ‘MASUKAN ALAS : ‘.

            ACCEPT ( , ) ALAS.

            DISPLAY (7, 6) ‘MASUKAN TINGGI : ‘.

            ACCEPT ( , ) TINGGI.

HITUNG.

            COMPUTE LUAS = (ALAS * TINGGI) / 2.

TAMPILKAN.

            DISPLAY (10, 10) ‘LUASNYA ADALAH : ‘ LUAS.

SELESAI-PROSES.

            STOP RUN.

Setelah selesai lakukan compile seperti pada program sebelum nya

Sama seperti program sebelum nya ketikan runcobol “SEGITIGA” setelah D:\cobol\COBOL>

Maka output nya seperti ini

Penulis : Ferdy Herlambang ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel PROGRAM PADA COBOL ini dipublish oleh Ferdy Herlambang pada hari Minggu, 14 Oktober 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan PROGRAM PADA COBOL