Hallo Leute,
ich schreibe wieder mal eine tolle Informatikklausur und wäre für eure Hilfe bei dieser Aufgabe echt dankbar. Also, ich habe 3 Interfaces vorgegeben und soll die Unterschiede zwischen ihnen und ihre Vor- und Nachteile sammeln. Allerdings sehen die für mich größtenteils gleich aus. Wäre cool, wenn ihr mich aufklären könntet 8)
1.Interface: "Dynamische Liste"
Delphi-Quellcode:
Unit Liste;
//Das Objekt LISTE mit allen Methoden:
Interface
TYPE TElement =
string;
//Listentyp als dynamisch verkettete Zeiger:
pListe = ^Knoten;
Knoten =
RECORD
element : TElement;
nach : pListe;
END;
//Das Objekt Liste mit allen Methoden:
TListe =
class (TObject)
anfang : pListe ;
aktuell : pListe ;
Constructor create;
{Erzeugung der leeren Liste. ( WICHTIG!)}
procedure insert (ein:TElement);
{Vor das akt.Element wird ein El.eingefügt.}
procedure delete;
{Das akt.Element wird gelöscht.}
procedure reset ;
{Das akt.Element wird auf den Anfang gesetzt.}
procedure next ;
{Der Aktuellzeiger wird versetzt.}
procedure show(
Var aus:TElement);
{Das akt. Element wird an die Var.aus übergeben}
procedure update(aend :TElement);
{Das akt.Element wird überschrieben.}
procedure last(ein: TElement);
{Hängt ein neues Element am Ende an.}
function empty : boolean;
{Liefert true, wenn Liste leer}
function ende : boolean;
{Liefert true, wenn Listenende erreicht.}
End;
2.Interface: "Schlange"
Delphi-Quellcode:
unit Schlange;
//Hier wird das Objekt Schlange definiert:
interface
TYPE TElement =
String;
//Der Datentyp Schlange als Zeigerkette:
pSnake = ^TKnoten;
TKnoten =
RECORD
inhalt : tElement;
next : pSnake;
END;
//Das Objekt Schlange mit allen Methoden:
TSchlange =
class (TObject)
anf, ende : pSnake;
constructor create;
function empty:boolean;
function show :TElement;
procedure insert (x:TElement);
End;
3.Interface: "Keller"
Delphi-Quellcode:
unit Keller;
// ADT Keller
interface
TYPE
TElement =
String;
// Der Datentyp Keller als Zeigerkette:
pKeller = ^knoten;
knoten =
RECORD
element : TElement;
next : pKeller
END;
//Das Objekt Keller mit allen Methoden:
TKeller =
class (TObject)
pTop : pKeller;
Constructor create;
Function empty : boolean;
PROCEDURE insert (x : telement);
Function show: TElement;
END;
Danke!
