WeBWorK_ProgrammingExercises/CodingProblem4a.pg at master · esullivanmath/WeBWorK_ProgrammingExercises · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
##DESCRIPTION
##  This problem is meant to have students write brief pieces of code to solve problems that have a specific numerical answer.
##ENDDESCRIPTION

##KEYWORDS('programming', 'code')

## DBsubject('Programming')
## DBchapter('')
## DBsection('')
## Date('6/7/2016')
## Author('')
## Institution('')
## TitleText1('')
## EditionText1('')
## AuthorText1('')
## Section1('')
## Problem1('')

########################################################################

DOCUMENT();
loadMacros(
"PG.pl",
"PGauxiliaryFunctions.pl",
"PGbasicmacros.pl",
"PGchoicemacros.pl",
"MathObjects.pl",
"problemRandomize.pl",
"PGanswermacros.pl",
"PGgraphmacros.pl",
"PGnumericalmacros.pl",
"PGstatisticsmacros.pl",
"answerHints.pl"
);

TEXT(beginproblem());
$showPartialCorrectAnswers = 1;
# How many attempts before a hint?
$showHint = 5;

#Allow the student to generate a new (re-randomized) problem
#AFTER they have submitted a correct answer.
ProblemRandomize(onlyAfterDue=>0);
##############################################################


$f1 = random(1,4);
$f2 = random(4,9);
$a0 = $f1;
$a1 = $f2;

for ( $j = 1; $j < 35; $j++) {
    $f1temp = $f2;
    $f2 = $f1 + $f2;
    $f1 = $f1temp;
}


##############################################################
#
#  Text
#
#

Context()->texStrings;
BEGIN_TEXT
Each new term in the Fibonacci sequence is generated by adding the previous two terms.  By starting the sequence with \(a_0 = 1\) and \(a_1 = 1\) the first 10 terms will be $BR \(1,1,2,3,5,8,13,21,34,55, ...\)
$BR
Suppose we start a Fibonacci sequence with \(a_0 = $a0 \) and \(a_1 = $a1\).  What would be the value of \(a_{35}\)?

$BR
\(a_{35} = \) \{ans_rule(15)\}
$PAR


END_TEXT

ANS(num_cmp($f2,,tol=>.5));

##############################################################
#
#  Answers
#
#


ENDDOCUMENT();