!set n=$teller
bewerking=bewerking3.proc
science=1
!if $graad=0
    R=$teller
!else
    R=$graad
!endif        

!if $R=1
    S=2,3,4,5,6,7,8,9
    S=!shuffle $S
    exp=2,3,4,5,6,7,9,10
    exp=!shuffle $exp
    !for p=1 to $aantal_vragen
	grondgetal=10
	exp1=!item $p of $exp
	s=!item $p of $S
	!if $negatief=0
	    GOED=$s*$grondgetal^$exp1
	    G=!htmlmath $GOED
	    som=$s
	    !for r=1 to $exp1
		som=!append word 0 to $som
	    !next
	!else
	    ee=$[-1*$exp1 -1]
	    GOED=$s*$grondgetal^$ee
	    G=!htmlmath $GOED
	    som=0.
	    !for r=1 to $exp1
		som=!append word 0 to $som
	    !next
	    som=$som $s
	!endif    
	som=!nospace $som
	nummer=!item $p of $telwoorden
	sommen=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="10" rows="1" name="ant$p"></textarea></td><tr> to $sommen
	SOMMEN=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="10" rows="1" name="ant$p">$GOED</textarea></td><tr> to $SOMMEN
	antwoorden=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font>$G</td><tr> to $antwoorden
	GOED$n=!append item $GOED  to $(GOED$n)
    !next
!endif
!if $R>1
    !for p=1 to $aantal_vragen
	grondgetal=10
	exp1=!randitem 3,4,5,6,7,9,10,11,12
	s1=!randitem 1,2,3,4,5,6,7,8,9
	s2=!randitem 1,2,3,4,5,6,7,8,9
	s3=!randitem 1,1,2,3,4,5,6,7,8,9
	s4=!randitem 1,2,3,4,5,6,7,8,9
	s5=!randitem 1,1,2,3,4,5,6,7,8,9
	s6=!randitem 1,1,2,3,4,5,6,7,8,9
	s7=!randitem 1,1,2,3,4,5,6,7,8,9
	!if $R=2
	    s=!nospace $s1.$s2 $s3
	    getal=$s1 $s2 $s3
	    q=2
	    #q isdecimalen achter de "komma"
	!endif
	!if $R=3
	    s=!nospace $s1.$s2 $s3 $s4
	    getal=$s1 $s2 $s3 $s4
	    q=3
	!endif
	!if $R=4
	    s=!nospace $s1.$s2 $s3 $s4 $s5
	    getal=$s1 $s2 $s3 $s4 $s5
	    q=4
	!endif
	!if $R=5
	    s=!nospace $s1.$s2 $s3 $s4 $s5 $s6
	    getal=$s1 $s2 $s3 $s4 $s5 $s6
	    q=5
	!endif
	!if $R>5
	    s=!nospace $s1.$s2 $s3 $s4 $s5 $s6 $s7
	    getal=$s1 $s2 $s3 $s4 $s5 $s6 $s7
	    q=6
	!endif

	!if $negatief=0
	    GOED=$s*$grondgetal^$exp1
	    G=!htmlmath $GOED
	    som=$getal
	    !for r=1 to $[$exp1-$q]
		som=!append word 0 to $som
	    !next		
	!else
	    exp=$[-1*$exp1]
	    s=$[1*$s]
	    GOED=$s*$grondgetal^$exp
	    som=0.
	    !for r=1 to $[$exp1-1]
		som=!append word 0 to $som
	    !next	
	    som=$som $getal
	!endif
	som=!nospace $som
	nummer=!item $p of $telwoorden
	sommen=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="20" rows="1" name="ant$p"></textarea></td><tr> to $sommen
	SOMMEN=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font><textarea cols="20" rows="1" name="ant$p">$GOED</textarea></td><tr> to $SOMMEN
	antwoorden=!append line <td><font size=+1>$som&nbsp;<font size=+2>=&nbsp;</font>$G</td><tr> to $antwoorden
	GOED$n=!append item $GOED  to $(GOED$n)
    !next
!endif


!if $taal=nl
    hint=Kijk in de Help-pagina
    nivo_title=Schrijf in de wetenschappelijke notatie
    Nummer=!item $n of $rangwoorden
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer opgave<br>Schrijf in de wetenschappelijke notatie.<br>\
	<font size="-1">kijk in de <em>help-pagina</em> voor de schrijfwijze</font></td><tr>$SOMMEN</table>
    !else
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer opgave<br>Schrijf in de wetenschappelijke notatie.<br>\
	<font size="-1">kijk in de <em>help-pagina</em> voor de schrijfwijze</font></td><tr>$sommen</table>
    !endif
    antwoord$n=<table cellpadding='10' cellspacing='5'><td>$Nummer opgave<br>Schrijf in de wetenschappelijke notatie.</td><tr>$antwoorden</table>
!else
    hint=Look into the help-pages
    nivo_title=Rewrite the powers in scientific syntax
    Nummer=!item $n of $rangwoorden
    !if $wims_user=supervisor and $printbaar=0
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer exercise<br>Rewrite in scientific syntax.<br>\
	<font size="-1">look into the <em>help-page</em> for syntax related topics</font></td><tr>$SOMMEN</table>
    !else
	opgave$n=<table cellpadding='10' cellspacing='5'><td>$Nummer exercise<br>Rewrite in scientific notation.<br>\
	<font size="-1">look into the <em>help-page</em> for notation related topics</font></td><tr>$sommen</table>
    !endif
    antwoord$n=<table cellpadding='10' cellspacing='5'><td>$Nummer exercise<br>Rewrite in scientific notation.</td><tr>$antwoorden</table>
!endif
