Solver Finance: Calculate the Future Value of Money

Source code of 'Finance: Calculate the Future Value of Money'

This Solver (Finance: Calculate the Future Value of Money) was created by by Shin123(626)

: View Source, Show, Put on YOUR site
About Shin123: Just a kid who solves math problems for fun :)

==section input
Find the future value if the principal is $*[input p=25000], the interest rate is *[input 2 r=5]%, the money is compounded *[input 3 n=12] times a year, and the money is kept for *[input 3 y=10] years.
==section solution
perl
$r1=$r/$n;
$r2=$r1/100;
$r3=$r/100;
print("If P is the principal. r the interest rate in decimal, n the number of times it is compounded per year, and y the number of years that the money is kept, the future value is {{{P*(1+r/n)^(y*n)}}}. Plugging in the numbers, we get {{{$p*(1+$r3/$n)^($y*$n)}}}. Simplifying, we get ");
$r4=$r3/$n;
$y1=$y*$n;
$r5=1+$r4;
$r6=$r5 ** $y1;
$ans=$p*$r6;
print("{{{$p*(1+$r4)^$y1=$p*$r5^$y1=$p*$r6=highlight(highlight_green(highlight($ans)))}}} ");

sub round
{
  my ($number, $pre) = @_;
   #credit to jim_thompson5910
  my $answer;

$number =~ s/\s//g;

if( $number !~ m/\./ )
  {
    return $number;
  }

if( $pre == 0 )
  {
     return $number;
  }

my ($whole,$decimal) = split(/\./,$number);

#   if( length($decimal) == $precision )
#   {
#   
#.      return $number;
#   }

if( length($decimal) <= $pre )
  {
     return $number;
  }

my ($captured_decimal,$next_digit) = $decimal =~ m/^(\d{$pre})(\d)/;

my $new_number = "$whole.$captured_decimal";

if( $next_digit >= 5 )
  {
     $new_number = $new_number + 1*10**(-1*$pre);
  }
  else
  {
  }
  return $new_number;
}
$roundedAns=round($ans,2);
if ($roundedAns==$ans) {
  print("dollars.");
} else {
  print(",which can be rounded to ");
  print("{{{highlight(highlight_green(highlight($roundedAns)))}}} dollars.");
}
==section output

==section check