version 1.1, 2004/02/17 23:03:34
|
version 1.2, 2004/02/18 21:50:00
|
Line 1521 sub create_mcq {
|
Line 1521 sub create_mcq {
|
$tol = 5; |
$tol = 5; |
$numans = $$answerref[0]; |
$numans = $$answerref[0]; |
} else { |
} else { |
my $min = 0; |
my $min = $$answerref[0]; |
my $max = 0; |
my $max = $$answerref[0]; |
for (my $i=0; $i<@{$answerref}; $i++) { |
for (my $i=1; $i<@{$answerref}; $i++) { |
if ($$answerref[$i]<$min) { |
if ($$answerref[$i]<=$min) { |
$min = $$answerref[$i]; |
$min = $$answerref[$i]; |
} elsif ($$answerref[$i] > $max) { |
} elsif ($$answerref[$i] >= $max) { |
$max = $$answerref[$i]; |
$max = $$answerref[$i]; |
} |
} |
} |
} |