Sektion Angewandte Informationsverarbeitung

Übungen zu Programmieren II, Sommersemester 1996

Blatt 14, 10 Punkte

Abgabe: Donnerstag, den 09.05.1996

Aufgabe

Fügen Sie dem Programm aus Aufgabe 17 eine Menusteuerung hinzu. Das Menu sollte folgenden Aufbau haben :

(I) - Insert
(D) - Delete
(U) - Update
(S) - Select
(L) - Liste
(Q) - Quit Ihre Eingabe :

Dabei sollen die einzelnen Menupunkte folgende Aufgaben erfüllen :

• Insert : Neuen Datensatz hinzufügen.

• Delete : Datensatz löschen. Diese Funktion ist in dieser Aufgabe nicht zu Implementieren, es soll zunächst nur der Menupunkt bereitgestellt und eine Funktion Delete aus Lists aufgerufen werden, die die Ausgabe "Delete" am Bildschirm erzeugt.

• Update : Inhalt eines bestimmten Datensatzes ändern

• Select : Bestimmten Datensatz suchen und anzeigen

• Liste : Gesamten Listeninhalt ausgeben

• Quit : Liste in Datei schreiben und Programm beenden

PROCEDURE IsEqual(itm1, itm2 : Item) : BOOLEAN;

IsEqual liefert TRUE zurück, wenn itm1 und itm2 in den in itm1 belegten Komponenten übereinstimmen.

PROCEDURE WriteItem(fp : FILE; itm : Item);

WriteItem schreibt den Record Item in die Datei, auf die der Filepointer fp verweist.

PROCEDURE Select(itm : Item ; VAR elptr : List; list : List) : BOOLEAN;

Select durchläuft die Liste list und liefert mit Hilfe der Funktion IsEqual aus Items einen Zeiger auf das gefundene Listenelement (elptr) zurück. Wurde das gesuchte Element in der Liste gefunden, liefert Select TRUE zurück, ansonsten FALSE.

PROCEDURE PrintListEl(elptr : List);

PrintListEl ruft PrintItem aus Items für ein einzelnes Listenelement (elptr) auf.

PROCEDURE WriteList(fp : FILE; list : List);

Schreibt die gesamte Liste in eine Datei (fp). WriteList durchläuft die Liste (list) und ruft für jedes Element die Funktion WriteItem aus Items auf.