# H1 : alleen delen van machten

n=$counter
XSIZE=600
wims_print_precision=8
wims_compare_precision=16
rounding=-1
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
mathview=0
questiontype=7
inputs=1
image=0
math=0
checkfile=exos/checkfile1.proc
javascript=js/exo1.js
!if $options<3
    options=4
!endif
!if $level=0
    R=$counter
!else
    R=$level
!endif
exotext=$empty
eenheid=meter
!for p=1 to $options
    p1=!randint 1,$[$R*10]
    p2=!randint 1,$[$R*10]
    pm=!randitem 1,-1
    mp=!randitem 1,-2
    p1=$[$pm*$p1]
    p2=$[$mp*$p2]
    
    getal2=!randint 1,9
    getal2=$getal2 .
    !for s=2 to $[$R+1]
	a=!randint 0,9
	b=!randint 0,9
	getal2=!append word $a to $getal2
    !next s
    getal2=!nospace $getal2
    ant1=!randint 1,$[10*$R]
    getal1=$[$getal2*$ant1]
    t=$[floor(log($getal1)/(log(10)))]
    getal1=$[$getal1/(10^$t)]
    p2=$[$p2+$t]
    pow=$[$p1-$p2]
    !if $pow=0 or $pow=1
	!if $pow=0
	    ant=$[$ant1/(10^$t)]
	!else
	    ant=$[10*$ant1/(10^$t)]
	!endif    
    !else
	ant=$[$ant1/(10^$t)]*10^$pow
    !endif
    answer$n=!append item $ant to $(answer$n) 
    !if $wims_user=supervisor
	input=<input size="15" name="$p" align="center" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000" value="$ant">
    !else
	input=<input size="15" name="$p" align="center" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000" value="">
    !endif
    ans1=!htmlmath $getal1*10^$p1
    ans2=!htmlmath $getal2*10^$p2
    antok=!htmlmath $ant
    ans=<td halign="left"><table><td valign=bottom>$ans1 $eenheid</td><tr><td><hr></td><tr><td valign=top>$ans2 $eenheid</td></table></td><td><font size=+1><b>=</b></font></td><td>$input</td><tr>
    ansok=<td halign="left"><table><td valign=bottom>$ans1 $eenheid</td><tr><td><hr></td><tr><td valign=top>$ans2 $eenheid</td></table></td><td><font size=+1><b>=</b></font></td><td>$antok</td><tr>
    exotext=!append line $ $ans $ to $exotext
    answertext=!append line $ $ansok $ to $answertext
!next p
textanswer$n=<table $paperbg border="1" cellpadding="4"><th><table cellpadding="4"> $answertext </table></th></table>
inputtabel=<table $paperbg border="1">$inputtabel</table>
exotext=<center><form name="myform1" action=""><table border="1" cellpadding="5" $paperbg><th><table cellpadding="8"> $exotext </table></th></table></form></center>
ss=!record 5 of lang/remarks.$taal
!if exam notin $session
    question$n=<a onmouseover="return escape('<img src=$module_dir/gifs/exo8.jpg alt=hmm>')"> $ss </a>
!else
    question$n=$ss 
!endif
!exit


