View of /trunk/NationalProblemLibrary/UVA-FinancialMath/setFinancialMath-Sect11-SimpleInt/math114-11-08.pg

    1 #DESCRIPTION
    2 ##  Financial Math: Simple Interest
    3 ##ENDDESCRIPTION
    4 
    5 ##KEYWORDS('simple', 'interest')
    6 
    7 ## DBsubject('Financial Mathematics')
    8 ## DBchapter('Introduction to Interest')
    9 ## DBsection('Simple Interest')
   10 ## Date('5/21/2005')
   11 ## Author('Jeff Holt')
   12 ## Institution('UVA')
   13 ## TitleText1('Financial Mathematics')
   14 ## EditionText1('1')
   15 ## AuthorText1('Holt')
   16 ## Section1('1.1')
   17 ## Problem1()
   18 
   19 DOCUMENT();        # This should be the first executable line in the problem.
   20 
   21 loadMacros("PG.pl",
   22            "PGbasicmacros.pl",
   23            "PGchoicemacros.pl",
   24            "PGanswermacros.pl",
   25 "PGauxiliaryFunctions.pl");
   26 
   27 TEXT(beginproblem());
   28 $showPartialCorrectAnswers = 0;
   29 
   30 $a = random(2000,4000,100);
   31 $ip = random(4,6,.1);
   32 $i = .01*$ip;
   33 $n = random(5,25,1);
   34 $m = random(5,25,1);
   35 $t = 122 + (31 - $n) + $m;
   36 
   37 # Present the text.
   38 TEXT(EV2(<<EOT));
   39 Bill borrows $a dollars from Cosa Nostra Loans, who charge $ip
   40 percent simple annual interest.  If he borrows the money on March $n,
   41 how much does he owe on August $m of the same year?
   42 
   43 $BR
   44 Answer = \{ &ans_rule(10) \} dollars.
   45 $BR
   46 
   47 EOT
   48 
   49 $ans = $a*(1+($t/365)*$i);
   50 ANS(num_cmp($ans) );
   51 
   52 
   53 ENDDOCUMENT();        # This should be the last executable line in the problem.