Logika COBOL – Program Looping Segitiga Terbalik

Coding COBOL Looping Segitiga Terbalik

Coding COBOL Looping Segitiga Terbalik

Logika program :

  1. Identification Division berfungsi untuk mengidentifikasi program cobol yang kita buat.
  2. Program-id. Looping. Ini mengidentifikasi nama dari program. Nama program ini adalah program looping.
  3. Environment division untuk memberikan informasi tentang apa yang digunakan pada program ini.
  4. Data division digunakan untuk mendeskripsikan variable-variabel dan jenis tipe data yang digunakan dalam cobol.
  5. Working storage section untuk menyediakan tempat untuk hasil pekerjaan. Bagian(procedure) Input-area
    • Variable I & Jdengan tipe data integer dan maksimal character 1.
    • Variable NILAI dengan tipe data integer, maksimal character 1 dan bernilai 1.
  6. Procedure division tempat programmer menaruh instruksi-instruksi yang akan dijalankan.
  7. Procedure MULAI berisi :
    • Perform berarti melakukan procedure, kali ini procedure yang akan dilakukan adalah procedure CETAK.
    • Varying digunakan untuk looping, maka dari nilai 6 lalu ditambahkan -1 (dikurang 1) setiap looping nya sampai I bernilai kurang dari NILAI.
    • After untuk looping selanjutnya, maka dari nilai 1, ditambahkan 1 setiap looping nya sampai nilai J lebih besar dari I.
    • Hal ini berarti looping didalam looping. Maka pada pembacaan pertama program akan membaca seperti ini : Karena nilai I yang dibaca pertama adalah 6, lalu bergeser ke baris selanjutnya, looping j adalah dari 1 sampai nilai j lebih besar dari i. kali ini berarti looping j tidak akan berhenti sampai nilai j bernilai 7. Karena yang di cetak pada procedure cetak adalah nilai j, maka program akan mencetak nilai j sampai dengan 6, lalu looping akan keatas lagi membaca nilai I selanjutnya yaitu 5, maka looping j akan terhenti saat bernilai 6 di pembacaan kedua, dan seterusnya.
  8. Procedure SELESAI à berisi STOP RUN untuk menghentikan program.
  9. Procedure CETAK à yang akan dipanggil ke procedure MULAI & yang akan di looping kan.
    • Mencetak nilai dari J . ( ,  ) berfungsi untuk mencetak ke kanan.
    • Jika nilai dari var I = var J maka pada output kursor akan menjadi sebaris lebih bawah (ter-enter).
  10. Berikut adalah output secara keseluruhan :
Output Program COBOL Looping Segitiga Terbalik

Output Program COBOL Looping Segitiga Terbalik

Advertisements

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