Sunday, November 20, 2011

contoh program cobol : Looping dan substring (REVISI)


ALGORITMA:
01.   Mendefinisikan variable variable yang di butuhkan.
02.   Memberikan nilai awal pada variable R yaitu 0.
03.   Menginput variable KATAF .
04.   Menghapus layar.
05.   Memindahkan isi dari variable KATAF kedalam  variable array 01 KAMPRET sehigga di peroleh substringnya, Gambaranya sebagai berikut :
KATA(1)=S
KATA(2)=A
KATA(3)=L
KATA(4)=A
KATA(5)=M
Jika isi dari variable KATAF adalah SALAM.
06.   Menggunakan double looping Untuk Menyusun Huruf dan katanya misal :
Looping-1 dari 1 sampai  5 Untuk menyusun kata.
Looping-2 dari variable looping-1 sampai 5 untuk menyusun huruf.
Looping-1 bernilai 1                    - S
Looping-2 bernilai 1 Karena kita ingin menampilkan KATA(1) untuk perulangan pertama ini maka kita harus menjdikan variable Looping-2 sebagai index . Maka perulangan pertama ini menghasilkan KATA(1)=S                               -SA
Looping-1 bernilai 1                   
Looping-2 bernilai 2
KATA(2)= A
Dst.
Setelah Seluruh pengulangan selesai maka dapat di lihat gambaran hasilnya sebagai berikut :

Perulangan pertama         :              Looping-1 “SALAM”
Perulangan kedua            :              Looping-1 “ ALAM”
Perulangan ketiga            :              Looping-1 “ LAM”
Perulangan keempat        :              Looping-1 “ AM”
Perulangan kelima           :             Looping-1 “M”


       IDENTIFICATION DIVISION.
       PROGRAM-ID. SALAM.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 P PIC 9.
       77 Q PIC 9.
       01 KUCING.
          02 KATAF PIC X(05).
       01 KAMPRET.
          02 KATA OCCURS 5 TIMES PIC X(01).
       SCREEN SECTION.
       01 HAPUS.
          02 BLANK SCREEN.
       PROCEDURE DIVISION.
       UTAMA.
           PERFORM MASUK.
           DISPLAY HAPUS.
           PERFORM KELUAR VARYING P
           FROM 1 BY 1 UNTIL P > 5.
           ACCEPT P.
           STOP RUN.
       MASUK.
           DISPLAY(, ) 'MASUKKAN KATA YANG INGIN DI BENTUK : '.
           ACCEPT KATAF.
           MOVE KATAF TO KAMPRET.
       KELUAR.
           PERFORM TAMPI VARYING Q
           FROM P BY 1 UNTIL Q > 5 .
           DISPLAY SPACE.
       TAMPI.
           DISPLAY(, ) KATA(Q) .






OUTPUT 1 :


                OUTPUT 2 :


1 comment: