Categories
Perl

Money Denomination Checker in PERL

Machine Problem

Create and design a program that will ask the amount from the user and then our program will count how many one thousand, five hundred, two hundred,  one hundred, fifty and twenty bills based here in the Philippine currency.I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me at the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com

Program Listing


# bills.pl
# Author       :  Jake Rodriguez Pomperada,MAED-IT,MIT
# Date         :  November 9, 2019   7:33 AM  Saturday
# Location     :  Bacolod City, Negros Occidental
# Tools        :  Perl  5 and Visual Studio Code Version 1.37.0
# Websites     :  www.jakerpomperada.com  
#                 www.jakerpomperada.blogspot.com
# Email        :  jakerpomperada@gmail.com

print "\n\n";
print "\tMoney Denomination Checker in PERL";
print "\n\n";
print "\tGive the amount of money : PHP  ";
chomp($amt  =<>);

  # Conversion start here 

 $thousand = int($amt/1000);
 $amt =  int($amt%1000);
 $five_hund = int($amt/500);
 $amt = int($amt%500);
 $two_hundreds =int($amt/200);
 $amt = int($amt%200);
 $hundreds = int($amt/100);
 $amt = int($amt%100);
 $fifty = int($amt/50);
 $amt = int($amt%50);
 $twentys = int($amt/20);
 $amt = int($amt%20);

print "\n";
print "\t===== DISPLAY RESULT =====";
print  "\n\n";
print  "\tNumber of  PHP 1000 Pesos notes   :  $thousand\n";
print  "\tNumber of  PHP 500 Pesos notes    :  $five_hund \n";
print  "\tNumber of  PHP 200 Pesos notes    :  $two_hundreds\n";
print  "\tNumber of  PHP 100 Pesos notes    :  $hundreds\n";
print  "\tNumber of  PHP  50 Pesos notes    :  $fifty\n";
print  "\tNumber of  PHP  20 Pesos notes    :  $twentys";
print "\n\n";
print "\tEnd of Program";
print "\n";
Categories
Perl

Sum and Product of Two Numbers in PERL

Machine Problem

Create and design a program that will ask the user to give two numbers and then the program will compute the sum and product of the given numbers and display the results on the screen.I am currently accepting programming work, IT projects, school and application development, programming projects, thesis and capstone projects, IT consulting work, computer tutorials, and web development work kindly contact me at the following email address for further details.  If you want to advertise on my website kindly contact me also in my email address also. Thank you.

My email address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com

Program Listing

# sum_product.pl
# Author      :  Jake Rodriguez Pomperada,MAED-IT,MIT
# Date        :  November 5, 2019  Tuesday  9:49 AM
# Location    :  Bacolod City, Negros Occidental
# Email       :  jakerpomperada@gmail.com
# Websites    :  www.jakerpomperada.com  
#                www.jakerpomperada.blogspot.com

print "\n\n";
print "\tSum and Product of Two Numbers in PERL";
print "\n\n";
print "\tEnter First Value  : ";
chomp($a  =<>);
print "\tEnter Second Value  : ";
chomp($b =<>);

# Compute the sum and product
   $sum = ($a+$b);
   $product = ($a*$b);

print "\n\n";
print "\tThe sum of $a and $b is $sum.";
print "\n\n";
printf "\tThe product of $a and $b is $product.";
print "\n\n";
print "\tEnd of Program";