Showing posts with label interest solver in perl. Show all posts
Showing posts with label interest solver in perl. Show all posts

Saturday, September 3, 2016

Loan Interest Solver in Perl

A simple program that I wrote using PERL to solve the loan of the customer. I will ask the user for the principal amount load, interest rate and the time.


Add me at Facebook my address is jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
 
My mobile number here in the Philippines is 09173084360
.


Program Listing

#!D:\xampp\perl\bin

sub find_interest {
  ($amount,$rate,$time) = @_;
   $solve_interest = ($amount * $rate * $time) / 100;
}

print "\n\n";
print "Loan Interest Solver";
print "\n\n";
print "Enter Principal Amount : ";
chomp($amount=<>);
print "Enter Rate of Interest : ";
chomp($rate=<>);
print "Enter Period of Time   : ";
chomp($time=<>);
print "\n\n";
print "Display Result";
print "\n\n";
print "The interest rate is $" ;
print  find_interest($amount,$rate,$time);
print "\n\n";
print "End of Program";
print "\n\n";