# no need for translation

!set n=$teller
!if $graad =0
    R=$teller
!else
    R=$graad
!endif        
nivo_title=!record 56 of lang/remarks.$taal
# De Rekenkundige Rij<br>Bereken enkele termen.
keuze=!randitem 0,0
multiplechoice=0
som=$empty

!if $R=1
    bewerking=nivo/bewerking2.proc
    multiplechoice=1
    aantal_vragen=!randitem 3,4,5,6
    GOED$n=!randint 1,$aantal_vragen
    !for p=1 to $aantal_vragen
	r=!randitem 2,3,4
	a=!randitem 2,3,4,5,6,-2,-3,-4,-5,-6
	termen=!randitem 5,6,7,8
	!if $p=$(GOED$n)
	    !for t=1 to $termen
		U=$[$a+$r^($t)]
		rij$p=!append item $U to $(rij$p)
	    !next t
	    ss=!record 57 of lang/remarks.$taal
	    som=!append line $ss to $som
	    # <td><font color=green>$(rij$p)</font> <b>is de rekenkundige rij</b> (dus nummertje $p)</td><tr>
	!else
	    !for t=1 to $termen
		U=$[$a*$r^($t)]
		rij$p=!append item $U to $(rij$p)
	    !next t
	    ss=!record 58 of lang/remarks.$taal
	    som=!append line $ss to $som
	    # <td><font color=red>$(rij$p)</font> is een meetkundige rij</td><tr>
	!endif
    !next p
    ss=!record 59 of lang/remarks.$taal
    somtekst$n=$ss
    # Welke van de onderstaande rijen is een <b>Rekenkundige Rij</b>?<br><small>multiplechoice</small><p>
    goed$n=<table>$som</table>
 !exit
!endif

!if $R=2
    bewerking=nivo/bewerking1.proc
    r=!randitem 2,3,4,5,6,7,8,9,10
    a=!randitem 2,3,4,5,6,7,8,9,10
    aantal_vragen=$[$teller+2]
    !if $r=$a
	r=$[$a+1]
    !endif	
    termen=$empty
    # formule a*r^n-1
    !for p=1 to $aantal_vragen
	termen=!append item U<sub>$p</sub> to $termen
	t=$[$p-1]
	U=$[$a*$r^($t)]
	GOED$n=!append item $U to $(GOED$n) 
    !next p
    ss=!record 60 of lang/remarks.$taal
    somtekst$n=$ss
    # Gegeven de <em>meetkundige rij</em> met <b>rangnummerformule</b>:<p align="center"> U<sub>n</sub>=$a&times;$r<sup>n-1</sup></p>\
    # Bereken de termen $termen van deze rij.
 !exit
!endif

!if $R=3
    bewerking=nivo/bewerking1.proc
    r=!randitem 2,3,4,5,6,7,8,9,10
    a=!randitem 2,3,4,5,6,7,8,9,10
    aantal_vragen=$[$teller+2]
    !if $r=$a
	a=$[$r+1]
    !endif	
    termen=$empty
    # formule a*r^n-1
    !for p=1 to $aantal_vragen
	termen=!append item U<sub>$p</sub> to $termen
	t=$[$p-1]
	U=$[$a*$r^($t)]
	GOED$n=!append item $U to $(GOED$n) 
    !next p
    ss=!record 61 of lang/remarks.$taal
    somtekst$n=$ss
    # Gegeven de <em>rekenkundige rij</em> met <b>recursieformule</b>:<p align="center"> U<sub>n</sub>=$r&times;U<sub>n-1</sub> met U<sub>1</sub>=$a</p>\
    # Bereken de termen $termen van deze rij.
 !exit
!endif

!if $R>3
    bewerking=nivo/bewerking1.proc
    aantal_vragen=2
    r=!randitem 2,3,4
    a=!randitem 2,3,4,5,6,7,8,9,10
    # formule a*r^n-1
    termen=!shuffle 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
    !for p in 1,2
	t=!item $p of $termen
	t=$[$t-1]
	U=$[$a*$r^($t)]
	T$p=U<sub>$t</sub>=$U
    !next p
    
    d=!item 3 of $termen
    b=$[$a*$r^($d-1)]
    GOED$n=$a,$b
    ss=!record 62 of lang/remarks.$taal
    somtekst$n=$ss
    # Gegeven de <em>rekenkundige rij</em> met<p align="center"> $T1 <br> en <br>$T2</p>\
    # Bereken de termen U<sub>1</sub> en U<sub>$d</sub> deze rij.
 !exit
!endif    
