n=$counter
XSIZE=600
# geeft een <tr> aan tabel...
helptext=$empty
exotext=$empty
textanswer$n=$empty
formula$n=$empty

mathview=0
questiontype=0
image=0
cols=30
rows=1
math=0
checkfile=exos/checkfile1.proc
!if $level=0
    R=$counter
!else
    R=$level
!endif
keuze=!randitem 1,2
num=!randint 1,25

!if $R=1
    aantal=!randint 2,10
    tot=!randint 2,6
    answer$n=$[$aantal*$tot]
    !if $keuze=1
	kind=!record 78 of $remarkdir/commonremarks.$taal
	# boy
    !else
	kind=!record 79 of $remarkdir/commonremarks.$taal
	# girl
    !endif
    dingen=!record 1 of lang/remarks.$taal
    #@ cat@kat@katten,dog@hond@honden,rabbit@konijn@konijnen
    dingen=!randitem $dingen
    dingen=!replace internal @ by , in $dingen
    dir=!item 1 of $dingen
    dier=!item 2 of $dingen
    dieren=!item 3 of $dingen
    winkel=!record 2 of lang/remarks.$taal
    #@ het asiel,een dierenasiel,een winkel,de dierenwinkel
    winkel=!randitem $winkel
    kind=!randitem $kind
    num=!randint 1,25
    plaatje=<img src=$module_dir/gifs/$dir/$num.gif>
    totaal=<table cellpadding=1>
    !for p=1 to $tot
	totaal=!append line <td>$plaatje</td> to $totaal
    !next p
    totaal=$totaal</table>
    ss=!record 3 of lang/remarks.$taal
    #@ $kind haalt een $dier uit $winkel<br>Hieronder zie je via een <em>Beelddiagram</em><br>hoeveel $dieren er in $winkel zijn.<br>Elk plaatje komt overeen met <em>$aantal $dieren</em>.<br>$totaal<br>Uit <em>hoeveel</em> $dieren kan $kind kiezen ??    
    question$n=$ss 
    rr=!record 4 of lang/remarks.$taal
    #@ Elk plaatje stelt in werkelijkheid $aantal $dieren voor.<br>We hebben in't totaal $tot plaatjes.<br>Het goede antwoord is dus $aantal &times; $tot = $(answer$n)
    textanswer$n=$rr
 !exit
!endif

!if $R=2
    !if $keuze=1
	# altijd half plaatje
	aantal=!randint 25,250
	aantal=$[$aantal*4]
	tot=!randint 2,7
	answer$n=$[$aantal*($tot + 0.5)]
	dingen=!record 5 of lang/remarks.$taal
	#@cow@koe@koeien,horse@paard@paarden
	dingen=!randitem $dingen
	dingen=!replace internal @ by , in $dingen
	dir=!item 1 of $dingen
	dier=!item 2 of $dingen
	dieren=!item 3 of $dingen
	gemeente=!record 81 of $remarkdir/commonremarks.$taal
	gemeente=!randitem $gemeente
	plaatje=<img src=$module_dir/gifs/$dir/$num.gif>
	half=<img src=$module_dir/gifs/$dir/h.$num.gif>
	totaal=<table cellpadding="1" >
	!for p=1 to $tot
	    totaal=!append line <td>$plaatje</td> to $totaal
	!next p
	tot=$[$tot+0.5]
	totaal=$totaal<td>$half</td></table>
	ss=!record 6 of lang/remarks.$taal
	#@<a onmouseover="return escape('<table><td>$plaatje</td><td valign=center><font size=+2>=</font>$aantal $dieren</td></table> ');">In het onderstaande beelddiagram is het aantal $dieren <br>in de gemeente $gemeente weer gegeven<br>&eacute;&eacute;n plaatje van een $dier is in werkelijkheid $aantal $dieren<br> $totaal<br>Hoeveel $dieren zijn in de gemeente $gemeente aanwezig??</a>
	rr=!record 4 of lang/remarks.$taal
	#@ Elk plaatje stelt in werkelijkheid $aantal $dieren voor.<br>We hebben in't totaal $tot plaatjes.<br>Het goede antwoord is dus $aantal &times; $tot = $(answer$n)
    !else
	aantal=!randint 10,100
	aantal=$[$aantal*2]
	tot=!randint 2,7
	answer$n=$[$aantal*$[$tot+0.5]]
	dingen=!record 7 of lang/remarks.$taal
	#@car@auto@autos,motorcycle@Motor@Motoren
	dingen=!randitem $dingen
	dingen=!replace internal @ by , in $dingen
	dir=!item 1 of $dingen
	auto=!item 2 of $dingen
	autos=!item 3 of $dingen
	plaatje=<img src=$module_dir/gifs/$dir/$num.gif>
	half=<img src=$module_dir/gifs/$dir/h.$num.gif>
	totaal=<table cellpadding="2" >
	!for p=1 to $tot
	    totaal=!append line <td>$plaatje</td> to $totaal
	!next p
	tot=$[$tot+0.5]
	totaal=$totaal<td>$half</td></table>
	ss=!record 8 of lang/remarks.$taal
	#@<a onmouseover="return escape('<table><td>$plaatje</td><td valign=center><font size=+2>=</font>$aantal $autos</td></table> ');">Hieronder zie je het aantal $autos waarvoor<br> in de afgelopen maand een kenteken is afgegeven.<br> &eacute;&eacute;n plaatje staat voor $aantal $autos.<br>$totaal<br>Hoeveel $autos zijn dat er in't totaal?</a>  
	rr=!record 9 of lang/remarks.$taal
	#@ Elk plaatje stelt in werkelijkheid $aantal $dieren voor.<br>We hebben in't totaal $tot plaatjes.<br>Het goede antwoord is dus $aantal &times; $tot = $(answer$n)
	textanswer$n=$rr
    !endif
    question$n=$ss
    textanswer$n=$rr
  !exit
!endif

!if $R>2
    #@cat@kat@katten,dog@hond@honden,rabbit@konijn@konijnen,bird@vogel@vogels,horse@paard@paarden 
    dingen=!record 10 of lang/remarks.$taal
    dingen=!shuffle $dingen
    t=!itemcnt $dingen
    num=!randint 1,25
    sum=0
    totaal=<table>
    aantal=!randint 20,200
    aantal=$[$aantal*2]
    max=0
    min=1000
    stemmen=!shuffle 1,2,3,4,5,6,7
    !for p=1 to $t
	keuze=!randitem 1,0
	ding=!item $p of $dingen
	ding=!replace internal @ by , in $ding
	dir=!item 1 of $ding
	animal=!item 2 of $ding
	animals=!item 3 of $ding
	plaatje=<img src=$module_dir/gifs/$dir/$num.gif>
	tot=!item $p of $stemmen
	totaal=$totaal<td><em>$animals</em></td>
	!for s=1 to $tot
	    totaal=!append line <td align=center>$plaatje</td> to $totaal
	!next s
	!if $keuze=0
	    half=<img src=$module_dir/gifs/$dir/h.$num.gif>
	    totaal=!append line <td align=center>$half</td> to $totaal
	    tot=$[$tot+0.5]
	!endif
	totaal=$totaal<tr>
	!if $tot>$max
	    max=$tot
	    winnaar=$animals
	!endif
	!if $tot<$min
	    min=$tot
	    verliezer=$animals
	!endif
	tot$p=$tot
	sum=$[$sum+$tot]
    !next p
    answer$n=$[$aantal*$sum]
    totaal=$totaal</table>
    ss=!record 11 of lang/remarks.$taal
    #@ <a onmouseover="return escape('<table><td>$plaatje</td><td valign=center><font size=+2>=</font>$aantal stemmen</td></table> ');">Een populair jongerenblad organiseert een enquete over <br><em>Het favoriete Huisdier</em> van de lezers .<br>Hieronder zie je een <em>beelddiagram</em> van de resultaten van de enquete. $totaal Zoals je ziet zijn de $winnaar het populairst en de $verliezer kreeg de minste stemmen.<br>Elk plaatje geeft $aantal stemmen op het "huisdier" weer.<br>Hoeveel mensen hebben meegedaan aan deze enquete ??</a>
    question$n=$ss
    rr=!record 12 of lang/remarks.$taal
    #@Er zijn in't totaal $sum plaatjes in het beelddiagram.<br>Elk plaatje representeerd $aantal stemmen.<br>Totaal aantal stemmen en dus het aantal deelnemers aan de enquete: $sum &times; $aantal = $(answer$n)
    textanswer$n=$rr
 !exit
!endif
