Tugas 1 AP3 : Cobol

Nama    : Muhammad Riza Jamalul Akbar

NPM     : 50420910

Kelas     : 2IA03

Program

IDENTIFICATION DIVISION.

PROGRAM-ID. Tugas1.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 Num1 PIC 9 VALUE ZEROS.

01 Num2 PIC 9 VALUE ZEROS.

01 Result PIC 99 VALUE ZEROS.

PROCEDURE DIVISION.

MAIN-PROCEDURE.

DISPLAY "Enter first number : ",ACCEPT Num1.

DISPLAY "Enter second number : ",ACCEPT Num2.

MULTIPLY Num1 BY Num2 GIVING Result.

DISPLAY "Result is = ", Result.

STOP RUN.

END PROGRAM Tugas1.

OUTPUT :

Penjelasan :

• IDENTIFICATION DIVISION : merupakan awal dari program COBOL, dan ini adalah bagian wajib di setiap program COBOL. Pembagian ini digunakan oleh compiler dan programmer untuk mengidentifikasi program
• PROGRAM-ID. : memberi nama file pada program
• DATA DIVISION : mendefinisikan item data yang digunakan dalam program untuk pemrosesan data.
• WORKING-STORAGE SECTION : digunakan untuk mendeklarasikan variabel sementara dan struktur file yang digunakan dalam program.
• PROCEDURE DIVISION : merupakan bagian utama dari program COBOL yang berisi Pernyataan yang dapat dieksekusi, dan pernyataan yang dapat dieksekusi berisi variabel yang didefinisikan dalam DATA DIVISION.
• DISPLAY : digunakan untuk Menampilkan data pada perangkat Output.
• MULTIPLY : mengalikan item numerik dan menetapkan nilai item data sama dengan hasil.
• GIVING : hasilnya akan disimpan dalam item data yang disediakan setelah kata GIVING.
• STOP RUN : menghentikan eksekusi program dan mengembalikan kendali ke OS