1.
Apa
yang kalian ketahui tentang matriks pada cobol ?
Matriks adalah
kumpulan bilangan – bilangan yang disusun secara khusus dalam bentuk baris atau
kolom sehingga membentuk empat persegi panjang atau bujur sangkar yang ditulis
diantara dua tanda kurung.
2.
Contoh
program matrik pada cobol ?
IDENTIFICATION
DIVISION.
PROGRA-ID.
MATRIKS.
ENVIRONMENT
DIVISION.
DATA DIVISION.
WORKING-STORAGE
SECTION.
77 I PIC 9.
77 J PIC 9.
01 CETAK.
02 M1 PIC Z9.
02 M2 PIC Z9.
02 T PIC ZZ9.
01 TOTAL.
02 TOTAL-BARIS OCCURS 2 TIMES.
03 TM OCCURS 2 TIMES PIC 999.
01 DATA1.
02 BARIS1 OCCURS 2 TIMES.
03 MATRIKS1 OCCURS 2 TIMES PIC
999.
01 DATA2.
02 BARIS2 OCCURS 2 TIMES.
03 MATRIKS2 OCCURS 2 TIMES PIC
99.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
01 TANDA.
02 LINE 3 COLUMN 16 VALUE ‘+’ HIGHLIGHT.
02 LINE 3 COLUMN 31 VALUE ‘=’ HIGHLIGHT.
PROCEDURE
DIVISION.
MULAI.
MOVE 3 TO LIN.
DISPLAY HAPUS-LAYAR.
PERFORM ISI1 VARYING I FROM 1 BY 1
UNTIL I>2 AFTER J FROM 1 BY 1 UNTIL
J>2.
COMPUTE LIN = 10.
PERFORM ISI2 VARYING I FROM 1 BY 1.
UNTIL
I>2 AFTER J FROM 1 BY 1 UNTIL J>2.
PERFORM
PROSES VARYING I FROM 1 BY 1
UNTIL
I>2 AFTER J FROM 1 BY 1 UNTIL J>2.
DISPLAY
HAPUS-LAYAR.
DISPLAY
<1 , 6> ‘MATRIK A + MATRIK B’.
DISPLAY
TANDA.
PERFORM HASIL VARYING I FROM 1 BY 1
UNTIL
I>2 AFTER J FROM 1 BY 1 UNTIL J>2.
STOP
RUN.
ISI1.
DISPLAY
<3 , 2> ‘MATRIK A’.
COMPUTE
LIN = LIN + 1.
DISPLAY
<LIN , 2> ‘ELEMEN BARIS KE – ‘,I,’KOLOM KE – ‘ ,J, ‘ : ’.
ACCEPT
MATRIK1 <I , J >.
ISI2.
DISPLAY
<10 , 2> ‘MATRIK B’.
COMPUTE
LIN = LIN + 1.
DISPLAY
<LIN , 2> ‘ELEMEN BARIS KE – ‘,I,’KOLOM KE – ‘ ,J, ‘ : ’.
ACCEPT MATRIK1 <I , J >.
PROSES.
COMPUTE
<I , J> = MATRIK1 <I , J> + MATRIK2 <I , J>.
HASIL.
MOVE
I TO LIN.
MOVE
J TO COL.
MOVE MATRIK1
<I , J> TO M1.
MOVE MATRIK2
<I , J> TO M2.
MOVE TM <I ,
J> TO T.
COMPUTE LIN =
LIM * 2.
COMPUTE COL =
COL * 4.
DISPLAY <LIN
, COL + 1> M1.
DISPLAY <LIN
, COL + 16> M2.
DISPLAY <LIN
, COL + 30> T.
3.
Apa
yang kalian ketahui tentang varying pada cobol ?
Varying adalah
sebuah kata kerja, ada PERFORM yang penting pada cobol (bersama MOVE) dimana ia
digunakan untuk memanggil program dari sebuah program control1.
4.
Contoh
program varying pada cobol ?
IDENTIFICATION
DIVISION.
PROGRAM-ID.
BELAJAR.
AUTHOR. ANDRE.
ENVIRONMENT
DIVISION.
DATA DIVISION.
WORKING-STORAGE
SECTION.
77 Y PIC 99.
PROCEDURE
DIVISION.
MULAI.
PERFORM TAMPILKAN VARYING Y
FROM 1 BY 1 UNTIL Y > 10.
STOP RUN.
TAMPILKAN.
DISPLAY
Y;
5.
Sebutkan
dan jelaskan level number pada cobol ?
Level number
adalah suatu nomor yang menunjukan jenjang dari data item dalam suatu record.
Level number
yang digunakan :
-
01
untuk mengawali keterangan dari record (record description)
-
02-49
untuk mengawali keterangan dari data item
-
66
digunakan untuk renames
-
77
digunakan untuk mengawali dari data item yang berdiri sendiri. Hanya boleh
terdapat pada WORKING-STORAGE SECTION.
-
88
digunakan untuk mengawali suatu nama kondisi.
6.
Sebutkan
dan jelaskan kondisi – kondisi pada cobol ?
-
Kondisi
sederhana (simple condition)
Untuk menyeleksi
kondisi tunggal, yaitu membandingkan suatu hubungan antara 2 item yang di tunjukan oleh tanda operasi
-
Kondisi
tanda (sign condition)
Untuk menentukan
apaka suatu data/perumusan ekspresi aritmatika mempunya nilai sama dengan nol,
positif, atau negative.
-
Kondisi
kelas (class condition)
Untuk
penyeleksian apakah isi suatu field termasuk kelas numeric atau alphabet.
-
Kondisi
bersarang (nested condition)
Untuk
penyeleksian bercabang bila kondisi terpenuhi maka akan menjalankan blok
statement1 dan bila tidak terpenuhi akan menjalankan next statement setelah
else.
-
Kondisi
kompleks/jamak (complex/compound condition)
Kondisi yang
mempunyai lebih dari 1 kondisi, merupakan gabungan dari kondisi
tunggal/sederhana dengan penggunaan operator logika.
7.
Contoh
program sederhana dengan menggunakan level number pada COBOL ?
IDENTIFICATION
DIVISION.
AUTHOR. ANDRE.
ENVIRONMENT
DIVISION.
DATA DIVISION.
01 NAMA PIC A(20)
01 KELAS PIC B(5)
PROCEDURE
DIVISION.
MULAI.
DISPLAY “NAMA : “.
ACCEPT NAMA.
DISPLAY “KELAS : “.
ACCEPT KELAS.
SCREEN SECTION.
01 ACCEPT NAMA.
01 ACCEPT KELAS.
SELESAI.
STOP RUN.
8.
Apa
yang kalian ketahui tentang perform, goto, move beserta pada COBOL?
-
Go
to : membentuk loncata tanpa syarat, yaitu program proses meloncat langsung
tanpa syarat ke nama paragraph yang di tunjuk.
-
Perform
: yang diikuti oleh THROUGH atau THRU option akan membawa proses menuju
ke-nama-paragraph-1 dan melajutkan ke-nama-paragraph-2, kemudian mengerjakan
statement setelah statement perform.
-
Move
: untuk memindahkan data dari suatu field ke lokasi field yang lain, sehingga
input data dapat di manipulasi untuk menghasilkan output.
9.
Contoh
program dari perform, go to , move , pilih saah satu ? (Move)
IDENTIFICATION
DIVISION.
PROGRAM-ID.
KELULUSAN.
AUTHOR. ANDRE.
ENVIRONMENT
DIVISION.
DATA DIVISION.
WORKING-STORAGE
SECTION.
01 MHS.
02 NAMA PIC A(20).
02 NILAI PIC 99 VALUE 0.
02 HASIL PIC X(20).
SCREEN SECTION.
01
BERSIHKAN-LAYAR.
02 BLANK SCREEN.
PROCEDURE
DIVISION.
MULAI,
DISPLAY BERSIHKAN-LAYAR.
DISPLAY
(9 , 9) “NAMA : “.
ACCEPT
( , ).NAMA.
DISPLAY
(10 , 9) “NILAI : “.
ACCEPT
( , ).NILAI.
IF
NILAI < 70.
MOVE
“TIDAK LULUS” TO HASIL.
ELSE
MOVE
“LULUS” TO HASIL.
SELESAI.
STOP
RUN.
10. Apa yang
dimaksud dengan array multidimesi ?
Merupakan sebuah
variable yang menyimpan sekumpulan data yang memiliki tipe data sama dan elem
akan diakses melalui banyak indeks atau subskrip. Array ini biasanya digunakan
untuk matriks. Array 2 dimensi juka termasuk kedalam array multidimensi.
11. Contoh program
dari array multidimensi pada cobol ?
IDENTIFICATION
DIVISION.
PROGRAM-ID.
TEST.
ENVIRONMENT
DIVISION.
DATA DIVISION.
WORKING-STORAGE
SECTION.
01 AWAL.
02 NAMA PIC X(10) OCCURS 10 TIMES.
02 KELAS PIC X(10) OCCURS 10 TIMES
02 NPM PIC X(10) OCCURS 10 TIMES.
77 I PIC 99.
77 N PIC 99.
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
PROCEDURE
DIVISION.
MULAI.
DISPLAY ( , ) ‘INPUT JUMLAH DATA : ‘ ACCEPT
N.
PERFORM HASIL VARYING I FROM 1 BY 1 UNTIL
I=N.
HASIL.
DISPLAY CLS.
DISPLAY( , ) ‘NAMA KE ‘,I,’=’ ACCEPT NAMA
(I).
DISPLAY( , ) ‘KELAS ‘NAMA(I),’=’ ACCEPT KELAS (I).
DISPLAY( , ) ‘NPM ‘NAMA(I),’=’ ACCEPT NPM
(I).
ULANG.
DISPLAY CLS.
PERFORM TAMPIL VARYING I FROM 1 BY 1 UNTIL
I=N.
TAMPIL.
DISPLAY SPACE.
DISPLAY ‘DATA KE ‘, I.
DISPLAY
‘NAMA : ‘NAMA(I).
DISPLAY
‘KELAS : ‘KELAS(I).
DISPLAY
‘NPM : ‘NPM(I).
SELESAI.
STOP
RUN.
0 komentar:
Posting Komentar