Membuat Program Pilihan pada Pascal

Pascal adalah bahasa pemrograma tingkat tinggi (high level language)  yang dalam pembuatannya menggunakan bahasa sehari – hari dalam bahasa inggris untuk proses pembuatan script code nya.

Dalam membuat program, seringkali programmer menemukan masalah pada Syntax atau aturan dalam penulisan program, maklum saja karena pada setiap program aplikasi syntax atau pun penulisan program berbeda-beda aturannya. Dengan demikian yang perlu dipahami oleh pembuat program adalah logika nya atau Algoritmanya.

Disini penulis ingin coba berbagi untuk membuat sebuah program sederhana menggunakan bahasa pemrograman pascal. Program yang kali ini akan dibuat, yaitu membuat perhitungan tentang Luas Balok dan Volume nya, serta Luas dan keliling lingkaran. Disini tantangan nya yaitu menggunakan pilihan/atau kondisi. Penulis tidak perlu panjang lebar menjelaskan bagaimana-bagaimana nya, kalian tinggal lihat saja salinan Scripcode nya.

keterangan dalam program :

uses crt                : ibrary untuk memanggil fungsi clrscr

Var nama, NPM,     : mendeklarasikan variable nama dan NPM bertipe data string.

Var p,l,t,ruang       : mendeklarasikan variable p,l,t,ruang bertipe data integer, dan variable ini yang nanatinya akan menjadi inputan angka yang kemudian akan di proses. Pada pilihan 1, P ini akan mendeklarasikan sebagai panjang balok. Pada pilihan 2 P ini akan mendeklarasikan untuk Jari-jari lingkaran.

Var Lu, vol, kel      : mendeklarasikan variabel lu dan vol pada balok dan kel yang akan digunakan untuk mendeklarasikan keliling lingkaran yang bertipe data real.

Begin                     : memulai awal program

clrscr                    : berfungsi untuk membersihkan tampilan atau layar

writeln                   : berfungsi untuk menampilkan pesan dengan tanda kursor dibawah pesan (ganti baris)

write                     : berfungsi untuk menampilkan pesan dengan tanda kursor disebelah akhir pesan yang  ditampilkan

readln( )                : menyimpan data input dari keyboard dalam variable

Lu := ((2*p*l)+(2*p*t)+(2*l*t));  : penulisan rumus luas balok pada pascal

vol := p*t*l;                               : penulisan rumus volume balok pada pascal

Lu := 3.14 * p*p                         : penulisan rumus luas lingkaran pada pascal

Kel := 2 *p* 3.14                       : penulisan rumus keliling lingkaran pada pascal

lu:5:2                                       : menampilkan data luas dengan max 5 karakter didepan tanda koma dengan 2 angka dibelakang koma.

vol:5:2                                      : menampilkan data volume dengan max 5 karakter didepan tanda koma dengan 2 angka dibelakang koma

kel:5:2                                      : menampilkan data keliling dengan max 5 karakter didepan tanda koma dengan 2 angka dibelakang koma

Readln                                       :  menahan tampilan langsung ke tampilan scriptcode lagi/kembali

End;                      : akhir dari program pascal per blok.

End.                      : akhir dari program pascal keseluruhan

Dari Output program dapat dilihat pada gambar diatas, jika kita memilih angka 1, maka yang akan keluar adalah “Perhitungan luas dan volume balok”, anda nanti akan diminta untuk memasukkan Panjang, tinggi, serta lebar. Jika ketiganya telah dimasukkan makan akan keluar hasil perhitungan diatas.

Dari Output program dapat dilihat pada gambar diatas, jika kita memilih angka 2, maka yang akan keluar adalah “Perhitungan luas lingkaran dan keliling lingkaran”, anda nanti akan diminta untuk memasukkan jari-jari lingkaran. Jika telah dimasukkan makan akan keluar hasil perhitungan diatas.

Dari contoh program diatas, penulis hanya ingin mencoba untuk membari logic atau algoritmanya, silahkkan salin script ini kalau kalian ingin lebih bervariasi modifikasi saja script nya.

happy sharing.

goodluck