COBOL

TEKNIK PEMROGRAMAN TERSTRUKTUR

“STATEMENT ADD, SUBSTRACT, MULTIPLY, DIVIDE, COMPUTE, GOTO, GOTO DEPENDING, ALTER, PERFORM”

KELOMPOK 3

NAMA KELOMPOK  :

1.    BIMO ARYA PRATOMO

2.    BOBBY ALEXANDER TITALEY

3.    DIAN KUSUMAWATI

KELAS   :       2KA37

DOSEN  :       HERA AGUSTINA

SISTEM INFORMASI

UNIVERSITAS GUNADARMA

PTA 2015 / 2016

statement arithmatika

Operasi Arithmatika pada COBOL dikerjakan dengan menggunakan pernyataan :

Ø  ADD

Digunakan untuk menambahkan 2 atau lebih operand numerik dan menyimpan hasilnya.

Suatu operand adalah suatu data item atau suatu literal numerik (konstanta).Operand yang digunakan untuk verb ini harus berupa nilai numerik.

Ada 2 Bentuk Umum dari Statemen ADD :

Bentuk ke-1 dari statement ADD :

 

Contoh :

ADD A TO B                       |          b = b + a

ADD 30, B to a                 |          a = a + 30 + b

add a, b to c                  |          c = c + a + b

Bentuk ke-2 dari statement ADD :

 

Contoh :

add a, b giving c                           c = a + b

add 4,5 giving a                      |          a = 4 + 5

Keterangan :

1.      TO digunakan bila beberapa nilai akan dijumlahkan dan hasilnya akan disimpan pada salah satu operand.

2.      GIVING digunakan bila beberapa nilai dijumlahkan dan hasilnya disimpan pada nama data yang lain.

3.      Field penerima harus merupakan nama data, bukan literal.

4.      Bentuk TO dan GIVING harus ada dan salah satu diantaranya, tidak boleh dipergunakan keduanya.

5.      Semua nama-data yang dipergunakan di dalam operasi aritmatika harus berbentuk data numerik dengan picture yang belum diedit kecuali operand dari field penerima.

6.      ROUNDED option digunakan bila diinginkan hasil perhitungan dibulatkan

7.      ON SIZE ERROR digunakan bila hasil perhitungan untuk digit-digit bilangan utuh (high order digits) tidak bisa masuk seluruhnya pada field penerima, nilai tidak akan disimpan di storsge dan program akan melanjutkan pada imperative statement yang mengikutinya.

Ø  SUBSTRACT verb

Digunakan untuk membentuk statement operasi arithmatika pengurangan suatu nilai operand numerik.

Nama-data-1        nama-data-2 SUBSTRACT               literal-1                       literal-2 Nama-data-n FROM                        literal-n                     GIVING nama-data-m [ROUNDED] [;ON SIZE ERROR imperative-statement]

Bentuk umumnya :

 

Contoh :

SUBSTRACT A FROM B                                                  B = B – A

SUBSTRACT A, B FROM C                                              C = C – A – B

SUBSTRACT A FROM B GIVING C                                  C = B – A

SUBSTRACT 20 FROM 80 GIVING C                               C = 80 – 20

SUBSTRACT 20, 15 FROM 100 GIVING B                       B = 100 – 20 – 15 = 65

Ø  multiply

Digunakan untuk membentuk statement guna instruksi perkalian dua nilai numerik dan menyimpan hasilnya.

Bentuk Umum Statement MULTIPLY ke-1 :

 

Contoh :

MULTIPLY A BY B                                                  B = B * A

Bentuk umum statement MULTIPLY ke-2 :

 

Contoh :

multiply a by d giving c                               c = a * d

multiply a by 25 giving c                             c = a * 25

Ø  DIVIDE

Digunakan untuk membentuk statement operasi pembagian .

Bentuk Statemen DIVIDE yang ke-1 :

 

Contoh :

DIVIDE A INTO B                                    B = B / A

Bentuk Statemen DIVIDE yang ke-2 :

 

CONTOH :

DIVIDE A INTO B GIVING C                    C = B / A

Bentuk Statemen DIVIDE yang ke-3 :

 

CONTOH :

DIVIDE A BY B GIVING C                                   C = A / B

DIVIDE 100 BY 50 GIVING Z                   Z = 2

Bentuk Statement DIVIDE yang ke-4 :

 

Contoh :

DIVIDE A INTO B GIVING HASIL REMAINDER SISA

BILA A = 2, B = 5 MAKA HASIL = 2 SISA =1

Bentuk Statemen DIVIDE yang ke-5 :

 

CONTOH :

DIVIDE A BY B GIVING D REMAINDER SISA

BILA A = 110 , B = 20  MAKA D = 5 SISA =10

Ø  COMPUTE

Mempergunakan 4 arithmatika verbs untuk perhitungan arithmatika tunggal dan sederhana.

Bentuk Umum :

	COMPUTE  nama-data-1 [ROUNDED] = ungkapan arithmatika [;ON SIZE ERROR imperative statement]

 

CONTOH :

MULTIPLY A BY D GIVING C                |    COMPUTE C = A * D

Y = A ⁵                                                  |    COMPUTE Y = A**5

Y = A + B                                              |    COMPUTE Y = ( A + B ) / C

C

ROUNDED :

Untuk membulatkan hasil perhitungan yang berbentuk pecahan.

ON SIZE ERROR :

Digunakan jika hasil perhitungan untuk digit – digit bilangan utuh tidak bisa masuk seluruhnya pada field penerima.

Ø  GO  TO verb

GO TO  membentuk loncatan tanpa syarat, yaitu program proses meloncat langsung tanpa syarat ke nama paragraph yang di tunjuk.

Bentuk Umum nya :

Statement GO TO harus selalu diikuti oleh nama-paragraph.

Contoh :

MOVE A TO B

GO TO ALINEA-5.

ALINEA-4.

ADD X TO Y.

ALINEA-5.

MULTIPLY X BY Y.

Contoh Program GO TO :

IDENTIFICATION DIVISION.

PROGRAM-ID. go-to2.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

77    Jawab    PIC A.

PROCEDURE DIVISION.

Tanya.

DISPLAY ‘ Masukkan Jawab berupa huruf ( D/E/F/G ) ? ‘.

ACCEPT  Jawab.

Seleksi-Jawab.

IF Jawab = ‘D’  GO TO Kode-D.

IF Jawab = ‘E’  GO TO Kode-E.

IF Jawab = ‘F’  GO TO Kode-F.

IF Jawab = ‘G’  GO TO Kode-G.

Kode-D.

DISPLAY ‘ Kampus Depok ‘

GO TO Selesai.

Kode-E.

DISPLAY ‘ Kampus Kelapa Dua ‘

GO TO Selesai.

Kode-F.

DISPLAY ‘ Kampus Cikini ‘

GO TO Selesai.

Kode-G.

DISPLAY ‘ Kampus Kelapa Dua Perempatan ‘

GO TO Selesai.

Selesai.

STOP RUN.