blikk info infothek forum galerie sitemap

Warteschlange (Enqueue, Dequeue)

anfang zurueck weiter ende nach oben
Erstellen Sie ein Programm, das mithilfe der Prozeduren Enqueue und Dequeue eine Warteschlange simuliert.

Konstanten
  maxanz = 20


TYPE
  Tspeicher : Ganzzahl
  Tschlange : Tabelle von 0 bis (maxanz-1) aus Ganzzahlen


PROZEDUR Enqueue(VAR schlange : TSchlange
                            x : Tspeicher
                         kopf : Ganzzahl
                      VAR anz : Ganzzahl
                     VAR voll : BOOLEAN)
BEGIN
  Falls anz = maxanz Dann
    voll = wahr
  sonst
    voll = Falsch
    schlange [(kopf + anz) MOD maxanz] = x
    anz = anz+1
  ENDE Sonst
ENDE Prozedur


PROZEDUR Dequeue (VAR schlange : TSchlange
                         VAR y : Tspeicher
                 VAR kopf,anz  : Ganzzahl
                     VAR leer  : BOOLEAN)
BEGIN
  Falls anz=0 Dann
    leer = wahr
  Sonst
    leer = Falsch
    y = schlange[kopf]
    kopf = (kopf+1) MOD maxanz
    anz =anz-1
  ENDE Sonst
ENDE Prozedur


Autoren : A.M. ; A.P.
Datum   : 07.02.2007
nach oben
punkt   seitenbereich schließen

Links

Lösung Warteschlange in Pascal