CONTOH PROGRAM PERULANGAN GO TO

CONTOH PROGRAM PERULANGAN GO TO

Diposting oleh Rizky Rachmad F

LISTING PROGRAM :

logika kodingannya di bawah ini :

1.  Statement IDENTIFICATION DIVISION : pada program cobol diatas statement ini merupakan sebuah divisi yang pertama yang paling sederhana pada COBOL, dan berfungsi untuk memberikan keterangan atas program yang akan kita buat selanjutnya,

2. Statement PROGRAM-ID. PERFORM1. : Yaitu Merupakan judul data pada program yang akan kita buat pada program,

3. Statement ENVIRONTMENT DIVISION. :Yaitu digunakan untuk memberikan sebuah dokumentasi informasi mengenai peralatan yang akan kita gunakan.

4. Statement DATA DIVISION. : Yaitu digunakan untuk memberikan semua keterangan untuk record dan memberikan bentuk format yang akan kita gunakan pada procedure division.

5. Statement WORKING-STORAGE SECTION. : Yaitu berfungsi untuk mendeklarasikan variable dan tipe data yang ingin kita gunakan.

6. Statement 77 JABATAN PIC 9. :Yaitu menunjukkan sebuah judul awal, yang merupakan level number 77 yang berfungsi jika pemograman membutuhkan catatan lalu jabatan sebagai nama pada prosedur yang digunakan pada kolom 9.

7. Statement PROCEDURE DIVISION. : Yaitu merupakan inti dari COBOL, yang berisikan semua instruksi-instruksi  yang kita tulis

8. Statement TANYA JABATAN. : Yaitu berfungsi untuk memulai suatu divisi yang akan kita tampilkan pada output,

9. Statement DISPLAY ‘JABATAN ANDA  [1, 2, DAN 3]?’. : Yaitu berfungsi sebagai menu option atau pilihan untuk memilih prosedur yang telah disediakan,

10. Statement  ACCEPT JAWABAN.  :Yaitu berfungsi untuk menampilkan atau menyetujui sebuah prosedur yang kita pilih,

11. DISPLAY SPACE. :Yaitu berfungsi untuk memberikan jarak pada sebuah running program yang akan kita cetak,

Statement ACCEPT JABATAN. :Yaitu menyetujui kodingan DISPLAY ‘JABATAN ANDA [1, 2, DAN 3]?’.

12. Jika pada menu pilihan diatas yang kita pilih tidak sesuai  dengan data yang disediakan maka kita isi kembali prosedurnya dengan GO TO TUNJ1, TUNJ2, TUNJ3 DEPENDING ON JABATAN. Selain prosedur tunj1, tunj2 dan tunj3 maka akan pergi dan mencetak DISPLAY ‘TIDAK ADA JABATAN TERSEBUT, ULANG ! ’.  akan menampilkan prosedur tidak ada jabatan,ulang ! jika yg kita pilih tidak ada pada menu plihan diatas,

13. Statement  GO TO TANYA-JABATAN. : Yaitu berfungsi untuk akan menanyakan kembali pada menu pilihan jabatan yang kita pilih.

14. Pada TUNJ1. :Yaitu  digunakan untuk mencetak sebuah isi prosedurnya dengan DISPLAY “TUNJANGAN ANDA SEBESAR RP.100.000,- ”. Untuk mencetak kata tunjangan anda sebesar RP.100.000,

15. Pada GO TO SELESAI. :YAitu berfungsi untuk kembali menghentikan program sehingga sudah tidak running kembali,

16. Pada TUNJ2. :Yaitu  digunakan untuk mencetak sebuah isi prosedurnya dengan DISPLAY “TUNJANGAN ANDA SEBESAR RP.200.000,- ”. Untuk mencetak kata tunjangan anda sebesar RP.200.000,

17. Pada GO TO SELESAI. :YAitu berfungsi untuk kembali menghentikan program sehingga sudah tidak running kembali,

18. Pada TUNJ3. :Yaitu  digunakan untuk mencetak sebuah isi prosedurnya dengan DISPLAY “TUNJANGAN ANDA SEBESAR RP.300.000,- ”. Untuk mencetak kata tunjangan anda sebesar RP.300.000,

19. Pada GO TO SELESAI. :YAitu berfungsi untuk kembali menghentikan program sehingga sudah tidak running kembali

20. Pada Statement SELESAI. : Yaitu berfungsi untuk menghentikan  program,

21. STOP RUN. : Yaitu untuk benar-benar menghentikan semua prosedur program yang kita gunakan.

Contoh Program COBOL (Menghitung Nilai UAS dan UTS)

Contoh Program COBOL (Menghitung Nilai UAS dan UTS)

Diposting oleh Rizky Rachmad F     

Saya akan menjelaskan program sederhana pada COBOL, yaitu menghitung nilai UAS dan UTS pada cobol. Dan langsung saja saya akan menjelaskannya di bawah ini :

MENGHITUNG NILAI UAS DAN UTS

Inilah codingan nya :

Dan selanjutnya saya akan menjelaskan logika kodingannya di bawah ini :

IDENTIFICATION DIVISION. : Yaitu sebuah divisi yang pertama, berfungsi untuk memberikan keterangan pada program yang akan kita buat,

PROGRAM-ID. FUNGSI. : yaitu sebuah judul data pada program yang akan dibuat.

AUTHOR. MSR. :  yaitu menunjukkan bahwa penulis data diatas adalah MSR.

ENVIRONTMENT DIVISION. : Yaitu divisi yang kedua, berfungsi untuk memberikan sebuah dokumentasi informasi mengenai peralatan yang akan kita digunakan.

DATA DIVISION. : Yaitu berfungsi untuk memberikan semua keterangan record dan juga memberikan bentuk format yang digunakan pada procedure division.

WORKING-STORAGE DIVISION. : Yaitu merupakan section pada data division,

01 UTS PIC 9(3). : Yaitu menunjukkan sebuah judul awal yang akan kita buat,dan 9 merupakan output program yang menampilkan pada baris ke-9. 
01 UAS PIC 9(3). : Yaitu merupakan sebuah level number 1 yang digunakan, jika pemrograman membutuhkan catatan dan angka 9 tersebut merupakan output program yang akan menampilkan pada baris ke-9.

01 HASIL PIC 9(3). : Yaitu output program dari nilai UAS dan UTS, angka 9 tersebut merupakan output program yang akan menampilkan pada baris ke-9.

SCREEN SECTION. : Yaitu merupakan section pada sebuah data division,

01 HAPUS. Dan 02 BLANK SCREEN. : Yaitu level number yang berfungsi untuk  membersihkan layar pada COBOL,

PROCEDURE DIVISION. : Yaitu yang berisi semua instruksi-instruksi yang kita tulis tadi,

MULAI. : Yaitu berfungsi untuk memulai suatu divisi atau memproses data yang akan kita tampilkan,

DISPLAY HAPUS. : Yaitu Untuk membersihkan pada layar,
DISPLAY ( , ) ‘MASUKKAN NILAI UTS  : ‘. : Yaitu  berfungsi untuk data yang akan kita tampilkan pada output program nya dan memasukkan data angka nilai UTS,

ACCEPT  UTS. : Untuk menyetujui display data sebelumnya, yaitu data pada MASSUKAN NILAI UTS,
DISPLAY ( , ) ‘MASUKKAN NILAI UAS : ‘. : Yaitu  berfungsi untuk data yang akan kita tampilkan pada output program nya dan memasukkan data angka nilai UAS,

ACCEPT UAS. : Untuk menyetujui display data sebelumnya, yaitu data pada MASSUKAN NILAI UAS,

HITUNG. Dan COMPUTE HASIL = ( UTS * 70 / 100 ) + ( UAS * 30 / 100 ) : Yaitu yang akan menampilkan rumus fungsinya, dan rumus fungsi compute yang digunakan untuk menghitung hasil dari data nilai UTS dan UAS yang tadi kita masukkan.

Seleksi. Dan DISPLAY HASIL. : Yaitu untuk menampilkan hasil dari nilai UTS dan nilai UAS ketika program kita running.

IF HASIL > 70. : Yaitu Merupakan sebuah program data IF yang berfungsi untuk meng-input nilai dari UTS dan nilai UAS yang hasilnya lebih dari 70,

DISPLAY ( 8 , 6 ) ‘LULUS’. : Yaitu yang menampilkan data IF diatas (IF HASIL >70) pada running program cobol diakhir pada baris 8 kolom 6 dan akan menampilkan LULUS.

IF HASIL < 70. Yaitu Merupakan sebuah program data IF yang berfungsi untuk meng-input nilai dari UTS dan nilai UAS yang hasilnya kurang dari 70,DISPLAY ( 8 , 6 ) ‘TIDAK LULUS’. :  Yaitu yang menampilkan data IF diatas (IF HASIL <70 6="6" 8="8" akan="akan" baris="baris" cobol="cobol" dan="dan" diakhir="diakhir" kolom="kolom" lulus.="lulus." menampilkan="menampilkan" pada="pada" program="program" running="running" span="span" tidak="tidak">

SELESAI. : Yaitu mengakhiri program.

STOP RUN. : Yaitu mengakhiri seluruh program data dari data diatas yang telah kita buat.

Laporan program

LAPORAN AKHIR

R PROGRAM

         Nama          : 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

RENCANA PEKERJAAN

saya akan mengerjakan tugas softkill pertemuan 3 yang berjudul rencana pekerjaan. dan disini saya akan memilih seorang IT dan apa saja yang dia kerjakan dan IT adalah orang yang memperbaiki jaringan , memperbaiki dan melancarkan hal hal yang berhubungan IT

Apa kita ketahui untuk menjadi seorang IT?

  1. Kita harus tau atau menganali apa dan bagaimana pada jaringan?

  2. Kemudian kita juga harus tau komponen-komponen Jaringan

  3. Mengerti cara menangani bila suatu saat terjadi kerusakan atau kendala pada Jaringan Tersebut.

Berikut sedikit wawancara saya dengan teamn saya  IT yang bernama "Cloudio Rendy".

  

1. Pendidikan yang harus di tempuh apa saja?

 S1 sarjana komputer,D3 bisa tapi lebih recommend s1 jika mau gaji /jabatan lebih di kemudian harinya

2. Lalu pada saat anda melamar pekerajaan ini, apa saja persayaratan yg terdapat pada Bidangini? Pengalaman organisasi atau pengalaman in team project. Dan kalo bisa ada project2 it sampingan untuk portfolio. Website , banner, logo buatan dst

3.Apakah ada syarat seperti sertifikasi untuk pekerjaan sebagai IT?

 Willing untuk explore... open minded, Dan bisa d hubungin kapan aja. Bisa koordinasi dan menjaga hub baik dengan team atau client juga penting.

4.Untuk pekerja seorang IT apakah perorangan atau perteam?

Team , Solo not recommend. Klo orangnya resign then your project is doomed

sedikit wawancara dengan teman saya jadi intinya untuk seorang IT itu harus Team karna pekerjaannya itu tidak tertalu gampang untuk dikerjakan dan harus lebih teliti .

Sekian dari saya dan terimakasih.