DOCUMENT();

loadMacros('PGstandard.pl', 'PGML.pl', 'PGcourse.pl');

$ans1 = Real(0)->cmp(checker => sub {return 1;} );
$ans2 = Real(0)->cmp(checker => sub {return 1;} );
$ans3 = Real(0)->cmp(checker => sub {return 1;} );

$ans4= Real(0)->cmp(checker=>sub{
  my ($correct, $student, $ansHash) = @_;
  my $h2o_cyl=$ans2->rh_ans->{student_value};
  my $h2o_bar_cyl=$ans3->rh_ans->{student_value};
  my $bar_vol=$h2o_bar_cyl-$h2o_cyl;
  return defined $bar_vol && $bar_vol == $student ? 1 : 0;
    }
);

$ans5= Real(0)->cmp(checker=>sub{
  my ($correct, $student, $ansHash) = @_;
  my $mass=$ans1->rh_ans->{student_value};
  my $vol=$ans4->rh_ans->{student_value};
  my $den=$mass/$vol;
  return $den == $student ? 1 : 0;
    }
);  
  

BEGIN_PGML
*_Determining the Density of a Solid Metal Bar_*

A. Mass of your metal bar: [_]{$ans1} g. 

B. Initial volume of water in the graduated cylinder: [_]{$ans2} mL.

C. Volume of volume of water and metal bar in the graduated cylinder: [_]{$ans3} mL.

D. Calculate the volume of your metal bar: [_]{$ans4} mL.

E. Calculate the density of your metal bar: [______]{$ans5} g/mL.

END_PGML

ENDDOCUMENT();