Pascal: Kombination Stapel - Schlange

Hallo!

Ich stehe vor folgendem Problem:
Ich soll ein Programm schreiben, das die Datentypen statischer Stapel und statische Schlange in einem Programm mit einbindet...
Fragt bitte nicht nach dem Sinn eines solchen Programms (ich weiß auch noch nicht so recht was das bringen soll).
Vielleicht kann mir jemand ein paar Tipps zur Realisierung geben oder wenn's geht ein Programm, das die einfachen Grundoperationen besitzt, mal hier reinposten. Das wäre eine große Hilfe!

Danke schon mal!

Ja, hallo nochmal!

Programm = siehe Überschrift (also Pascal)!

Also das mit Lifo und fifo ist mir bekannt...
nur wie kann ich jetzt "Stack" und "Queue" in einem Programm verwenden?
Was muss ich im Programmkopf beachten? Muss ich Queue und Stack separat deklarieren?
Und dann den Rest des Programms in Prozeduren realisieren (also für Stack und Queue getrennte Prozeduren )? Oder wie sieht das aus?

Google bringt mich da leider nicht weiter, da ich kein Programm finde das den Datentyp Stack und Queue gleichzeitig verwendet....
also ich weiß ja wie man ein Programm schreibt, in welchem man einen der beiden Datentypen verwendet, aber eben nicht zwei gleichzeitig

So hab hier mal ein Programm entworfen ABER ES Klappt net Wenn jemand so nett wäre und die Fehler korrigieren würde...

Zitat

PROGRAM STAPELSCHLANGE;

TYPE STACK=RECORD
WERT:ARRAY[1..5] OF INTEGER;
ENDE:0..5;
END;

QUEUE=RECORD
WERT:ARRAY[1..5] OF INTEGER;
ANFANG:1..5;
ENDE:0..5;
END;

VAR STAPEL:STACK; SCHLANGE:QUEUE; Z:INTEGER;

PROCEDURE STAPELINIT(STAP:STACK);
BEGIN
STAPEL.ENDE:=0;
END;

PROCEDURE PUSH(VAR STAP:STACK; ZAHL:INTEGER);
BEGIN
WITH STAP DO
BEGIN
ENDE:=ENDE+1;
WERT[ENDE]:=ZAHL;
END;
END;

PROCEDURE POP(VAR STAP:STACK; VAR ZAHL:INTEGER);
BEGIN
WITH STAP DO
BEGIN
ZAHL:=WERT[ENDE];
ENDE:=ENDE-1;
END;
END;

PROCEDURE STAPELAUFBAUEN(STAP:STACK; ZAHL:INTEGER);
VAR I,N:INTEGER;
BEGIN
FOR I:=1 TO ZAHL DO
BEGIN
WRITELN('ZAHL EINGEBEN: '); READLN(N);
PUSH(STAP,N);
END;
END;

PROCEDURE STAPELZEIGEN(STAP:STACK);
VAR HILF:STACK;
BEGIN
STAPELINIT(HILF);
WHILE STAP.ENDE > 0 DO
BEGIN
POP(STAP,Z);
WRITE(Z,' ');
PUSH(HILF,Z);
END;
WHILE HILF.ENDE > 0 DO
BEGIN
POP(HILF,Z);
PUSH(STAPEL,Z);
END;
END;

PROCEDURE ENTER(SCHLANG:QUEUE; ZAHL:INTEGER);
BEGIN
WITH SCHLANG DO
BEGIN
ENDE:=ENDE+1;
WERT[ENDE]:=ZAHL;
END;
END;

PROCEDURE REMOVE(SCHLANG:QUEUE; ZAHL:INTEGER);
VAR I:1..5;
BEGIN
WITH SCHLANG DO
BEGIN
ZAHL:=WERT[ANFANG];
ANFANG:=ANFANG+1;
FOR I:=ANFANG TO ENDE DO WERT[I-1]:=WERT[i];
ANFANG:=ANFANG-1;
ENDE:=ENDE-1;
END;
END;

PROCEDURE SCHLANGEINIT(VAR SCHLANG:QUEUE);
BEGIN
WITH SCHLANG DO
BEGIN
ANFANG:=1;
ENDE:=0;
END;
END;

PROCEDURE SCHLANGEZEIGEN(SCHLANG:QUEUE);
VAR I:1..5; J:INTEGER; HILF:QUEUE;
BEGIN
SCHLANGEINIT(HILF);
WITH SCHLANGE DO
BEGIN
FOR I:=ANFANG TO ENDE DO
BEGIN
WRITE(WERT[ANFANG],' ');
REMOVE(SCHLANGE,Z);
ENTER(HILF,Z);
END;
END;
END;

BEGIN
CLRSCR;
STAPELINIT(STAPEL);
STAPELAUFBAUEN(STAPEL,5);
STAPELZEIGEN(STAPEL);
WHILE STAPEL.ENDE > 0 DO
BEGIN
POP(STAPEL,Z);
ENTER(SCHLANGE,Z);
END;
SCHLANGEZEIGEN(SCHLANGE);
READLN;
END.

Alles anzeigen