perulangan cobol

             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

 

ALGORITMA:

01.   Mendefinisikan variable variable yang di butuhkan.

02.   Menginput variable KATAF .

03.   Menghapus layar.

04.   Menampilkan isi dari variable KATAF

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  4 Untuk menyusun kata.

Looping-2 dari 1 sampai 4 untuk menyusun huruf.

Looping-1 bernilai 1                    - A

Looping-2 bernilai 1 Karena kita ingin menghilangkan KATA(1) untuk perulangan pertama ini maka kita harus membuat sebuah counter baru R=Looping-1+Looping-2 jadi R yang baru bernilai 2. Maka perulangan pertama ini menghasilkan KATA(2)=A

Looping-1 bernilai 1                    -AL

Looping-2 bernilai 2

R=Looping-1+Looping-2.

R=3    KATA(3)= L

Dst.

Setelah Seluruh pengulangan selesai maka dapat di lihat gambaran hasilnya sebagai berikut :

Perulangan pertama       :              Looping-1 “ALAM”

Perulangan kedua            :              Looping-1 “ LAM”

Perulangan ketiga             :              Looping-1 “ AM”

Perulangan keempat       :              Looping-1 “ M”