Membuat menu Matriks pada COBOL

free downliad this file, klik here

 

Membuat Menu Matriks pada COBOL

 

 

 

 

 

 

 

 

 

 

 

 

 

Logika :

IDENTIFICATION DIVISION.

PROGRAM-ID. ARRAY-2-DIM.

AUTHOR FAIZ.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 VARIABEL.

   02 PIL PIC 99.

   02 I PIC 9(2).

   02 J PIC 9(2).

   02 JMLBRS PIC 9(2).

   02 JMLKOL PIC 9(2).

   02 NILAI-X OCCURS 10 TIMES.

     03 NILAI PIC 9

     OCCURS 1 TO 10 TIMES DEPENDING ON JMLKOL.

01 VAR.

   02 NILAI1-X OCCURS 10 TIMES.

     03 NILAI1 PIC 9

     OCCURS 1 TO 10 TIMES DEPENDING ON JMLKOL.

SCREEN SECTION.

01 CLS.

   02 BLANK SCREEN.

01 MENU.

   02 LINE 3 COLUMN 5 VALUE ‘<<< PROGRAM MATRIKS >>>’.

   02 LINE 5 COLUMN 5 VALUE ‘   1. INPUT MATRIKS’.

   02 LINE 6 COLUMN 5 VALUE ‘   2. PERTAMBAHAN’.

   02 LINE 7 COLUMN 5 VALUE ‘   3. PENGURANGAN’.

   02 LINE 8 COLUMN 5 VALUE ‘   4. KELUAR’.

   02 LINE 10 COLUMN 5 VALUE ‘ PILIHAN ANDA : ‘.

   02 COLUMN PLUS 2 PIC 9 TO PIL.

PROCEDURE DIVISION.

MENU-OK.

   DISPLAY CLS.

   DISPLAY MENU.

   ACCEPT MENU.

   IF PIL = 1 GO TO INPUT1.

   IF PIL = 2 GO TO TAMBAH.

   IF PIL = 3 GO TO KURANG ELSE GO TO AKHIR.

INPUT1.

   DISPLAY CLS.

   DISPLAY(1, 1) ‘MASUKKAN BANYAK BARIS [max:10] : ‘

   ACCEPT (, ) JMLBRS.

   DISPLAY(2, 1) ‘MASUKKAN BANYAK KOLOM [max:10] : ‘

   ACCEPT (, ) JMLKOL.

   MOVE 4 TO LIN.

   MOVE 1 TO COL.

   PERFORM ISI-DATA

   VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

   AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

   DISPLAY CLS.

   DISPLAY (1, 1) ‘HASIL INPUTAN ANDA :’.

   MOVE 4 TO LIN.

   MOVE 1 TO COL.

   PERFORM TAMPILKAN-DATA

   VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

   AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

   DISPLAY (8, 1) ‘TEAKAN ENTER UNTUK KEMENU’.

   STOP ‘ ‘.

   GO TO MENU-OK.

TAMBAH.

   DISPLAY CLS.

   DISPLAY (1, 1) ‘MATRIKS SEBELUMNYA’.

   DISPLAY (1, 25) ‘MASUKAN MATRIKS KE-2 :’

   DISPLAY (4, 16) ‘+’.

   MOVE 3 TO LIN.

   MOVE 1 TO COL.

   PERFORM TAMPILKAN-DATA

   VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

   AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

   MOVE 3 TO LIN.

   MOVE 25 TO COL.

   PERFORM ISI-DATA1

   VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

   AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

   DISPLAY (7, 1) ‘HASIL PERTAMBAHAN :’.

   MOVE 9 TO LIN.

   MOVE 1 TO COL.

   PERFORM TAMPILKAN-DATA1

   VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

   AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

   DISPLAY (13, 1) ‘TEAKAN ENTER UNTUK KEMENU’.

   STOP ‘ ‘.

   GO TO MENU-OK.

KURANG.

   DISPLAY CLS.

   DISPLAY (1, 1) ‘MATRIKS SEBELUMNYA’.

   DISPLAY (1, 25) ‘MASUKAN MATRIKS KE-2 :’

   DISPLAY (4, 16) ‘-‘.

   MOVE 3 TO LIN.

   MOVE 1 TO COL.

   PERFORM TAMPILKAN-DATA

   VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

   AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

   MOVE 3 TO LIN.

   MOVE 25 TO COL.

   PERFORM ISI-DATA1

   VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

   AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

   DISPLAY (7, 1) ‘HASIL PENGURANGAN :’.

   MOVE 9 TO LIN.

   MOVE 1 TO COL.

   PERFORM TAMPILKAN-DATA2

   VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

   AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

   DISPLAY (13, 1) ‘TEKAN ENTER UNTUK KEMENU’.

   STOP ‘ ‘.

   GO TO MENU-OK.

AKHIR.

   STOP RUN.

ISI-DATA.

   DISPLAY (LIN, COL) ‘NILAI KE-[‘, I, ‘,’, J, ‘] = ‘.

   ACCEPT (, ) NILAI (I, J).

   ADD 1 TO LIN.

ISI-DATA1.

   DISPLAY(LIN, COL) ‘ ‘.

   ACCEPT (, ) NILAI1 (I, J).

   ADD 3 TO COL.

   IF J = JMLKOL

   ADD 1 TO LIN

   MOVE 25 TO COL.

TAMPILKAN-DATA.

   DISPLAY (LIN, COL) NILAI (I, J).

   ADD 3 TO COL.

   IF J = JMLKOL

   ADD 1 TO LIN

   MOVE 1 TO COL.

TAMPILKAN-DATA1.

   COMPUTE NILAI1 (I, J) = NILAI (I, J) + NILAI1 (I, J).

   DISPLAY (LIN, COL) NILAI1 (I, J).

   ADD 3 TO COL.

   IF J = JMLKOL

   ADD 1 TO LIN

   MOVE 1 TO COL.

TAMPILKAN-DATA2.

   COMPUTE NILAI1 (I, J) = NILAI (I, J) – NILAI1 (I, J).

   DISPLAY (LIN, COL) NILAI1 (I, J).

   ADD 3 TO COL.

   IF J = JMLKOL

   ADD 1 TO LIN

   MOVE 1 TO COL.

 

 

Output  :

Kemudian untuk di bagian outputnya akan memunculkan menu dengan judul “≪< PROGRAM MATRIKS ≫>” yang didalamnya terdapat 4 pilihan yaitu :

  1. INPUT MATRIKS

 

Yaitu perintah dimana kita diminta untuk memasukan data matriksnya, dan juga memasukan banyaknya baris dan kolom yang akan kita inputkan. Pada output kali ini saya mencoba dengan memasukan 2 abaris dan dua kolom, dengan data matriks ke 1 sampai dengan data matriks ke 4 dengan angka  4, maka outputnya adalah sebagai berikut :

  1. PERTAMBAHAN

Pada menu ini kita akan menambahkan inputan matriks pada menu no1 dengan data yang akan kita inputkan di menu nomer 2 yakni menu penambahan, maka hasil outputnya adalah sebagai berikut  :

 

 

 

  1. PENGURANGAN

Pada menu ini kita akan mengurangkankan inputan matriks pada menu no1 dengan data yang akan kita inputkan di menu nomer 3 yakni menu pengurangan, maka hasil outputnya adalah sebagai berikut  :

 

 

 

 

 

  1. KELUAR

Pada menu ini kita akan langsung keruar dari program matriks, maka outputnya adalah sebagai berikut :

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s