mtk.pl

#!/usr/bin/perl
use strict;
use warnings;
use Term::ANSIColor;

print color('bold blue');
print "Pilih operasi matematika (penjumlahan/pengurangan/perkalian/pembagian/sisa bagi/pangkat): ";
print color('reset');

my $operasi = lc(<STDIN>);
chomp($operasi);

print color('bold green');
print "Masukkan angka pertama: ";
print color('reset');
my $angka1 = <STDIN>;
chomp($angka1);

print color('bold green');
print "Masukkan angka kedua: ";
print color('reset');
my $angka2 = <STDIN>;
chomp($angka2);

# Pilih operasi sesuai input pengguna
my $hasil;
if ($operasi eq 'penjumlahan') {
    $hasil = $angka1 + $angka2;
} elsif ($operasi eq 'pengurangan') {
    $hasil = $angka1 - $angka2;
} elsif ($operasi eq 'perkalian') {
    $hasil = $angka1 * $angka2;
} elsif ($operasi eq 'pembagian') {
    $hasil = $angka1 / $angka2;
} elsif ($operasi eq 'sisa bagi') {
    $hasil = $angka1 % $angka2;
} elsif ($operasi eq 'pangkat') {
    $hasil = $angka1 ** $angka2;
} else {
    die "Operasi tidak valid. Silakan pilih operasi yang benar.";
}

print color('bold cyan');
print "Hasil $operasi: $hasil\n";
print color('reset');