Kamis, 01 Oktober 2009

Tugas cobol Latihan 1

Dibawah ini Source Kode Cobol Latihan 1:

IDENTIFICATION DIVISION.
AUTHOR. SUCI_BELAPATI.
ENVIRONMENT DIVISION.
DATA DIVISION.
01 NAMA PIC A(20).
01 KELAS PIC B(5).
PROCEDURE DIVISION.
MULAI.
DISPLAY (1,1) "NAMA : ". ACCEPT NAMA.
DISPLAY (3,1) "KELAS : ". ACCEPT KELAS.
SELESAI.
STOP RUN.

Maka akan keluar output :