Membuat Kalkulator Bilangan Pecahan menggunakan Perl

Di zaman teknologi yang berkembang pesat saat ini, kita tidaklah terlepas dari bentuan komputer dalam melakukan pekerjaan kita sehari-hari. Tanpa kita sadari ternyata teknologi yang kita gunakan saat ini adalah serangkaian program-program yang telah dibuat oleh seorang programmer agar berjalan sesuai dengan fungsi dan kebutuhan user. Nah, untuk menjadi seorang programmer
tidaklah semudah membalikkan telapak tangan, namun harus dilalui dengan kerja keras dan logika yang kuat.

Maka dari itu pada kesempatan kali ini, saya akan membagikan bagaimana cara membuat kalkulator yang dapat menghitung bilangan pecahan dengan menggunakan bahasa pemrograman Perl.

Perl merupakan singkatan dari Practical Extraction and Report Language, dibuat oleh Larry Wall.

Perl adalah bahasa interpreter sekaligus kompiler, artinya Perl akan mendeteksi setiap baris untuk mencari syntax error sebelum program dijalankan.

Ketentuan-ketentuan: 

• Perl memiliki tiga tipe data: skalar, array, dan hash.
• Skalar menyimpan nilai tunggal, array menyimpan kumpulan skalar dengan urutan tertentu, sedangkan hash menyimpan kumpulan skalar berpasangan.
• Sebuah variabel dinyatakan dengan tanda awalan tertentu yang merujuk pada tipe data yang dikandungnya, serta nama yang berfungsi sebagai pengenal.
• Tanda pengenal adalah $ untuk skalar, @ untuk array, dan % untuk hash.
• Nama variabel terdiri atas huruf dan angka, disebut juga alfanumerik (karakter “_” dihitung sebagai huruf).
• Nama variabel tidak boleh dimulai dengan angka.
• Tidak ada ketentuan mengikat mengenai berapa panjang nama variabel yang boleh digunakan

Semoga artikel yang saya tulis ini dapat bermanfaat dan mudah dimengerti, silakan disimak ...

pertama silakan buka notepad dan copy script di bawah ini

Source Code

print " What is the first number?\n";
        $a = <>; #mendeklarasikan tipe data
        chomp($a);  #fungsi ini untuk menyimpan inputan user ke dalam variabel
        print "__ \n";
        $b = <>;
        chomp($b);

print " What is the second number?\n";
        $c = <>;
        chomp($c);
        print "__\n";
        $d = <>;
        chomp($d);

$pembilang = $b * $d;

$atas_kiri = ($pembilang / $b) ; #melakukan proses perhitungan
$atas_kiri2 = $atas_kiri * $a ;
$atas_kanan = ($pembilang / $d)  ;
$atas_kanan2 = $atas_kanan * $c;


print "\n1. + \n2. -\n3. x\n4. /\n"; #menampilkan output
print "What is operator u want?\n";
        $z = <>;
        chomp($z);

if ($z == 1){       #fungsi if
print "\n".$atas_kiri2 ." + ".$atas_kanan2 ;
print "\n_______\n";
print $pembilang . "\n\n";
$asd = $atas_kiri2 + $atas_kanan2;
print $asd;
print "\n_______\n";
print $pembilang . "\n\n";
print $asd / $pembilang;
}

if ($z == 2){
print "\n".$atas_kiri2 ." - ".$atas_kanan2 ;
print "\n_______\n";
print $pembilang . "\n\n";
$asd = $atas_kiri2 - $atas_kanan2;
print $asd;
print "\n_______\n";
print $pembilang . "\n\n";
print $asd / $pembilang;
}

if ($z == 3){
print "\n".$a ." x ".$c ;
print "\n_______\n";
print "\n".$b ." x ".$d ." \n \n" ;
print $a * $c ;
print "\n_______\n";
print $b * $d;
$jkl = $a * $c;
$iop = $b * $d;
print "\n" . $jkl / $iop ;
}

if ($z == 4){
print "\n".$a ." x ".$d ;
print "\n_______\n";
print "\n".$b ." x ".$c ." \n \n" ;
print $a * $d ;
print "\n_______\n";
print $b * $c;
$jkl = $a * $d;
$iop = $b * $c;
print "\n" . $jkl / $iop ;
}

nah kalau sudah agan catat silakan disimpan dan berikan akhiran .pl mis: kalkulator.pl , save as type : all files

Untuk mengeksekusi program tersebut silakan buka direktori tempat penyimpanan program tersebut dati CMD, lalu ketikkan nama file nya mis:calculator.py kemudian tekan enter
Jika berhasil maka akan muncul tampilan seperti berikut :