Konverter Mata Uang (perl)

#kali ini udah masuk dalam variabel modifikasi

$a=4;
$b=10;
print “Untuk variabel a =”, $a, ” dan b = “, $b, “\n”;
$b=$a++; # a++ di hasilkan 5 dan b=4
print ” untuk variaben a++ = “, $a, ” dan b = “, $b, “\n”;
$b=++$a*2; #a*2 di hasilkan 6 dan b = 6*2;
print “Untuk variabel a*2 = “, $a, ” dan b = “, $b, “\n”;
$a=–$b+4; # masih bingung dengan hasil akhir ini hahaa……
print “Untuk hasil akhir”, $a, ” and “, $b, “\n \n”;

# variabel a termasuk bilangan hexsadesimal dan di tambahkan 1 pada variabel ++$a dan maka hasilnya
$a = “A9”; print ++$a, “\n”;
$a = “bz”; print ++$a, “\n”;
$a = “Zz”; print ++$a, “\n”;
$a = “z9”; print ++$a, “\n”;
$a = “9z”; print ++$a, “\n \n”;

#waktunya kita mulai membuat aplikasi sebenarnya hahaa….
#Scoping
#di bawah ini beramain dengan variabel global
$var = 4;
print “Variabel global = “, $var, “\n”;
{
my $var;
$var = 7;
print “variabel local = “, $var, “\n”;
}
print “Variabel Global = “, $var, “\n \n”;

#converter mata uang juga bisa di terapkan di perl dengan mudah ingan (case-sensitive)
use warnings;
use strict;
my $yen = 180;
print “49518 Yen adalah “, (49_518/$yen), ” pounds\n”;
print “360 Yen adalah “, (360/$yen), ” pounds\n”;
print “30510 Yen adalah “, (30_510/$yen), ” pounds\n \n”;

#Introducing (perintah untuk memasukkan )
use warnings;
use strict;
print “Masukkan Jumlah uang yen yang akan di konverter: “;
my $yen = ;
print “49518 Yen adalah “, (49_518/$yen), ” pounds\n”;
print “360 Yen adalah “, (360/$yen), ” pounds\n”;
print “30510 Yen adalah “, (30_510/$yen), ” pounds\n”;

Download Projectnya di sini

Advertisements

Published by

jarcode

hello I am jarcode

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s