Membuat Kalkulator Sederhana Menggunakan Pemrograman Perl ~ Random Feed

Membuat Kalkulator Dengan Perl

Mesin hitung atau kalkulator adalah alat bantu menghitung yang berisi perhitungan seperti tambah, kurang, kali, bagi, dan lain lain.
Kali ini saya akan membagi ilmu yang baru saya pelajari juga. yaitu dengan menggunakan pemprograman Perl. Dan menggunakan aplikasi DWIM perl.

Langsung saja kita lihat codingannya :

use 5.010;
use strict;
use warnings;

say " Kalkulator Sederhana ";
say " Daftar Operator Aritmatika ";
say " 1. Penjumlahan ";
say " 2. Pengurangan ";
say " 3. perkalian ";
say " 4. Pembagian ";

i:
print " Masukan Nilai A : ";
my $a = <STDIN>;
print " Masukan Nilai b : ";
my $b = <STDIN>;

print " Pilih Pengoperasian : ";
my $pilih = <STDIN>;
if ($pilih == 1) {
my $hasil = $a+$b;
say " Hasil Penjumlahan adalah : $hasil" ;
}
elsif ($pilih == 2) {
my $hasil = $a-$b;
say " Hasil Pengurangan adalah : $hasil" ;
}
elsif ($pilih == 3) {
my $hasil = $a*$b;
say " Hasil Perkalian adalah : $hasil" ;
}
elsif ($pilih == 4) {
my $hasil = $a/$b;
say " Hasil Pembagian adalah : $hasil" ;
}
else
{
say " Perintah Tidak Ditemukan";
goto i;
}

Setelah menuliskan codingan programnya, maka hasilnya akan seperti di bawah ini :

SELAMAT MENCOBA !