• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 166
  • Last Modified:

Calculations coming out wrong

I am working on making a car calculator for loans, I have:

#!/usr/bin/perl
print "Content-type:text/html \n\n";
use CGI qw(:standard);

my $cost       =    param('cost')     || '0.00';
my $payment    =    param('payment')  || '0.00';
my $interest   =    param('interest') || '0.10';
my $down       =    param('down')     || ($cost * 0.20);
my $loan       =    param('loan')     || '5.00';

my $due        =    ($cost - $down) * (1 + $loan * $interest / 100);

my $month      =    $due / (12 * $loan);

# if nothing default values below

# print output of all entered values

my $output = <<_END_;

<b>Cost:</b> $cost <br />
<b>Payment:</b> $payment <br />
<b>Interest:</b> $interest <br />
<b>Down:</b> $down <br />
<b>Loan:</b> $loan <br />
<br /><br />
<b>Amount due each month:</b> $month

_END_
print $output;

And I am getting the wrong output for the monthly amount due. Any suggestions on what I can do to fix the output, it is coming out very large.

Link: http://elan.champlain.edu/~rcoughlin32001/carcalculator.html

Thanks,

Ryan
0
catonthecouchproductions
Asked:
catonthecouchproductions
1 Solution
 
TintinCommented:
Given that this is an assignment question, we can only offer pointers.

My tip is for you to read through perlop

perldoc perlop

0
 
ozoCommented:
If you are getting the wrong output, what would be the correct output?
What is the relationship between $month and $loan?
0
 
catonthecouchproductionsAuthor Commented:
This isnt an assignment one, it is being hosted on the Champlains server, I did read that you can only handle pointers for assignment questions and that is perfectly fine with me. This is an extra case study I am doing out of the book, the class is kicking my butt, haha.

I will take a look at that, what you said above.

$month is how much you are going to pay a month
$loan is how many years you want a loan for

Sorry, I should have made that clear for you guys.

Thanks,

Ryan
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
FishMongerCommented:
0
 
catonthecouchproductionsAuthor Commented:
I am using what is given the extra case study I am doing for the heck of it. That is what they gave me for it.

Ryan
0
 
mjcoyneCommented:
Have a look at my last post to your other question {http://Q_22868164}
0
 
mjcoyneCommented:
Well, that didn't work (how do you use the EE macros, anyway?).  Anyway, the link to the prior question is:

http://www.experts-exchange.com/Programming/Languages/Scripting/Perl/Q_22868164.html

And I'm talking about comment ID 20013886...
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now