Selasa, 22 November 2011

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”



Tidak ada komentar:

Poskan Komentar