1: <problem>
2: <script type="loncapa/perl">#Enter script here
3: $choice = &random(1,2,1);
4: $chemString = &choose($choice,"Sodium Chloride","Potassium Chloride");
5: $chemFormula = &choose($choice,"NaCl","KCl");</script>
6: <startouttext />Enter question text here. <br />
7: What is the chemical formula for $chemString?<endouttext />
8: <stringresponse answer="$chemFormula" type="cs">
9: <textline>
10: </textline>
11: <hintgroup><startouttext />Add hint text here.<endouttext />
12: </hintgroup>
13: </stringresponse>
14: </problem>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>