nivo_title=Wat geeft deze analoge klok straks aan?
bewerking=bewerking3.proc
!set n=$teller
woordmax=30
!if $graad=0
    R=$teller
!else
    R=$graad
!endif        
!if $HINT=1
hint=<table bgcolor=$fontcolor1 width="100%"><th><div align="left">\
je moet eigenlijk niet eens naar de klok kijken en proberen vooruit of achteruit te tellen<br>\
maar gewoon rekenen;<ul>\
<li>je telt de uren bij elkaar op of trekt ze van elkaar af\
<li>deelt vervolgens de uitkomst door 12\
<li>de rest van deze deling is dus het goede antwoord\
<li>in de wiskunde heet die bewerking "modulo"<br>\
Misschien zit er op je rekenmachine ook wel een "modulo" functie<br>\
<li>een klein voorbeeldje:<br>\
Stel het is 5 uur<br>\
37 uur later is het dus:<br>\
5 + 37 = 42  <br>hoevaak zit 12 in 42?<br>\
42/12= 3 (3 &times 12 =36 de rest is 42-36=6)<br>\
dus 6 uur\
<li>natuurlijk kom je er anders ook wel:<br>\
het is 5 uur<br>\
12 uur later is het weer 5 uur<br>\
12 uur later is het weer 5 uur<br>\
12 uur later is het weer 5 uur<br>\
1 uur later is het 6 uur</ul>\
</th></table>
!endif

!if $R=1 
    eerste=4	
    laatste=!randint 8,16
!endif	
!if $R=2
    eerste=12
    laatste=!randint 20,36
!endif	
!if $R>2
    eerste=24
    laatste=!randint 36,72
!endif	



!if $R=1 or $R=2
    !if $R=1 
	uren=!randint 1,12
    !else
	uren=!randint 1,24
    !endif	
    minuten=!randint 2,8
    seconden=!randint 0,60
    later=!randint $eerste,$laatste
    tijd=$[$uren+$later]
    GOED$n=!exec pari Mod($tijd,12)
    GOED$n=!replace internal Mod( by  in $(GOED$n)
    GOED$n=!replace internal ) by  in $(GOED$n)
    GOED$n=!item 1 of $(GOED$n)
    spreektijd=!item $uren of $telwoorden
    somtekst$n=Volgens deze klok is het nu zo ongeveer $spreektijd uur.<br>Bereken waar de kleine wijzer staat over $later uur?<br>\
    <small>dus gevraagd wordt naar welk gehele uur de kleine wijzer dan wijst</small>
    !if $tijd >= 12
	keer_12=!exec pari abs(floor($tijd/12))
	extratekst= Dus in $tijd uur zit $keer_12 keer 12 uur,\
	en wat rest is dus $tijd - $[$keer_12*12] = $[$tijd - $keer_12*12]<br>
    !else
	extratekst= 
    !endif
    antwoord$n=Op de klok was het $uren uur en $minuten min<br>\
    Dus zal de kleine wijzer (die geeft dus de uren aan) na <br>\
    $later uur later op $uren + $later = $tijd staan.<br>\
    $extratekst ...het dan dus $(GOED$n) uur. 
!endif    

!if $R>2
    !if $R=3
	uren=!randint 1,12
    !else
	uren=!randint 1,24
    !endif
    minuten=!randint 2,8
    seconden=!randint 0,60
    later=!randint $eerste,$laatste
    tijd=$[$uren-$later]
    GOED$n=!exec pari Mod($tijd,12)
    GOED$n=!replace internal Mod( by  in $(GOED$n)
    GOED$n=!replace internal ) by  in $(GOED$n)
    GOED$n=!item 1 of $(GOED$n)
    spreektijd=!item $uren of $telwoorden    
    somtekst$n=Volgens de klok hiernaast is het net $spreektijd uur geweest.<br>En waar denk je stond de kleine wijzer $later uur geleden?<br>\
    <small>dus naar welk gehele uur wijst dan de kleine wijzer</small>
    !if $tijd > -12
	antwoord$n=Het was $uren uur, $later uur eerder was het $uren - $later = $tijd<br>\
	dit betekend op een klok dus 12 +  $tijd  = $[12 + $tijd] uur
    !else
	keer_12=!exec pari abs(floor($later/12))
    	antwoord$n=Het was op de klok $uren uur,<br>\
	We moesten berekenen hoe laat het $later uur eerder was.<br>\
	Hoevaak zit er 12 uur in $later uur? <br>\
	$later &divide; 12 = $keer_12 , wat rest is dus $later - 12 &times; $keer_12 = $[$later - 12*$keer_12] <br>\
	Dus is het nu $uren -  $[$later - 12*$keer_12] = $(GOED$n)  uur	
    !endif
!endif 

!if $bijles=1
    goede_woorden=de,kleine,wijzer,staat,op,om,het,is,dan,dus,precies,wordt,was,zal,zijn,hele,volle,gehele,uur,uren
!endif
wims_read_parm=$uren:$minuten:$seconden
# slib_time=$uren:$minuten:$seconden
!readproc slib/draw/clock $wims_read_parm
goedklok$n=$slib_out 

#slib_time=$(GOED$n):$minuten:$seconden
wims_read_parm=$(GOED$n):$minuten:$seconden
!readproc slib/draw/clock $wims_read_parm 
antwoordklok$n=$slib_out