Program Kursi Bioskop menggunakan Perl

Yo frenss, siapa yang di sini belum pernah nonton di bioskop ? Pasti sudah pernahkan... Sebelum agan masuk ke bioskop kan pasti harus beli tiket dulu di mbak-mbak kasir yang jaga, nah pada saat beli karcis pasti mbaknya yang cantik bilang "mau duduk di kursi yang mana mas ?" jangan sampai agan jawab "mau duduk di pelaminan sama kamuuhhh ...." :') pasti langsung dipanggilin security nya entar.

Kalau agan jeli, sebenarnya nomor-nomor yang ada pada kursi biskop itu merupakan sebuah array 2 dimensi yang disusun sedemikian rupa agar
mudah dipanggil.

Pengertian array adalah sekumpulan variabel yang memiliki tipe data yang sama dan dinyatakan dengan nama yang sama.

Nah, pada kesempatan kali ini saya akan membagikan tutorial bagaimana cara membuat program sederhana untuk pemesanan kursi bioskop menggunakan bahasa pemrograman Perl, silakan disimak caranya :

1. Pertama, buka notepad
2. Kedua, silakan copy dan paste source code saya di bawah ini ke dalam notepad

@nomor = ([1,2,3,4,5],[6,7,8,9,10],[11,12,13,14,15],[16,17,18,19,20],[21,22,23,24,25],[26,27,28,29,30]); #ini adalah deklarasi isi arraynya
for(;;){ #ini adalah fungsi untuk melakukan infinite loop
for($a=0;$a<6;$a=$a+1){  #dan ini adalah kondisi yang ingin diulang
for($b=0;$b<5;$b=$b+1){
print " [$nomor[$a][$b]] "; #hasil perulangan yang ingin ditampilkan (sampai bawah)

}print "\n";}
print "pesan nomor berapa ?\n"; #di sini untuk input mau pesan nomor berapa
$x = <>;  #input dan deklarasi variabel
chomp($x);
if($x<=30 and $x>=1){ print "\n"; #pada program ini jumlah kursinya 30 jadi if nya seperti ini
if($x>=1 and $x<=5)
{
if($nomor[0][$x-1] == "X" ){print "SUDAH DIPESAN \n\n"} #apabila kursi sudah dipesan
$nomor[0][$x-1] = "X" ; #setelah kursi dipesan maka nomor akan berubah menjadi X
}
if($x>=6 and $x<=10)
{
if($nomor[1][$x-6] == "X" ){print "SUDAH DIPESAN \n\n"}
$nomor[1][$x-6]="X";

}
if($x>=11 and $x<=15)
{
if($nomor[2][$x-11] == "X" ){print "SUDAH DIPESAN \n\n"}
$nomor[2][$x-11]="X";

}
if($x>=16 and $x<=20)
{
if($nomor[3][$x-16] == "X" ){print "SUDAH DIPESAN \n\n"}
$nomor[3][$x-16]="X";

}
if($x>=21 and $x<=25)
{
if($nomor[4][$x-21] == "X" ){print "SUDAH DIPESAN \n\n"}
$nomor[4][$x-21]="X";

}
if($x>=26 and $x<=30)
{
if($nomor[5][$x-26] == "X" ){print "SUDAH DIPESAN \n\n"}
$nomor[5][$x-26]="X";

}}
else {print "\nKURSI TIDAK ADA \n\n";} #output apabila ada inputan yang bukan merupakan nomor kursi

}

3. Setelah disalin maka simpan file ini dalam bentuk .pl .mis: bioskop.pl dan save type as :all files
4. Untuk menjalankannya bisa lewat cmd dulu (win+R) ketik "cmd" tanpa tanda petik <enter>
masuk ke dalam direktori penyimpanan misal: saya simpan di data D dalam folder perl
D:
cd perl
bioskop.pl
atau agan bisa double click pada file bioskop yang sudah agan buat.

Kalau berhasil tampilannya akan seperti ini: