## TITLE('Mitosis and Meiosis Cell Division')
## DESCRIPTION
## Select the statement that is TRUE or FALSE about mitosis and meiosis cell division.
## ENDDESCRIPTION
## KEYWORDS('mitosis and meiosis cell division','true/false','multiple choice')
## DBsubject('Genetics')
## 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 = (
[
'Each daughter cell formed by mitosis has the same kinds of chromosomes as the parent cell',
'Each daughter cell formed by meiosis has half the number of chromosomes as the parent cell',
],
[
'In mitosis, the parent cell and the daughter cells are genetically identical',
'The daughter cells produced at the end of meiosis are genetically different from the original parent cell',
'Meiosis daughter cells contain half of the genetic material which is a mix of both the maternal and paternal genes',
],
[
'Mitosis is cell division that produces two (2) daughter cells',
'Meiosis is cell division that produces four (4) daughter cells',
],
[
'In diploid organisms, the final cells resulting from meiosis cell division are haploid',
'In diploid organisms, the final cells resulting from mitosis cell division are diploid',
],
[
'Both meiosis and mitosis start with one cell',
],
[
'Mitosis produces new cells to help organisms grow in size and repair damaged tissue',
'Meiosis produces new gamete cells, such as sperm and egg',
],
[
'Mitosis goes through cytokinesis cell division once',
'Meiosis goes through cytokinesis cell division twice',
],
[
'Cross-over regularly happens in meiosis, but NOT in mitosis',
'Mitosis almost never involves crossing over of the chromosomes',
],
[
'Mitosis normally occurs in somatic cells of organisms and facilitates growth and development',
'Meiosis occurs only in specialized germline cells and facilitates sexual reproduction',
'Meiosis occurs only in specialized germline cells and produces gametes.',
],
[
'Meiosis occurs in two phases, that is, meiosis I and meiosis II',
],
[
'During the process of meiosis several processes occur that cause genetic variation among organisms',
],
[
'Meiosis I is the only stage where homologous chromosomes pair up and exchange genetic material',
],
[
'Only sexually reproductive organisms utilize meiosis',
'Meiosis is a special type of cell division that produces sex cells for reproduction',
'Both sexual and asexual organisms go through the process of mitosis',
],
);
@false_groups = (
[
'Each daughter cell formed by meiosis has the same kinds of chromosomes as the parent cell',
'Each daughter cell formed by mitosis has half the number of chromosomes as the parent cell',
],
[
'In meiosis, the parent cell and the daughter cells are genetically identical',
'The daughter cells produced at the end of mitosis are completely different from the original parent cell',
],
[
'Meiosis is cell division that produces two (2) daughter cells',
'Mitosis is cell division that produces four (4) daughter cells',
],
[
'In diploid organisms, the final cells resulting from meiosis cell division are diploid',
'In diploid organisms, the final cells resulting from mitosis cell division are haploid',
],
[
'Meiosis starts with two cells and mitosis starts with only one cell',
'Mitosis starts with two cells and meiosis starts with only one cell',
],
[
'Meiosis produces new cells to help organisms grow in size and repair damaged tissue',
'Mitosis produces new gamete cells, such as sperm and egg',
],
[
'Meiosis goes through cytokinesis cell division once',
'Mitosis goes through cytokinesis cell division twice',
],
[
'Cross-over regularly happens in mitosis, but NOT in meiosis',
'Meiosis does NOT involve crossing over of the chromosomes',
],
[
'Meiosis normally occurs in somatic cells of organisms and facilitates growth and development',
'Mitosis occurs only in specialized germline cells and facilitates sexual reproduction',
],
[
'Mitosis occurs in two phases, that is, mitosis I and mitosis II',
],
[
'During the process of mitosis several processes occur that cause genetic variation among organisms',
],
[
'Mitosis I is the only stage where homologous chromosomes pair up and exchange genetic material',
'Mitosis II is the only stage where homologous chromosomes pair up and exchange genetic material',
'Meiosis I is the only stage where sister chromatids pair up and exchange genetic material',
'Meiosis II is the only stage where sister chromatids pair up and exchange genetic material',
'Meiosis II is the only stage where homologous chromosomes pair up and exchange genetic material',
],
[
'Only sexually reproductive organisms utilize mitosis',
'Mitosis is a special type of cell division that produces sex cells for reproduction',
'Both sexual and asexual organisms go through the process of meiosis',
],
);
#==========================================================
# GLOBAL SETTINGS
#==========================================================
$topic = 'mitosis and meiosis cell division';
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();