[npl] / trunk / NationalProblemLibrary / UVA-FinancialMath / setFinancialMath-Sect11-SimpleInt / math114-11-08.pg Repository: Repository Listing bbplugincoursesdistsnplrochestersystemwww

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

Wed Oct 12 19:45:41 2005 UTC (7 years, 7 months ago) by gage
File size: 1265 byte(s)
```This commit was generated by cvs2svn to compensate for changes in r5, which
included commits to RCS files with non-trunk default branches.```

```    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
22            "PGbasicmacros.pl",
23            "PGchoicemacros.pl",
25 "PGauxiliaryFunctions.pl");
26
27 TEXT(beginproblem());
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.
```