## TITLE('Functions of Membrane proteins')
## DESCRIPTION
## Select the statement that is TRUE or FALSE about functions of membrane proteins.
## ENDDESCRIPTION
## KEYWORDS('functions of membrane proteins','true/false','multiple choice')
## DBsubject('Cell Biology')
## DBchapter('')
## DBsection('')
## Date('2026-07-12')
## Author('Neil R. Voss')
## Institution('Roosevelt University')
DOCUMENT();
loadMacros(
"PGstandard.pl",
"PGML.pl",
"PGchoicemacros.pl",
"parserRadioButtons.pl",
"PGcourse.pl",
);
TEXT(beginproblem());
$showPartialCorrectAnswers = 1;
#==========================================================
# AUTO-GENERATED GROUPS FROM YAML
#==========================================================
@true_groups = (
[
'They facilitate transport of molecules across the membrane',
'They allow passage of hydrophilic substances across the membrane',
'They provide a hydrophilic channel for certain molecules or ions to use as a tunnel',
'Some membrane proteins serve as channels, pumps, or receptors',
],
[
'They recognize and bind to other cells or substances',
'Carbohydrates covantly attached to membrane proteins allow cells to recognize eachother',
],
[
'They tightly attach the cytoskeleton to the extracellular matrix (ECM)',
'Some membrane proteins anchor the cytoskeleton to the plasma membrane',
'Some membrane proteins anchor the extracellular matrix (ECM) to the plasma membrane',
],
[
'They provide enzymatic activity for certain chemical reactions',
'Some membrane proteins are enzymes that catalyze specific reactions',
],
[
'They receive cell signals and transduce them across the membrane',
'Some membrane proteins binds to signaling molecules such as hormones or neurotransmitters',
],
[
'They create intercellular junctions between adjacent cells',
'Some membrane proteins are repsonsible for attaching cells together',
],
);
@false_groups = (
[
'They prevent the passage of hydrophobic substances across the membrane',
'They block the passage of hydrophobic molecules from crossing the membrane',
],
[
'They are responsible for separating the interior of the cell from its external environment',
],
);
#==========================================================
# GLOBAL SETTINGS
#==========================================================
$topic = 'functions of membrane proteins';
my $local_random = PGrandom->new();
$local_random->srand($problemSeed);
my @mode_choices = ("TRUE", "FALSE");
$mode = $mode_choices[$local_random->random(0, $#mode_choices, 1)];
$num_distractors = 4;
#==========================================================
# SELECT GROUP
#==========================================================
my (@selected_group, @opposite_groups);
if ($mode eq "TRUE") {
$group_index = $local_random->random(0, scalar(@true_groups)-1, 1);
@selected_group = @{ $true_groups[$group_index] };
@opposite_groups = @false_groups;
} else {
$group_index = $local_random->random(0, scalar(@false_groups)-1, 1);
@selected_group = @{ $false_groups[$group_index] };
@opposite_groups = @true_groups;
}
#==========================================================
# PICK CORRECT + DISTRACTORS
#==========================================================
my $correct_index = $local_random->random(0, $#selected_group, 1);
$correct = $selected_group[$correct_index];
my @available_group_indices = (0 .. $#opposite_groups);
my @selected_distractor_indices = ();
while (@selected_distractor_indices < $num_distractors && @available_group_indices > 0) {
my $random_index = $local_random->random(0, scalar(@available_group_indices)-1, 1);
push @selected_distractor_indices, splice(@available_group_indices, $random_index, 1);
}
@distractors = ();
foreach my $group_idx (@selected_distractor_indices) {
my @group = @{ $opposite_groups[$group_idx] };
my $distractor_index = $local_random->random(0, $#group, 1);
my $distractor = $group[$distractor_index];
push @distractors, $distractor;
}
@choices = ($correct, @distractors);
#==========================================================
# SHUFFLE CHOICES (SEED-STABLE)
#==========================================================
my @choice_indices = (0 .. $#choices);
my @choice_shuffled = ();
while (@choice_indices) {
my $pick = $local_random->random(0, $#choice_indices, 1);
push @choice_shuffled, splice(@choice_indices, $pick, 1);
}
@choices = @choices[@choice_shuffled];
#==========================================================
# RADIO BUTTONS WITH A/B/C/D/E LABELS
#==========================================================
$rb = RadioButtons(
[@choices],
$correct,
labels => ['A','B','C','D','E'],
displayLabels => 1,
randomize => 0,
separator => '',
);
#==========================================================
# PGML
#==========================================================
BEGIN_PGML
[@ $mode eq "TRUE" ? "Which one of the following statements is TRUE about $topic?" : "Which one of the following statements is FALSE about $topic?" @]*
[_]{$rb}
END_PGML
ENDDOCUMENT();