Diberdayakan oleh Blogger.
RSS

COBOL 3

             1.      Apa yang anda ketahui tentang program looping pada cobol?
             Looping adalah Beberapa instruksi diulang untuk suatu jumlah pengulangan yang tertentu.
             Jumlah pengulangan dapat diketahui sebelumnya atau ditentukan dalam perjalanan program.


             2.      Tuliskan program looping pada cobol!
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.
 
3.      Jelaskan jenis-jenis looping pada cobol yang kalian ketahui!

SUBSTRACT Verb
Digunakan untuk operasi pengurangan suatu nilai data numerik.
MULTIPLY Verb
Digunakan untuk mengalikan 2 nilai numerik dan menyimpan hasilnya.
DIVIDE Verb
Digunakan untuk membentuk statement operasi pembagian.
COMPUTE
Digunakan untuk operasi yang lebih rumit, untuk menyederhanakan 4 arithmatic verb sebelumnya.
GO TO Verb
Digunakan untuk alih kontrol tanpa syarat ke paragraph tertentu.
GO TO … DEPENDING Verb
Digunakan untuk alih kontrol bersyarat. Beralih pada paragraph tertentu dengan kondisi tertentu.
ALTER Verb
Digunakan untuk merubah arah tujuan proses dari statement GO TO yang telah ada di program.
PERFORM Verb
Digunakan untuk membuat suatu statement yang akan membawa proses dari program meloncat kesuatu paragraph, kemudian menjalankan seluruh statetement yang ada pada paragraph tersebut. Jika telah selesai akan kembali ke statement setelah PERFORM.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 komentar:

Posting Komentar