LAPORAN AKHIR
R PROGRAMNama : Rizky Rachmad
NPM : 16116613
Membuat Program menu pada cobol
Membuat menu pada cobol, yang mana menu tersebut berisi program biodata dan looping.Pertama buka open cobol, kemudian masukan perintah berikut :
Logika :
· IDENTIFICATION DIVISION : Dari nama divisi-nya kita dapat menyimpulkan kegunaan dari divisi ini yaitu sebagai identifikasi program COBOL yang kita buat misalnya nama pembuat (AUTHOR) dan nama program (PROGRAM-ID).
· PROGRAM-ID : bagian dari divisi identifikasi, berguna untuk menamakan program, disini nama programnya adalah Program Menu.
· AUTHOR : untuk memberi nama pembuat programmer.
· DATA DIVISION : Divisi ini berguna untuk memberikan informasi peralatan yang digunakan dalam program, dibagi menjadi 2 section yaitu CONFIGURATION SECTION dan INPUT-OUTPUT SECTION. CONFIGURATION SECTION bersifat optional (boleh tidak ditulis) yang berisi tentang peralatan hardware yang digunakan program. INPUT-OUTPUT SECTION, section ini digunakan untuk operasi file (akan dijelaskan kemudian). Contoh : ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-PC. OBJECT-COMPUTER. IBM-PC.
· WORKING STORAGE SECTION : berguna untuk tempat .mendeklarasikan variable-variable yang akan digunakan nanti.
· LEVEL NUMBER 77 : Adalah level number yang berdiri sendiri.
PICTURE CLAUSE & EDITING :
· PIC 9 : Adalah picture clause yang berfungsi sebagai bentuk variabel yang berupa numeric. jika dituls pic 999 atau pic 9(3), maka berarti variabel tersebut memiliki tipe numerik dengan 3 digit. Contoh variabel yang digunakan pada program : n, i, j, pil, uts, uas, hasil.
· PIC A : Adalah picture clause yang berfungsi sebagai bentuk variabel yang berupa alfabet. Pic a(20) berarti bertipe alfabet dengan 20 digit. Contoh variabel yang digunakan pada program : nama, fkl, jrs.
· PIC X : Adalah picture clause yang berfungsi sebagai bentuk variabel yang berupa alfanumerik. Pic x(20) berarti bertipe alfanumerik dengan 20 digit. Contoh variabel yang digunakan pada program : l, npm, kelas.
· PIC 99/99/9999 : picture clause yang berfungsi untuk menyisipkan tanda slash. Biasa digunakan saat mengisi tanggal lahir. Contoh variabel yang digunakan pada program : tgl.
· SCREEN SECTION : digunakan untuk menentukan format layar tampilan baik input atau output.
· 01 CLS & BLANK SCREEN : untuk menghapus layar.
PROCEDURE DIVISION :
· MULAI : sebuah nama paragraph / nama procedure.
· DISPLAY CLS : untuk memanggil cls yang akan menghapus layar.
· Setelah itu program akan menampilkan keluaran yang berupa beberapa menu yaitu : perulangan 1, perulangan 2, biodata & exit.
· Lalu akan disuruh untuk memasukan pilihan menu ke dalam variabel pil, pilhannya berupa angka 1 sampai 4, jika sudah program akan meloncat ke prosedur 1, 2, 3, 4 tergantung dari variabel pil, jika memasukkannya lebih dari 4 maka program akan mengeluarkan “menu (pil) tidak tersedia”, dan akan lompat ke prosedur mulai.
· ACCEPT L : berfungsi sebagai jeda dan enter.
· GO TO MULAI : untuk meloncat kembali ke prosedur mulai.
Ini adalah prosedur 1 yang berisi perulangan . di prosedur ini program akan melakukan looping yang di awali dari menerima input dari user ke variabel N, kemudian perform cetak untuk melakukan perintah yang ada di prosedur cetak.
Di dalam prosedur cetak terdapat beberapa perintah untuk menghasilkan keluaran yang berupa “*”, dan ada pengandaian jika j = I maka akan melakukan enter.
Untuk perulangan ini jika akan memasukan banyaknya perulangannya adalah 7 maka, variabel i akan melakukan looping dari nilai 1 kemudian ditambah 1 sampai nilai I lebih besar dari pada nilai n. setelah itu variabel j juga melakukan looping dari 1 kemudian ditambah 1 sampai nilai j lebih besar dari pada nilai I. jika looping j sudah terpenuhi lalu looping I belum, maka nilai j akan menjadi nilai awal.
Accept l berfungsi sebagai enter atau jeda, kemudian akan ditujukan kembali kepada prosedur mulai.
Ini adalah prosedur 2 yang berisi perulangan . di prosedur ini program akan melakukan looping yang di awali dari menerima input dari user ke variabel N, kemudian perform cetak untuk melakukan perintah yang ada di prosedur cetak.
Untuk perulangan ini jika akan memasukan banyaknya perulangannya adalah 7 maka, variabel i akan melakukan looping dari nilai variabel n kemudian dikurang -1 sampai nilai I lebih kecil dari pada 1. setelah itu variabel j juga melakukan looping dari 1 kemudian ditambah 1 sampai nilai j lebih besar dari pada nilai I. jika looping j sudah terpenuhi lalu looping I belum, maka nilai j akan menjadi nilai awal.
Accept l berfungsi sebagai enter atau jeda, kemudian akan ditujukan kembali kepada prosedur mulai.
Ini adalah prosedur biodata yang di dalamnya memakai variable nama, npm, kelas, fkl, tgl, jrs, tgl, uts, uas dan hasil. Di prosedur ini terdapat perhitungan untuk variabel hasil yaitu nilai uts dikalikan 0.7 lalu ditambah dengan nilai uas dikalikan 0.3. setelah menginput data ke variabel maka program akan memunculkan keluaran berupa inputan yang dimasukkan tadi.
Accept l berfungsi sebagai enter atau jeda, kemudian akan ditujukan kembali kepada prosedur mulai.
Kemudian ada prosedur 4 yang digunakan untuk keluar dari program.
Berikut adalah contoh hasil program :
Buat IDENTIFICATION DIVISION, PROGRAM-ID.
Lalu ENVIRONMENT DIVISION.
Dan DATA DIVISION.
Didalam Working-Storage Section . kita buat deklarasi Data A dan B sebagai Indenpent dengan tipe Numerik.
Gambar Berikut;
Masuk kedalam Coding Perulangan.
Perform CETAK
A dari 1 ke 1 sampai A lebih 5.
B dari 1 ke 1 sampai B lebih dari A.
Stop Run.
Kemudian Panggil Peform CETAK.
Tampilkan A
Jika B = A tampilkan Spasi
Gambar Berikut ;
A
> 5
B > A
B = A SPACE (Baris Baru)
A>5
|
B>A
|
Dicetak output A
|
1
|
1>1
|
1
|
2>1
|
SPASI
|
|
2
|
1>2
|
2
|
2>2
|
22
|
|
3>2
|
SPASI
|
|
3
|
1>3
|
3
|
2>3
|
33
|
|
3>3
|
333
|
|
4>3
|
SPASI
|
|
4
|
1>4
|
4
|
2>4
|
44
|
|
3>4
|
444
|
|
4>4
|
4444
|
|
5>4
|
SPASI
|
|
5
|
1>5
|
5
|
2>5
|
55
|
|
3>5
|
555
|
|
4>5
|
5555
|
|
5>5
|
55555
|
|
6>5
|
SPASI
|
|
6>5
|
6>6
|
Karena Sampai 5
Jadi tidak ada
|
Tidak ada komentar:
Posting Komentar