Perl Archives - Free Computer Programming Source Codes To All

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";

Sum and Product of Two Numbers in PERL

# 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";