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 :

contoh program cobol : Mencari data array dengan kondisi

       IDENTIFICATION DIVISION.

       PROGRAM-ID. PRINTER1.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       77 KODE PIC X(6).

       77 I PIC 9.

       01 ULANG PIC X.

          88 LAGI VALUE 'Y', 'y'.

          88 TIDAK VALUE 'T', 't'.

       01 KETR.

          02 KODE-PRIN OCCURS 2 TIMES PIC X(6).       

          02 KET OCCURS 2 TIMES PIC X(35).

       SCREEN SECTION.

       01 HAPUS.

          02 BLANK SCREEN.

       01 LAYAR-MASUK.

          02 LINE 4 COLUMN 30 "<< INPUT KODE >>".

          02 LINE 6 COLUMN 15 "KODE : ".

          02 COLUMN PLUS 1 PIC X(6) TO KODE.

       PROCEDURE DIVISION.

       UTAMA.

           MOVE 'LX800 ' TO KODE-PRIN(1).

           MOVE 'EPSON' TO KET(1).

           MOVE 'HP1010' TO KODE-PRIN(2).

           MOVE 'HP LASER' TO KET(2).

           DISPLAY HAPUS.

           PERFORM MASUK.

           PERFORM CARI VARYING I

           FROM 1 BY 1 UNTIL I > 2.

           GO TO TANYA.

           STOP RUN.

       MASUK.

           DISPLAY LAYAR-MASUK.

           ACCEPT LAYAR-MASUK.

       CARI.

           IF KODE-PRIN(I)=KODE

           DISPLAY(8, 15) 'PRINTER YANG ANDA GUNAKAN ADALAH ', KET(I).

       TANYA.

           DISPLAY(10, 15) 'APAKAH ADA KODE LAINNYA: '.

           ACCEPT ULANG.

           IF LAGI GO TO UTAMA.

           STOP RUN.

ALGORITMA :

1.  Membentuk variable array dari 1 sampai  
2.  Memindahkan data ke masing masing variable contoh : MOVE  ‘LX800’ TO KODE-PRIN(1)
3. Menyeleksi data menggunakan kondisi IF dan perulangan. Jika data yang dimasukan sama dengan data dalam variable KODEPRIN(1) MAKA TAMPILKAN KET(1)  .

OUTPUT :

contoh program cobol : Looping dan substring

       IDENTIFICATION DIVISION.

       PROGRAM-ID. SALAM.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       77 P PIC 9.

       77 Q PIC 9.

       77 R 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.

           DISPLAY KATAF.

           PERFORM KELUAR VARYING P

           FROM 1 BY 1 UNTIL P > 4.

           ACCEPT P.

           STOP RUN.

       MASUK.

           DISPLAY(, ) 'MASUKKAN KATA YANG INGIN DI BENTUK : '.

           ACCEPT KATAF.

           MOVE KATAF TO KAMPRET.

       KELUAR.

           PERFORM TAMPI VARYING Q

           FROM 1 BY 1 UNTIL Q > 4.

           DISPLAY SPACE.

       TAMPI.

           COMPUTE R = P + Q .

           DISPLAY(, ) KATA(R) .

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”

Output 1 :

 
    Output 2 :

Kisahku part 1

Kali ini aku mau menulis tentang kisah perjalananku dan keluargaku… cerita ini bukan rekayasa atau hanya karanganku, kisah ini aku alami sendiri. Cerita ku ini sudah lama sekali terjadi,  mungkin saja ada beberapa hal yang mungkin terlewat tapi smoga cerita ini dapat menginspirasi anda.

Namaku aan aku berasal dari sebuah kota kecil di Lombok, aku berasal dari keluarga yang sederhana ayahku bekerja sebagai PNS golongan 3 dan ibuku bekerja sebagai ibu rumah tangga, aku adalah anak pertama dari dua bersaudara, adikku di tahun 2011 duduk di kelas 2 SMA namanya iin.

Setelah tiga tahun menikamati masa masa SMA akhirnya tibalah satu pengumuman yang dapat mengubah hidupku yaitu pengumuman kelulusan. Susah payah aku belajar mempersiapkan ujian akhirnya aku bisa lulus dengan nilai yang pas pasan. Namun Perjuangan belum berakhir, aku harus bisa melanjutkan ke jenjang yang lebih tinggi yaitu dapat lolos masuk universitas negeri yang terbaik meskipun aku tau perjuangan itu tidak kalah berat dengan ujian nasional. Aku harus bisa!!! Itulah semboyanku waktu itu, akantetapi Semangatku yang membara itu tidak sesuai dengan apa yang aku lakukan, saat teman-temanku genjar mengirimkan segala persyaratan yang di butuhkan, aku hanya diam dan duduk dirumah seperti orang tolol yang menyia-nyiakan kesempatan, ditambah lagi seorang sahabat baiku yang aku berteman dengannya sejak smp, mengabaikan aku, padahal banyak sekali universitas tempat dia mendaftar , tapi dia tak pernah mengabarkan aku sedikitpun, sedih rasanya….. aku seperti orang yang sedang menyaksikan mereka yang ku kenal hanya lewat di depanku tanpa berkata apa apa.

Merasa bahwa harapan satu satunya adalah diriku sendiri,maka aku berinisiatif mendaftarkan diri untuk mengikuti snmptn di kota mataram yang berjarak 85km dari rumahku. di pagi buta sehabis sholat subuh Aku berangkat menggunakan sepeda motor yang memang pagi itu terparkir di belakang rumahku. Aku pamitan dengan kedua orang tuaku berharap agar di berikan kemudahan dalam menjalani test nanti. aku memacu kendaraanku dengan cepat, padahal pagi itu suhunya mencapai 19 C, tapi dinginya pagi tidak sebanding dengan keinginanku untuk membahagiakan kedua orang tuaku, sepanjang perjalanan hanya merekalah yang ada di pikiranku. Sesampainya disana aku menjalani test dengan baik dan lancar, oh iya.. dalam snmptn tersebut aku memilih 2 universitas yaitu UI dan ITS yang UI aku memilih jurusan Ekonomi sedangkan ITS aku mengambil jurusan Teknik informatika. Setelah beberapa minggu menunggu, akhirnya keluarlah pengumuman yang menyatakan bahwa “ANDA TIDAK DITERIMA” Sungguh ketika membaca pengumuman itu aku merasa semakin terpuruk, sempat aku berpikir untuk tidak kuliah dan menunggu tahun depan karena gelombang pendaftaran untuk universitas negeri pada waktu itu sudah hampir habis.  

Bersambung…