Topic L

TOPIC L: Complete Exercises

Exercises :

(D1)

(S1) Klanten database.

(S2) Robotje.

(S3) Centre of Gravity (zwaartepunt).

(X1)

(H1)

(H2)

(T1) Output

D1:

S1: Klanten database (examen '98).

We willen beschikken over een database met klanten, waarbij van een klant het klantnummer, zijn naam (van maximaal 25 letters), bijbehorende t-shirt maat (S, M, L, XL, XXL) en datum van laatste bezoek wordt gestockeerd. Schrijf de datastruktuur voor deze database met de naam gTshirtDatabase.

De database kan MAX_KLANTEN records bijhouden, maar moet niet helemaal gevuld zijn! Daarom is er gAantalKlanten (een globale variabele), die aangeeft hoeveel records er in de database zijn.

CONST MAX_KLANTEN = 1000;

TYPE
Datum = (* vul aan *)
Naam = (* vul aan *)
Maat = (* vul aan *)
KlantRc = (* vul aan *)

VAR (* globale variabelen*)
gTshirtDatabase: ARRAY [1..MAX_KLANTEN] OF KlantRc;
gAantalKlanten: CARDINAL;

Implementeer de procedure NieuweKlant die een klant toevoegt aan de database, gegeven naam en maat. Geef zelf een uniek klantnummer aan elke nieuwe klant (vrij te bepalen, het moet wel uniek zijn voor elke klant).

Vul dan de database initieel op, met volgende code:

NieuweKlant("Piet", XXL);

NieuweKlant("Jan", XL);

NieuweKlant("Hans", M);

NieuweKlant("An", S);

NieuweKlant("Hanne", M);

NieuweKlant("Gert", XL);

NieuweKlant("Wannes", L);

NieuweKlant("Peter", XL);

NieuweKlant("Miet", M);

NieuweKlant("Kristel", S);

NieuweKlant("Petra", L);

Definieer de volgende procedures (we willen dus enkel de procedure definities, de eerste lijn dus!!!!):

telt hoeveel klanten een bepaalde opgegeven maat hebben
welk percentage klanten de winkel sinds een bepaalde datum bezocht hebben
een klant met een bepaalde naam opzoekt en de bijhorende klantnummer teruggeeft. Let op, de procedure moet ook aangeven als er geen klant voorkomt met die naam.

Er zouden meerdere klanten met eenzelfde naam kunnen voorkomen. Definieer een procedure die alle klantnummers teruggeeft.

Implementeer een procedure die het klantnummer van het n-de voorkomen van de maat m teruggeeft, alsook of hij de n-de heeft gevonden.

ls n = 15 en de m = L, dan moet de procedure het klantnummer teruggeven van de 15e klant met maat L.
Hou er rekening mee dat de database maar met gAantalKlanten (een globale variabele) records gevuld is en dat er eventueel geen 15e klant met maat L bestaat.
Test de procedure.

S2: Robotje (examen 1999)

Op het lab van de werktuigkunde hebben ze een robotje gemaakt. De bedoeling is dat de robot van punt A naar punt B (zie tekening) kan gaan zonder ergens tegen te botsen. Om dit te kunnen hebben ze de robot een motor gegeven die in alle richtingen kan gaan. Bovendien hebben heeft hij sensoren die in alle richtingen kunnen kijken of er een hindernis kortbij aanwezig is.
De robot moet nu nog geprogrammeerd worden! Deze code is gegeven (zie Robot.def):

TYPE RichtingEn = (NOORD, OOST, WEST, ZUID);

DetectieStandAr = ARRAY RinchtingEn OF BOOLEAN;

(* TRUE als sensor in die richting een hindernis op korte afstand detecteert *)

(* Deze 2 procedures zijn gegeven en moet je gebruiken (oproepen) om de robot te besturen
StartMotor zet de motor in richting r aan, de robot begint te rijden
StopMotor stopt de motor in de bepaalde richting en de robot komt tot stilstand *)

PROCEDURE StartMotor(r: RichtingEn);

PROCEDURE StopMotor(r: RichtingEn);

(* Deze procedure is ook gegeven: deze procedure wacht tot 1 of meerdere sensors van stand wijzigen
en geeft een datastruktuur terug van het type DetectieStandAr met de status van elke sensor.
De procedure geeft terug of bestemming b bereikt is (een TRUE). *)
PROCEDURE GeefStandSensors(VAR d: DetectieStandAr): BOOLEAN;

Schrijf een procedure ZoekWeg zodanig dat de robot bestemming B bereikt.

De strategie is als volgt: loop rechtdoor tot wanneer je niet meer kan, dan loop je omhoog tot je een plaats vindt waar je rechtdoor kan. Vind je die doorgang niet, dan loop je naar beneden tot je weer een doorgang vindt om je rechtdoor te verplaatsen.
Je mag ervan uitgaan dat B steeds bereikt kan worden.

De werking van de robot is gegeven met de Library Robot, namelijk de files Robot.def (met bovenstaande definities) en Robot.mod.

Copieer beide files naar je directory, maak uw programma in een aparte module en importeer de procedures met volgende lijn:

FROM Robot IMPORT RichtingEn, DetectieStandAr, StartMotor, StopMotor, GeefStandSensors;

Met dank aan John Lataire en Stijn Vastiau voor het schrijven van de robot.

zie Solution voor een tip

Graphics: wie schrijft me een 'engine' die het labyrinth + robotje tekent en de bovenstaande procedures uitvoert? Bedankt John

S3: Centre of Gravity (zwaartepunt).

Start with this code.
The type for a point is defines as:

TYPE PointRc = RECORD

x, y: REAL;

END;

Define the variable arr which can contain 10 points (punten) in a two-dimensional space, thus use the given type PointRc.
Make a procedure that plots an array of points, an array of arbitrary (willekeurige) size (use an open array!).

convert the coordinates to fit the graph screen: multiply them by a scale factor (use a constant for this).
draw a small square with size SIZE for every point.

Make a procedure that calculate the centre of gravity (zwaartepunt) cg and returns a record for this.

formula: cg = (sum xi/number, sum yi/number)
Print an asterisk (ster) in that point.

Calculate for each point the distance to the centre of gravity, add this to the datastructure! Print out all the 10 calculated distances.
Use this procedure that calculates the average distance of 1 point to an (open) array of points. Use this to calculate the average distance of the 10 points to the center of gravity. Draw a circle to indicate this average distance.
Mark the points that are further away from the calculated average distance to the centre of gravity. Add this property to the datastructure. Print this points in red.

X1:

H1:

H2:

T1: Output

What is the output of the following program?

MODULE Test1;
FROM IO IMPORT WrLn, WrCard, RdCard;

BEGIN

END Test1.