questiontype=0
cols=25
row=2
image=0
checkfile=exos/checkfile1.proc
!if $rounding<1
    rounding=100
!endif
!readproc $remarkdir/rounding.$taal
n=$counter
R=$level
!if $level=0
    #doorlopen van makkelijk naar moeilijk
    R=$n
!endif

keuze=!randitem 1,0
# antwoord is Geen percentage maar een bedrag/getal
checkfile=$checkdir/number.proc    
!if $R=1
    A=!randint 1,100
    B=!randint 10,500
    !if $keuze=1
	answer$n=$[(round($rounding*($B - $A*$B/100)))/$rounding]
	rr=!record 1 of lang/remarks.$taal
	#@ De verkoopprijs wordt dan $B - $[$A/100] &times; $B <br>dus $(answer$n) &euro;
	ss=!record 2 of lang/remarks.$taal
	#@ Als je <b>$A %</b> korting krijgt op een artikel van <b>$B</b> &euro;<br>Wat is dan de verkoopprijs?? 
    !else
	answer$n=$[(round($rounding*($B + $A*$B/100)))/$rounding]
	rr=!record 3 of lang/remarks.$taal
	#@ De verkoopprijs wordt dan $B + $[$A/100] &times; $B <br>dus $(answer$n) &euro;
	ss=!record 4 of lang/remarks.$taal
	#@ Als je <b>$A %</b> milieu-toeslag krijgt op een artikel van <b>$B</b> &euro;<br>Wat is dan de verkoopprijs?? 
    !endif
    textanswer$n=$rr
    question$n=$ss
 !exit
!endif
    
!if $R=2
    A=!randint 5,21
    B=!randint 10,500
    !if $keuze=1
	answer$n=$[(round($rounding*($B*100)/(100-$A)))/$rounding]
	rr=!record 5 of lang/remarks.$taal
	#@ Het artikel zonder korting kost dan $B/$[(100 - $A)] &times; 100 <br> dus $(answer$n) &euro;
	ss=!record 6 of lang/remarks.$taal
	#@ Als een artikel met <b>$A %</b> discountkorting <b>$B</b> &euro; kost <br> Wat kost dan dat artikel zonder deze korting?
    !else
	answer$n=$[(round($rounding*($B*100)/(100+$A)))/$rounding]
	rr=!record 7 of lang/remarks.$taal
	#@ Het artikel exclusief BTW kost dan  $B/$[(100 + $A)] &times; 100 <br> dus $(answer$n) &euro;
	ss=!record 8 of lang/remarks.$taal
	#@ Als een artikel inclusief <b>$A %</b> B.T.W. heffing  <b>$B</b> &euro; kost <br> Wat kost dan dat artikel exclusief deze belastingheffing?
    !endif
    textanswer$n=$rr
    question$n=$ss
 !exit
!endif
    
!if $R=3
    B=!randint 500,3000
    C=!randitem 2,3,4,5,6,7,8
    !if $keuze=1
	A=!randitem 1.25,1.75,2.0,2.25,2.5,2.75,3.0,3.25,3.5,3.75,4.0,4.25,4.5,4.75
	answer$n=$[(round($rounding*$B*(((100+$A)/100)^$C)))/$rounding]
	rr=!record 9 of lang/remarks.$taal
	#@ In totaal heb je dan $B&times;((100+$A)/100)<sup>$C</sup> op je bankrekening staat<br>dus $(answer$n) &euro;
	ss=!record 10 of lang/remarks.$taal
	#@ Je hebt <b>$B</b> &euro; op je spaarrekening staan.<br>Als de rente op deze spaarrekening <b>$A</b> % per jaar bedraagt<br>hoeveel heb je dan in totaal op je rekening staan na <b>$C</b> jaar ?
    !else
	A=!randitem 9.25,10.5,11.75,12.85,13.45,14.25,15.55,16.35,17.15,18.95,19.85,20.75,21.35,22.45,23.25,24.1
	answer$n=$[(round($rounding*$B*(($A)/100)*$C))/$rounding]
	rr=!record 11 of lang/remarks.$taal
	#@ Je bent dan aan deze woekerrente $B&times;$[$A/100]&times;$C</sup> &euro; kwijt...<br>Dus $(answer$n) &euro; !!!
	ss=!record 12 of lang/remarks.$taal
	#@ Je bent een persoonlijke-lening van <b>$B</b> &euro; aangegaan bij een kredietbank (noooooit doen, hoor!)<br>Als de rente op deze lening <b>$A %</b> per jaar bedraagt<br>Hoeveel &euro; ben je dan -zonder aflossen- kwijt aan deze rente in <b>$C</b> jaar ?
    !endif
    textanswer$n=$rr
    question$n=$ss
 !exit
!endif
    
!if $R>3
    A=!randint 1,2,3,4,5,6,7,8
    C=!randitem 2,3,4,5,6,7,8
    B=!randint 10,500
    prijs=$[(round($rounding*$B*(((100-$A)/100)^$C)))/$rounding]
    !if $keuze=1
	answer$n=$prijs
	ss=!record 13 of lang/remarks.$taal
	#@ Als een artikel van <b>$B</b> &euro; in de <em><font color=$fontcolor3>knettergekke</font> verkoopweken</em> elke week <b>$A %</b> goedkoper wordt <br>wat wordt dan de prijs na <b>$C</b> weken?
	rr=!record 14 of lang/remarks.$taal
	#@ De prijs na $C weken kun je uitrekenen via $B*$[((100-$A)/100)]<sup>$C</sup> <br> en dat is dan ongeveer $prijs &euro;
    !else
	answer$n=$C
	ss=!record 15 of lang/remarks.$taal
	#@ Als een artikel van <b>$B</b> &euro; in de <em><font color=$fontcolor3>knettergekke</font> verkoopweken</em> elke week <b>$A %</b> goedkoper wordt <br>na hoeveel weken is de prijs dan <b>$prijs</b> ? <br>bereken met behulp van <em>inklemmen</em>
	rr=!record 16 of lang/remarks.$taal
	#@ Na inklemmen blijkt dat na $C weken de prijs $prijs &euro; is ...
    !endif	
    textanswer$n=$rr
    question$n=$ss
 !exit
!endif

