#maak enkel steelblad diagram
n=$counter
XSIZE=600
# geeft een <tr> aan tabel...
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty
mathview=0
questiontype=7
inputs=1
image=0
cols=30
rows=1
math=0
!if $level=0
    R=$counter
!else
    R=$level
!endif
R=1
sometext=!record 33 of lang/remarks.$taal
!if $R=1
    XSIZE=600
    # enkel steelblad diagram,
    checkfile=exos/checkfile4a.proc
    javascript=js/exo4a.js
    options=!randitem 16,20,24,28
    m1=!randitem 10,20,30,40,50
    m2=!randitem 10,20,30,40
    m2=$[$m1+$m2]
    basis=10
    break=$[$round($options/4)]
    k=0
    vraagtabel1=<table cellpadding="10" border="1" $paperbg>
    !for p=1 to $options
	g=!randint $m1,$m2
	getallen1=!append item $g to $getallen1
	vraagtabel1=!append line <th>$g</th> to $vraagtabel1
	!increase k
	!if $k=$break
	    k=0
	    vraagtabel1=!append line <tr> to $vraagtabel1
	!endif
    !next p
    vraagtabel1=!append line </table> to $vraagtabel1
    getallen1=!sort numeric item $getallen1
    antwoordtabel1=<table cellpadding="5"><td>
    check=-1
    sorteertabel1=<table cellpadding="10" border="1" $paperbg>
    !for p=1 to $options
	g=!item $p of $getallen1
	d=$[$g%$basis]
	b=$[floor($g/$basis)]
	!if $b>$check
	    check=$b
	    antwoordtabel1=!append line </td><tr><td style="font-size:18px;background-color:orange;border:1px solid #ff0000">$b</td><td style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000">$d to $antwoordtabel1
	!else
	    antwoordtabel1=!append line $d to $antwoordtabel1
	!endif
	sorteertabel1=!append line <th>$g</th> to $sorteertabel1
	!increase k
	!if $k=$break
	    k=0
	    sorteertabel1=!append line <tr> to $sorteertabel1
	!endif
    !next p
    sorteertabel1=!append line </table> to $sorteertabel1
    antwoordtabel1=!append line </table> to $antwoordtabel1
    inputtabel1=<table cellpadding="1">
    !for p=1 to 7
	inputtabel1=!append line <td><input size="2" name="i$p" id="i$p" style="font-size:18px;background-color:orange;border:1px solid #ff0000"></td><td><input size="30" name="a$p" id=a$p" style="font-size:18px;background-color:#e8ffff;border:1px solid #ff0000"></td><tr> to $inputtabel1
    !next p
    inputtabel=!append line </table> to $inputtabel1
    ss=!record 41 of lang/remarks.$taal
    #@Maak van de onderstaande tabel met getallen een <em>steelblad diagram</em><br><em><small>Gebruik bijvoorbeeld spaties op de "bladeren" te scheiden</small>
    question$n=$ss
    exotext=<table><td valign="top">$vraagtabel1</td><td valign="top"><form name="myform1">$inputtabel1</form></td></table>
    textanswer$n=<table cellpadding="5" $paperbg ><th valign="top">$sorteertabel1</th><th valign="top">$antwoordtabel1</th></table>
    helptext=<a onmouseover="return escape('<img src=$module_dir/gifs/help/exo4a.jpg>')"> $sometext </a>
    answer$n=$getallen1
 !exit
!endif

