Parameteroverdracht en recursieve functies - Vaklokalen

Parameteroverdracht en recursieve functies 

Dit practicum is bedoeld voor VWO-leerlingen. 

Tijdens dit practicum gaan we in op twee onderwerpen: 

Visueel programmeren met DELPHI practicum 10 

· Parameteroverdracht: Een procedure/functie geeft een waarde door aan een 

andere procedure/functie. 

· Recursie: Een procedure/functie roept zichzelf aan. 

Bij parameteroverdracht kun jij bijvoorbeeld denken aan een functie 'Spiegel' die: 

· Een woord kan ontvangen van de procedure 'Puzzel'. 

· De letters van het ontvangen woord in omgekeerde volgorde kan plaatsen. 

· Het gespiegelde woord kan terugsturen naar de procedure 'Puzzel'. 

In een plaatje: 

Bij recursie kun je bijvoorbeeld denken aan een functie 'Droste' die: 

· Op een cacaoblik een tekening kan maken van een verpleegster met een 

dienblad. 

· Deze tekening vervolgens weer op een cacaoblik 

plaatst, enz. 

In een plaatje ziet dat er zo uit: 

- 1 - © Edu’Actief

Voorbeeld 1: De groei van kroos 


In dit voorbeeld wordt recursie en parameteroverdracht tussen functies/procedures 

besproken. 

Je kunt de applicatie en de sourcecode, die horen bij dit voorbeeld, vinden op de cdrom. 

Productomschrijving 

Bouw een DELPHI-applicatie, waarmee de groei van een hoeveelheid kroos in een 

sloot kan worden berekend. 

Neem als uitgangspunten, dat het kroos onbelemmerd kan groeien, en dat de 

hoeveelheid kroos iedere week verdubbelt. 

De gebruiker van de applicatie kan: 

· De beginhoeveelheid van het kroos invullen. (Maximaal 999) 

· Het aantal weken invullen, waarover de groei van het kroos moet worden 

berekend. (Maximaal 9) 

· De opeenvolgende recursieve berekeningen van de groei van het kroos 

volgen. 

Gebruikersinterface 

Ontwerp een GUI, die opgebouwd is uit: 

· Twee tekstvelden waarin de gebruiker de beginhoeveelheid en het aantal 

weken kan invullen 

· Een tekstveld waarin de eindhoeveelheid wordt getoond. 



· Een ListBox waarin de opeenvolgende recursieve berekeningen worden 

getoond. 

Implementatie 

Eerst moet worden besloten welke Forms en Units er allemaal nodig zijn: 

Unit1 + 

Form1: 

Het hoofdscherm waarin de gebruiker de beginhoeveelheid en het aantal weken kan 

invullen. 

Ook de opeenvolgende recursieve berekeningen worden op het hoofdscherm getoond. 

Unit Kroos: In deze Unit wordt een recursieve functie ondergebracht, waarmee de groei van het kroos 

kan worden berekend. 

Verder moet worden aangegeven welke Units met elkaar communiceren: 

Unit Hoofdscherm uses Unit Kroos; 

Unit Kroos uses Unit Hoofdscherm; 

De Unit Kroos: 

Het wekelijks verdubbelen van de hoeveelheid kroos kan beschreven worden m.b.v. 

een recursieve formule: 

a(n) = 2 * a(n-1) 


Een aparte Unit kroos maken in een project gaat via: 

File | New | Unit 

Het raamwerk van de Unit wordt aangemaakt: 


De Unit wordt automatisch opgenomen in de applicatie: 




In de Unit Kroos moet vervolgens een recursieve functie 'Verdubbel' worden gebouwd: 

Standaardbibliotheken toevoegen: 

Wanneer je een nieuwe Unit toevoegt aan een project, dan moet je zelf de 

standaardbibliotheken aangeven, die door de Unit gebruikt worden. 

De functie IntToStr is een onderdeel van de standaardbibliotheek SysUtilt, en moet 

dus in de interface van de Unit 'Kroos' worden toegevoegd: 

uses SysUtils; 


De functie 'Verdubbel' declareren: 


Het declareren van procedures en functies, die binnen de Unit 'Kroos' gebruikt gaan 

worden, vindt plaats in de interface van de Unit. 

De functie 'Verdubbel' ontvangt een geheel getal, vermenigvuldigt dat getal met 2, en 

stuurt de uitkomst van die vermenigvuldiging weer terug. 

Verdubbel( 6 ) levert retourwaarde 12. 

Het gehele getal, dat door de functie 'Verdubbel' wordt ontvangen, noemen we een 

parameter. 

In de declaratie van de functie 'Verdubbel' moet worden aangegeven van welk type 

de parameter is: 

function Verdubbel(i : Integer) . . . . . ; 

De retourwaarde van de functie 'Verdubbel' is ook een parameter van het type 

Integer. 

In de declaratie van de functie 'Verdubbel' moet worden aangegeven van welk type 

deze retourwaarde is: 

function Verdubbel( . . . . . ) : Integer; 

De recursieve aanroepen doorsturen naar het Hoofdscherm: 

Het aantal keren, dat de functie 'Verdubbel' door zichzelf wordt aangeroepen, wordt 

bewaard in de variabele k. 

Wanneer i gelijk is aan 1, dan moet in ListBox1 de tekst 'Verdubbel( 1 ) = 2' 

verschijnen: 

if i = 1 then Form1.ListBox1.Items.Add('Recursieve aanroep nummer ' 

+ IntToStr(k)+': Verdubbel(' + IntToStr(i)+') = 2') 

Zolang i groter is dan 1, dan moet in ListBox1 de tekst 'Verdubbel( i ) = 2 * 

Verdubbel( i - 1 )' verschijnen: 

else Form1.ListBox1.Items.Add('Recursieve aanroep nummer ' + IntToStr(k) + 

': Verdubbel(' + IntToStr(i)+') = 2 * Verdubbel(' + IntToStr(i-1)+')'); 

Na iedere aanroep van de functie 'Verdubbel' wordt de waarde van de variabele k 

met 1 opgehoogd: 

k := k + 1; 


De recursie: 


Een recursieve functie roept zichzelf aan. 

In de implementatie van een recursieve functie moet dus een stopcriterium zijn 

opgenomen: 

if i = 1 then result := 2 

Zolang i groter is dan 1, roept de functie 'Verdubbel' zichzelf aan: 

else result := 2 * Verdubbel( i - 1 ); 

De retourwaarde van een functie wordt altijd aangegeven met de variabele result. 

De Unit Hoofdscherm: 

Wanneer de gebruiker van de applicatie op de knop 'Bereken de eindhoeveelheid' 

klikt, dan moet: 

· De ListBox worden leeggemaakt. 

· De beginhoeveelheid en het aantal weken worden omgezet naar getallen. 

· Het aantal weken worden doorgegeven aan de functie 'Verdubbel'. 

· De eindhoeveelheid van het kroos worden getoond in een Edit. 


De procedure Button1Click: 


Wanneer de gebruiker op Button1 klikt, dan moet eerst ListBox1 worden 

leeggemaakt: 

ListBox1.Clear; 

Vervolgens moet de variabele k uit de Unit 'Kroos', waarin het aantal aanroepen van 

de recursieve functie 'Verdubbel' worden bewaard, op 1 gezet worden (= 

initialiseren): 

Kroos.k := 1; 

De tekst, die door de gebruiker is ingetypt in Edit1 en Edit2 moet worden 

geconverteerd naar een getal: 

Start := StrToFloat(Edit1.Text); 

Weken := StrToInt(Edit2.Text); 

Indien de gebruiker een ongeldig aantal weken heeft ingevuld, dan verschijnt er een 

foutmelding: 

if ((Weken > 9) or (Weken < 1)) then MessageDlg('Het aantal weken moet minimaal 1 en 

maximaal 9 zijn!',mtWarning,[mbOK],0) 

Bij een geldig aantal weken wordt de functie 'Verdubbel' uit de Unit 'Kroos' 

aangeroepen. 

De retourwaarde van de functie 'Verdubbel' wordt bewaard in de variabele 'Eind'. 

De inhoud van de variabele 'Eind' wordt geconverteerd naar tekst, en getoond in 

Edit3: 

else 

begin 

Eind := Kroos.Verdubbel(Weken); 

Edit3.Text := FloatToStr(Eind*Start); 

end; 


Voorbeeld 2: Fibonacci getallen 


In dit voorbeeld wordt recursie en parameteroverdracht tussen functies/procedures 

besproken. 

Je kunt de applicatie en de sourcecode, die horen bij dit voorbeeld, vinden op de cdrom. 

Productomschrijving 

Bouw een DELPHI-applicatie, waarmee de groei van een kolonie konijnen (m.b.v. 

Fibonacci getallen) kan worden berekend. 

Neem als uitgangspunten voor de groei van de kolonie konijnen: 

· De groei wordt niet belemmerd door externe factoren. 

· Er gaan geen konijnen dood. 

· De kolonie start met een pasgeboren paartje konijnen. 

· Een paartje konijnen is na een maand volwassen. 

· Een volwassen paartje konijnen produceert vervolgens iedere maand een 

nieuw paartje konijnen. 

De gebruiker van de applicatie kan: 

· Het aantal maanden invullen, waarover de groei van de kolonie konijnen moet 

worden berekend. (Maximaal 20) 

· De opeenvolgende recursieve berekeningen van de groei van de kolonie 

konijnen volgen. 


Gebruikersinterface 

Ontwerp een GUI, die opgebouwd is uit: 


· Een tekstveld waarin de gebruiker het aantal maanden kan invullen 

· Een tekstveld waarin het uiteindelijk aantal paarjes konijnen wordt getoond. 

· Een ListBox waarin de opeenvolgende recursieve berekeningen worden 

getoond. 

Implementatie 

Eerst moet worden besloten welke Forms en Units er allemaal nodig zijn: 

Unit1 + 

Form1: 

Unit 

Fibonacci: 

Het hoofdscherm waarin de gebruiker het aantal maanden kan invullen. 

Ook de opeenvolgende recursieve berekeningen worden op het hoofdscherm getoond. 

In deze Unit wordt een recursieve functie ondergebracht, waarmee de groei van de kolonie 

konijnen kan worden berekend. 

Verder moet worden aangegeven welke Units met elkaar communiceren: 

Unit Hoofdscherm uses Unit Fibonacci; 

Unit Fibonacci uses Unit Hoofdscherm; 

De Unit Fibonacci: 

Het maandelijkse groei van het aantal paartjes konijnen kan beschreven worden 

m.b.v. een recursieve formule: 

a(n) = a(n-1) + a(n-2) 




In de Unit Fibonacci moet vervolgens een recursieve functie 'Fibon' worden gebouwd: 

De Unit Hoofdscherm: 

Wanneer de gebruiker van de applicatie op de knop 'Bereken de groei' klikt, dan 

moet: 

· De ListBox worden leeggemaakt. 

· Het aantal maanden worden omgezet naar een getal. 

· Het aantal maanden worden doorgegeven aan de functie 'Fibon'. 

· Het aantal paartjes konijnen worden getoond in een Edit.

Parameteroverdracht en recursieve functies - Vaklokalen

Create successful ePaper yourself

Delete template?

Save as template?