Selasa, 25 Juni 2013

Pengertian perulangan pada cobol

   Pengertian perulangan pada cobol

   1.       Apa  yang  kalian ketahui tentang perulangan pada cobol?
   2.       Apa yang kalian ketahui tentang perulangan menggunakan perfom dan varying?
   3.       Tuliskan contoh program menggunakan varying di cobol coding form?
Jawab.
   1.       Perulangan/Looping  adalah Beberapa instruksi diulang untuk suatu jumlah pengulangan yang tertentu.  Jumlah pengulangan dapat diketahui sebelumnya atau ditentukan dalam perjalanan program.
   2.       Perfrom
Kata  kerja  PERFORM  adalah salah satu yang paling penting dalam COBOL (bersama MOVE). PERFORM telah ditemui dalam bagian, Divisi Empat mana ia digunakan untuk memanggil paragraph dari dalam sebuah paragraph kontrol. Tentu saja, halite tidak harus menjadi kontrol (atau utama) ayat.

   3.       IDENTIFICATION DIVISION.
PROGRAM-ID.ADDPROG.
AUTHOR.GROCER.
      *ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01  INPUT-AREA.
05  GET-ACCEPT-ANS           PIC X       VALUE SPACES.
05  FIRST-NUMBER             PIC 999     VALUE 0.
05  SECOND-NUMBER            PIC 999     VALUE 0.
05  ADD-ANS                  PIC 9999    VALUE 0.
PROCEDURE DIVISION.
       MAINLINE.
           DISPLAY "ENTER THE FIRST NUMBER (UNDER 1000)".
           ACCEPT FIRST-NUMBER.
           DISPLAY "ENTER THE SECOND NUMBER (UNDER 1000)".
           ACCEPT SECOND-NUMBER.
           ADD FIRST-NUMBER TO SECOND-NUMBER
GIVING ADD-ANS.
   DISPLAY "THE ANSWER IS " ADD-ANS.
  DISPLAY "PRESS ENTER TO END THE PROGRAM".
  ACCEPT GET-ACCEPT-ANS.
  STOP RUN.


Tidak ada komentar:

Poskan Komentar