[Prog] Oberon Test Examen oefening

[Nickman]

Ik ben is een testoefening voor examen aan't maken (Dirk heeft ze mij gegeven ) maar nu heb ik probleempje met OO lijst...
In de AddProducts procedure zelf is alles in orde, maar vanaf dat ik mijn lijst buiten de Add procedure meegeef aan PrintLijst dan is hij ineens leeg

Code: Select all

MODULE TestExamen;
	IMPORT
		In, OutExt, Strings;
		
	TYPE
		LIST* = POINTER TO LISTDESC;
		LISTDESC* =
			RECORD
				prev*: LIST;
				code*: INTEGER;
				naam*: ARRAY 30 OF CHAR;
				prijs*: REAL;
				aantal*: INTEGER;
				next*: LIST;
			END;
	
	PROCEDURE (L : LIST) BeginNewList*;
	
	BEGIN
		NEW(L);
		L^.next := NIL;
		L^.prev := NIL;
	END BeginNewList;
	
	PROCEDURE (L : LIST) AddProducts*;
		VAR
			new, current: LIST;
	BEGIN
		In.Open();
		NEW(new);
		
		In.Int(new^.code);
		In.String(new^.naam);
		In.Real(new^.prijs);
		In.Int(new^.aantal);
		
		IF (L^.code = 0) & (L^.naam = "") & (L^.prijs = 0) & (L^.aantal = 0) & (In.Done) THEN
			L := new;
		END;
		
		current := L;
		WHILE (In.Done) DO
			current^.next := new;
			new^.prev := current;
			current := current^.next;
			current^.next := NIL;
			
			NEW(new);
			In.Int(new^.code);
			In.String(new^.naam);
			In.Real(new^.prijs);
			In.Int(new^.aantal);
		END;	
		
		L^.PrintLijst;		
			
	END AddProducts;
	
	PROCEDURE (L : LIST) PrintLijst;
		VAR
			current: LIST;
			length: LONGINT;
	BEGIN
		IF (L^.code = 0) & (L^.naam = "") & (L^.prijs = 0) & (L^.aantal = 0) THEN
			OutExt.String("Nog geen Producten toegevoegd");
		ELSE
			OutExt.String(" Code | Produkt                        | eh prijs | aantal"); OutExt.Ln;
			OutExt.String("------+--------------------------------+----------+-------"); OutExt.Ln;
			
			current := L;
			
			REPEAT
				OutExt.Int(current^.code,5);
				OutExt.String(" | ");
				OutExt.String(current^.naam);
				
				length := Strings.Length(current^.naam);
				WHILE (30 - length) # 0 DO
					OutExt.String(" ");
					INC(length);
				END;
				
				OutExt.String(" | ");
				
				OutExt.RealFix(current^.prijs, 8, 2);
				OutExt.String(" | ");
				
				OutExt.Int(current^.aantal, 6);
				
				current := current^.next;
				
				OutExt.Ln;
			UNTIL (current = NIL);
		END;
	END PrintLijst;

	PROCEDURE Test*;
	VAR
		lijst: LIST;
	BEGIN
		NEW(lijst);
		lijst^.BeginNewList;
		lijst^.AddProducts;
		lijst^.PrintLijst;
	END Test;


BEGIN
	OutExt.Open();
	OutExt.Clear;
END TestExamen.

[EagleEye812]

By the way het is deze oefening
KLIK

[Norfolk]

By the way het is deze oefening
KLIK

vanwaar gehaald?

[EagleEye812]

dien ftp
ftp://beatle.dynu.com:2001/1ste%20Bache ... Practicum/

login s0051331
pass ftpunief

[Nickman]

Niemand een idee aan wat dit kan liegen?

[Yo_rik]

Een receiver is een waardeparameter, die wijzigingen aan de beginpointer van uw lijst worden dus niet teruggegeven.
Ik denk dat het beter is om een globale variabele te gebruiken voor het begin van de lijst, zodat ge vanuit het Toolbestand de afzonderlijke functies kunt gebruiken, zonder dat de lijst verloren gaat. Zo is ook uw probleem opgelost .

[Shinta]

Hmm bij al die examens heb je zo vaak dage een OXO spelleke moet maken of andere spellekes, maar ge kunt in oberon toch geen interactieve input geven, da moet je toch vooraf in je parameterlijst zetten.
Moet ge dit dan verhelpen door zoals den arickx soms zo tijdens het runnen bepaalde procedures te laten draaien, ééntje per keer, in plaats van dit allemaal vooraf te definiëren in een TestModule ?

De vragen zijn wel ni simpel though ...

[Yo_rik]

Interactieve input gaat wel , met module Input (zie Watson.ShowDef Input~ ).
Die geeft alleen acties van toetsenbord of muis, dus omzetten van karakters naar bvb. integer moeten we zelf doen.

[Shinta]

Interactieve input gaat wel , met module Input (zie Watson.ShowDef Input~ ).
Die geeft alleen acties van toetsenbord of muis, dus omzetten van karakters naar bvb. integer moeten we zelf doen.

och zwans ... swel iet handig

[Nickman]

Een receiver is een waardeparameter, die wijzigingen aan de beginpointer van uw lijst worden dus niet teruggegeven.
Ik denk dat het beter is om een globale variabele te gebruiken voor het begin van de lijst, zodat ge vanuit het Toolbestand de afzonderlijke functies kunt gebruiken, zonder dat de lijst verloren gaat. Zo is ook uw probleem opgelost .

Maar als ik nu OO porgrameer met matrixen bv. dan worden die matrices dat ik mee geef wel aangepast.
Waarom dan niet bij deze lijst?

[Yo_rik]

Bij matrices verandert ge niet het adres (pointer) van de matrix, alleen de getallen die erin opgeslagen zijn.
Hier verandert het adres van het begin van de lijst telkens er een product wordt toegevoegd.
Het werkt dus eigenlijk hetzelfde als met gewone procedures, waar ge uw object als waardeparameter meegeeft .

[Norfolk]

Ge moet trouwens uw lijst gesorteerd op code afdrukken (vraag 2) dus ge moet ergens nog een sorteeralgoritme gebruiken.
Of zorgen dat bij het toevoegen van een produkt ineens op volgorde wordt toegevoegd

[Nickman]

Ja, da van die volgorde da is altijd achteraf mogelijk he.
Maar het is dus onmogelijk om met een object geörienteerde lijst te werken :p.
Dan gebruik ik wel globale variabele....

[EagleEye812]

De mijne werkt met VAR parameters dus niet met OO

Code: Select all

MODULE Kleinhandel;

	IMPORT
		In, OutExt, Files, Strings;
		
	TYPE
		Lijst* = POINTER TO LijstDesc;
		LijstDesc* = 
			RECORD
				previous: Lijst;
				code: INTEGER;
				naam: ARRAY 32 OF CHAR;
				prijs: REAL;
				aantal: INTEGER;
				next: Lijst;
			END;
	
	PROCEDURE Initialise*(VAR L: Lijst);
	(*
		Omschrijving : Initialiseert een nieuwe lijst.
		Parameters : L: Lijst die ge’nitialiseerd moet worden
		Returntype : -
		Algoritme : OO, dubbel gelinkte lijst
	*)

	BEGIN
		NEW(L);
		L^.previous := NIL;
		L^.code := 0;
		L^.naam := "";
		L^.prijs := 0.0;
		L^.aantal := 0;
		L^.next := NIL; 
	END Initialise;
	
	PROCEDURE AddProduct*(VAR L: Lijst);
	(*
		Omschrijving : Product toevoegen aan de lijst.
		Parameters : L: Lijst 
		Returntype : -
		Algoritme : OO, dubbel gelinkte lijst
	*)
		VAR
			new: Lijst;
			temp: Lijst;
			duplicate: BOOLEAN;
	BEGIN
		IF L =  NIL THEN
			Initialise(L);
		END;
		In.Open();
		WHILE (In.Done) DO
			NEW(new);
			duplicate := FALSE;
			In.Int(new^.code);
			In.String(new^.naam);
			In.Real(new^.prijs);
			In.Int(new^.aantal);
			(* Check for duplicates *)
			temp := L;
			WHILE L # NIL DO
				IF new^.code = L^.code THEN
					duplicate := TRUE;
					L^.aantal := (L^.aantal + new^.aantal);
					L^.naam := new^.naam;
					L^.prijs := new^.prijs;
				END;
				L := L^.previous;
			END;
			NEW(L);
			L := temp;			
			IF (new^.code # 0) & (~duplicate) THEN 
				IF L^.code # 0 THEN
					L^.next := new;
					L^.next^.previous := L;
					L := L^.next;
				ELSE 
					new^.next := NIL;
					new^.previous := NIL;
					L := new;
				END;
			END;
		END;	
	END AddProduct;
	
	PROCEDURE SortLijst*(VAR L: Lijst);
		VAR
			temp: Lijst;
			sort: BOOLEAN;
			counter, i: INTEGER;
	BEGIN
		IF (L # NIL) & (L^.previous # NIL) THEN (* We moeten enkel sorteren als er meer dan 1 element in de lijst zit *)
			WHILE L^.previous # NIL DO (* Er wordt "teruggegaan" naar het tweede element (het eerste is al gesorteerd!) *)
				L := L^.previous;
			END;
			L := L^.next;
				
			(* Dit is het eigenlijke sorteerprocede *)
			REPEAT
				IF (L^.previous # NIL) & (L^.next # NIL) THEN
					L := L^.next;
				END;
				counter := 0;
				temp := L;
				sort := FALSE;
			
				WHILE (L^.previous # NIL) & (temp^.code < L^.previous^.code) DO
					L := L^.previous;
						INC(counter);
						sort := TRUE;
					END;
					
					IF sort THEN
						IF temp^.next = NIL THEN (* als het laatste element gesorteerd moet worden *)
							temp^.previous^.next := NIL;
							DEC(counter);
						ELSE
							temp^.previous^.next := temp^.next;	(* de elementen waar Temp tussen stond worden aan elkaar gelinked *)
							temp^.next^.previous := temp^.previous;
						END;
						temp^.next := L;
						temp^.previous := L^.previous;
						IF L^.previous # NIL THEN (* als het element wordt ingevoegd in de eerste positie *)
							L^.previous^.next := temp;
						END;				
						L^.previous := temp;
						FOR i := 1 TO (counter - 1) DO (* we gaan terug naar de juiste plaats in de lijst om opnieuw te kunnen beginnen *)
							L := L^.next;
					END;
				END;
			UNTIL L^.next = NIL;
		END;
	END SortLijst;
	
	
	PROCEDURE PrintLijst*(L: Lijst);
	(*
		Omschrijving : Print de huidige lijst.
		Parameters : L: Lijst die geprint moet worden
		Returntype : -
		Algoritme : OO, dubbel gelinkte lijst
	*)
		VAR
			i: INTEGER;
	BEGIN
		SortLijst(L);
		IF (L = NIL) THEN
			OutExt.Color(9);
			OutExt.String("De lijst is leeg.");
			OutExt.Ln();
			OutExt.Color(15);
		ELSE
			OutExt.Color(9);
			OutExt.String("CODE | PRODUCT                           | PRIJS   | AANTAL");
			OutExt.Ln();
			OutExt.String("-----+-----------------------------------+---------+-------");
			OutExt.Ln();
			WHILE L^.previous # NIL DO
				L := L^.previous; 
			END;
			REPEAT
				OutExt.Color(7);
				OutExt.Int(L^.code, 4);
				OutExt.Color(9);
				OutExt.String(" | ");
				OutExt.Color(7);
				OutExt.String(L^.naam);
				FOR i := 0 TO (32 - SHORT(Strings.Length(L^.naam))) DO
					OutExt.String(" ");
				END;
				OutExt.Color(9);
				OutExt.String(" |");
				OutExt.Color(7);
				OutExt.RealFix(L^.prijs, 8, 2);
				OutExt.Color(9);
				OutExt.String(" | ");
				OutExt.Color(7);
				OutExt.Int(L^.aantal, 6);
				OutExt.Ln();
				L := L^.next; 
			UNTIL (L = NIL);
			
			OutExt.Color(15);
		END;
	END PrintLijst;
	
	PROCEDURE Save*(L: Lijst);
		VAR
			bestand: Files.File;
			bestandrider: Files.Rider;
	BEGIN
		IF L = NIL THEN
			VerwijderBestand;
		ELSE			
			WHILE L^.previous # NIL DO
				L := L^.previous; 
			END;
		
			bestand := Files.New("Kleinhandel.Dat");
			Files.Set(bestandrider, bestand, 0);
			REPEAT
				Files.WriteInt(bestandrider, L^.code);
				Files.WriteString(bestandrider, L^.naam);
				Files.WriteReal(bestandrider, L^.prijs);
				Files.WriteInt(bestandrider, L^.aantal);
				L := L^.next;
			UNTIL (L = NIL);
			Files.Register(bestand);
			OutExt.Color(7);
			(* OutExt.String("Naar bestand weggeschreven."); *)
			OutExt.Ln();
			OutExt.Ln();
			OutExt.Color(15);
		END;
	END Save;
	
	PROCEDURE OpenFile*(VAR L: Lijst);
		VAR
			bestand: Files.File;
			bestandrider: Files.Rider;
			new: Lijst;
	BEGIN
		OutExt.Color(7);
		(* OutExt.String("Bestand wordt ingelezen..."); *)
		OutExt.Ln();
		bestand := Files.Old("Kleinhandel.Dat");
		IF (bestand = NIL) THEN
			OutExt.Color(7);
			OutExt.String("Bestand is niet gevonden.");
			OutExt.Ln();
			OutExt.Color(15);
			L := NIL;
		ELSE
			Initialise(L);
			Files.Set(bestandrider, bestand, 0);
			WHILE (~bestandrider.eof) DO
				NEW(new);
				Files.ReadInt(bestandrider, new^.code);
				Files.ReadString(bestandrider, new^.naam);
				Files.ReadReal(bestandrider, new^.prijs);
				Files.ReadInt(bestandrider, new^.aantal);
				IF new^.code # 0 THEN 
					IF L^.code # 0 THEN
						L^.next := new;
						L^.next^.previous := L;
						L := L^.next;
					ELSE 
						new^.next := NIL;
						new^.previous := NIL;
						L := new;
					END;
				END;
			END;
		END;
	END OpenFile;
	
	PROCEDURE Delete*(VAR L: Lijst);
	
	BEGIN
		IF (L^.next = NIL) & (L^.previous = NIL) THEN
			L := NIL;
		ELSIF L^.next = NIL THEN
			L := L^.previous;
			L^.next := NIL;
		ELSIF L^.previous = NIL THEN
			L := L^.next;
			L^.previous := NIL;
		ELSE
			L^.previous^.next := L^.next;
			L^.next^.previous := L^.previous;
			L := L^.next;
		END;
	END Delete;
	
	
	PROCEDURE Quantity*(VAR L: Lijst);
		VAR
			code, quantity, totaantal: INTEGER;
			totaal: REAL;
			found: BOOLEAN;
			rekening, new: Lijst;
	BEGIN
		OutExt.Color(9);
		totaal := 0.0;
		totaantal := 0;
		In.Open();
		In.Int(code);
		In.Int(quantity);
		Initialise(rekening);
		WHILE (In.Done) & (L # NIL)DO
			WHILE (L^.code # code) & (L^.previous # NIL) DO
				L := L^.previous;
			END;
			IF L^.code = code THEN
					found := TRUE;
			ELSE
				found := FALSE;
			END;
			IF ~found THEN
				OutExt.String("Product nr. ");
				OutExt.Int(code, 0);
				OutExt.String(" is niet in stock.");
				OutExt.Ln();
			ELSIF quantity > L^.aantal THEN
				OutExt.String("Er zijn slechts ");
				OutExt.Int(L^.aantal, 0);
				OutExt.String(" eenheden van product nr. ");
				OutExt.Int(code, 0);
				OutExt.String(" aanwezig! ");
				OutExt.Ln();
			ELSE
				NEW(new);
				new^.naam := L^.naam;
				new^.code := L^.code;
				new^.prijs := L^.prijs;
				new^.aantal := quantity;
				IF rekening^.code # 0 THEN
					rekening^.next := new;
					rekening^.next^.previous := rekening;
					rekening := rekening^.next;
				ELSE 
					new^.next := NIL;
					new^.previous := NIL;
					rekening := new;
				END;
				L^.aantal := (L^.aantal - quantity);			(* Aantal veranderen in de lijst *)
				totaal := (totaal + (L^.prijs * quantity)); 	(* subtotaal berekenen *)
				totaantal := totaantal + quantity;
				IF (L^.aantal = 0) THEN
					Delete(L);
				END;
				
			END;
			WHILE (L # NIL) & (L^.next # NIL) DO
				L := L^.next;
			END;
			In.Int(code);
			In.Int(quantity);
		END;
		OutExt.String("Rekening:");
		OutExt.Ln();
		PrintLijst(rekening);
		OutExt.Color(9);
		OutExt.String("-----+-----------------------------------+---------+-------");
		OutExt.Ln();
		OutExt.String("TOT  |                                   | ");
		OutExt.RealFix(totaal, 7, 2);
		OutExt.String(" | ");
		OutExt.Int(totaantal, 6);
		OutExt.Ln();
		OutExt.Color(15);
		Save(L);
	END Quantity;

(* ======================= PROCEDURES VOOR DE GEBRUIKER ============================ *)

	PROCEDURE Levering*;
		VAR
			A: Lijst;
	BEGIN
		OpenFile(A);
		AddProduct(A);
		PrintLijst(A);
		Save(A);
	END Levering;
	
	PROCEDURE LeesBestand*;
		VAR
			A: Lijst;
	BEGIN
		OpenFile(A);
		PrintLijst(A);
	END LeesBestand;

	PROCEDURE VerwijderBestand*;
		VAR
			succes: INTEGER;
	BEGIN
		Files.Delete("Kleinhandel.Dat", succes);
		OutExt.Color(7);
		IF succes = 0 THEN
			OutExt.String("Bestand verwijderd.");			
		ELSE
			OutExt.String("Bestand is niet gevonden.");
		END;
		OutExt.Ln();
		OutExt.Color(15);		
	END VerwijderBestand;
	
	PROCEDURE Verkoop*;
		VAR
			A: Lijst;
	BEGIN
		OpenFile(A);
		Quantity(A);
		PrintLijst(A);
		Save(A);
	END Verkoop;

BEGIN
	OutExt.Open();
	OutExt.Clear();
END Kleinhandel.

Tool:

Code: Select all

Builder.MarkErrors ^
Builder.ClearErrors ~

Builder.Compile \wsv2
	OutExt.Mod
	Kleinhandel.Mod
	~

Builder.Compile \f2*

System.Free
	Kleinhandel.Mod
	OutExt.Mod
	~

Kleinhandel.Levering
	11 "Le Petit Prince" 13.99 7
	37 "Solitudes - Forest Piano" 7.95 10
	258 "Eureka 3D Puzzle" 3.50 12~
Kleinhandel.Levering
	37 "Solitudes - Forest Piano" 6.95 25
	129 "For Love of the Game" 9.95 20
	258 "Eureka 3D Puzzle" 3.50 8
	~
Kleinhandel.LeesBestand ~
Kleinhandel.VerwijderBestand ~
Kleinhandel.Verkoop
	11 1
	258 2
	~ 

... en mijn output ziet er perfect uit zoals hij er uit moet zien

Code: Select all

CODE | PRODUCT                           | PRIJS   | AANTAL
-----+-----------------------------------+---------+-------
  11 | Le Petit Prince                   |   13.99 |      7
  37 | Solitudes - Forest Piano          |    7.95 |     10
 258 | Eureka 3D Puzzle                  |    3.50 |     12




CODE | PRODUCT                           | PRIJS   | AANTAL
-----+-----------------------------------+---------+-------
  11 | Le Petit Prince                   |   13.99 |      7
  37 | Solitudes - Forest Piano          |    6.95 |     35
 129 | For Love of the Game              |    9.95 |     20
 258 | Eureka 3D Puzzle                  |    3.50 |     20



Rekening:

CODE | PRODUCT                           | PRIJS   | AANTAL
-----+-----------------------------------+---------+-------
  11 | Le Petit Prince                   |   13.99 |      1
 258 | Eureka 3D Puzzle                  |    3.50 |      2
-----+-----------------------------------+---------+-------
TOT  |                                   |   20.99 |      3



CODE | PRODUCT                           | PRIJS   | AANTAL
-----+-----------------------------------+---------+-------
  11 | Le Petit Prince                   |   13.99 |      6
  37 | Solitudes - Forest Piano          |    6.95 |     35
 129 | For Love of the Game              |    9.95 |     20
 258 | Eureka 3D Puzzle                  |    3.50 |     18

EDIT: er zat een foutje in de Sort procedure: hij gaf een Trap als de lijst NIL was
EDIT2: nog wat foutjes verbeterd met lege lijsten

[Norfolk]

mijn printlijst werkt toch met OO...