comparacion_decimales.pg

#  DESCRIPTION
#
#  Tipo: falso/cierto
#  Compara dos decimales 
#
#  Problema WebWork escrito por Edwin Florez, 
#  <edwin.florez (at) upr (dot) edu>
#
#  Adaptado desde el sistema quiz.uprm.edu del archivo
#  pedro_prebasica/decimales/comparacion_decimales.db
#
#  ENDDESCRIPTION

## DBsubject(Prebasica)
## DBchapter(Decimales)
## DBsection(Comparacion)
## Level(1)
## KEYWORDS('decimales','comparar')
## Author(Edwin Florez)
## Institution(UPRM)
## Language(es)

DOCUMENT();

loadMacros(
"PGstandard.pl",
"MathObjects.pl",
"AnswerFormatHelp.pl",
"PGchoicemacros.pl"
);

$showPartialCorrectAnswers = 0;

Context("Numeric");
$n = random(1,4,1);
@powers = (10,100,1000,10000);
$tenPower = random(0,3);
$a = random(1,100)/$powers[$tenPower];
$b = random(1,10)/($powers[$tenPower]*10) + $a/10;

@arrayRelacion = ("mayor", "menor");
$index = random(0,1,1);

if ($index == 0){
 if ($a > $b){
    $answer = "C";
    $answer2 = "derecha";
  }else{
   $answer = "F";
   $answer2 = "izquierda";
  }
}else{
 if ($a < $b){
    $answer = "C";
    $answer2 = "izquierda";
  }else{
   $answer = "F";
   $answer2 = "derecha"; 
  }
}

## Set up a true-false list by creating a new select list object.
## $tf_list_ptr points to a new select list object.
$tf_list_ptr = new_select_list();

## Now assign to the true-false list object an array of
## "question", "answer" pairs from which a subset will be selected.
##
$tf_list_ptr -> qa ("El número $a es $arrayRelacion[$index] que $b.", $answer);

## Choose one of the possible question-answer pairs
$tf_list_ptr -> choose(1);

TEXT(beginproblem());

BEGIN_TEXT
Determine si la siguiente proposición es cierta o falsa. Entre $BBOLD C $EBOLD para  cierta o $BBOLD F $EBOLD para falsa.
\{ $tf_list_ptr -> print_q \}
END_TEXT

## Provide the answer string
ANS( str_cmp( $tf_list_ptr->ra_correct_ans ) ) ;

SOLUTION(EV3(<<'END_SOLUTION'));
Ya que $a se encuentra a la $answer2 de $b en la recta numérica, entonces la respuesta es $BBOLD $answer $EBOLD. 
END_SOLUTION

ENDDOCUMENT();