Selasa, 31 Januari 2012

Program Deret Cobol

15.32    No comments

Listing :

1.       IDENTIFICATION DIVISION.
2.       PROGRAM-ID. LOOP.
3.       ENVIRONMENT DIVISION.
4.       DATA DIVISION.
5.       WORKING-STORAGE SECTION.
6.       77 BIL PIC 9.
7.       77 ANGKA PIC 9.
8.       77 LOOP PIC 99.
9.       SCREEN SECTION.
10.   01  CLS.
11.   02 BLANK SCREEN.
12.   01  INPUTAN.
13.   02 LINE 5 COLUMN 5 VALUE 'MASUKAN BILANGAN :'.
14.   02 COLUMN PLUS 1 PIC 9 TO BIL.
15.   PROCEDURE DIVISION.
16.   MULAI.
17.   DISPLAY CLS.
18.   DISPLAY INPUTAN.
19.   ACCEPT INPUTAN.
20.   DISPLAY CLS.
21.   COMPUTE ANGKA = 1.
22.   COMPUTE COL = 1.
23.   COMPUTE LOOP = 0.
24.   COMPUTE BIL = BIL + 1.
25.   PERFORM CETAK BIL TIMES.
26.   STOP RUN.
27.   CETAK.
28.   PERFORM CETAK2 LOOP TIMES.
29.   COMPUTE LOOP = LOOP + 1.
30.   COMPUTE LIN = LIN + 1.
31.   COMPUTE ANGKA = 1.
32.   COMPUTE COL = 1.
33.   CETAK2.
34.   DISPLAY(LIN, COL)ANGKA.
35.   COMPUTE COL = COL + 3.
36.   COMPUTE ANGKA = ANGKA + 1.



Penjelasan :

  1. Indentification division berfungsi untuk memberikan identitas pada program. 
  2. Program-Id adalah nama programnya. 
  3. Author fungsinya untuk nama si programmer. 
  4. Environment division berfungsi untuk menginformasikan keadaan computer yang dipakai (Optional). 
  5. Data division berfungsi untuk mengenai bentuk & jenis data yang digunakan. 
  6. Working-storage section berfungsi untuk pemesanan tempat untuk data proses dan output. 
  7. Level number 77 adalah mengawali data item yang berdiri sendiri dan hanya boleh terdapat pada working storage section. 
  8. Untuk variable BIL dan ANGKA ber-PIC 9 (1 digit). 
  9. Untuk variabel LOOP ber-PIC 99 (2 digit). 
  10. Screen section berfungsi untuk membersihkan layar (Blank screen). 
  11. Kita atur untuk “MASUKAN BILANGAN : “ berada pada bari ke-5 dan kolom ke-5. 
  12. Jika kita tulis angkanya, maka akan masuk ke dalam variabel BIL dengan PIC 9.
  13. Procedure division berisi paragraf-paragraf yang terdiri dari intruksi untuk pelaksanaan program. 
  14. Nilai angka adalah 1, tapi bila looping maka nilai angka tadi akan di tambahkan 1 hingga kondisi sudah terpenuhi. 
  15. Program selesai.

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)