Warteschlange realisieren

[hotkey]

Hallo,

als Übung für die kommende Informatik-LK-Klausur möchte ich mich mit der Warteschlange beschäftigen.

Also ich habe 10 Personen , die anstehen , diese 10 Personen sind in einem Array vom Typ person (record) gespeichert , so sieht mein Quellcode bisher aus :

So hatten wir in der Schule damit angefangen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  person = record
    Name:string;
    id:integer;
  end;


  Tschlange = class
  private
    next,max:integer;
    schlange : array [1..10] of person;
  public
    function einfuegen(x:person):boolean;
    constructor create;
  end;




var
  Form1: TForm1;

implementation


constructor tschlange.create;
 begin
  next :=0;
  max := 10;
 end;

function tschlange.einfuegen(x:person):boolean;
 begin
   schlange[next] := x;
  end;

{$R *.dfm}

end.

Im Record haben wir noch die Id hinzugefügt , also es können ja Personen anstehen , die den gleichen Namen und sogar den gleichen Nachnamen haben ( Peter Müller etc) , deswegen eine eindeutige ID.

So , auf dem Formular habe ich erstmal GARNIX.
Und ich weiß auch nicht mehr weiter , bei der function einfuegen(x:person):boolean .

Kriege ich hier einen Tipp , wie ich eine Person jetzt einfügen kann ?
Also z.b , wo ich ein edit-feld habe und wo dann sich eine Person einfügen kann.

Danke schon im Voraus.

[turboPASCAL]

schlange : array [1..10] of person; ... next:=0; schlange[next] := x; Das wird wohl 'n Fehler geben.

Ich pers würde ein dyn. Array oder eine TList nutzen.

Zitat von hotkey:

So , auf dem Formular habe ich erstmal GARNIX.

Muss man ja auch nicht unbedingt.

Zitat von hotkey:

Und ich weiß auch nicht mehr weiter , bei der function einfuegen(x:person):boolean .

Kriege ich hier einen Tipp , wie ich eine Person jetzt einfügen kann ?

Na, mach dir ein Editfeld und einen butten auf das Formular. Im ButtonXClick -Ereignis machst du deine Einfügen function erin und erhöst den Zähler der Warteschlange.

[hotkey]

Danke erstmal fr deine Antwort.

Aber warum muss der Zähler der Warteschlange erhöht werden ?

[turboPASCAL]

Damit man weis wann die Warteschlange voll ist. Das kann man auch anders realisieren, ist aber, ich sag mal logisch einfacher.

[himitsu]

Schalte in den Projektoptionen die Bereichsprüfung an.

Delphi-Quellcode:

    schlange : array [1..10] of person;

constructor tschlange.create;
 begin
  next :=0;
  max := 10;
 end;

function tschlange.einfuegen(x:person):boolean;
 begin
   schlange[next] := x;

Auf was wird "next" wohl stehen, beim Einfügen?

PS: Wozu hast du dir "max" nochmals gespeichert? (das kann man ja aus dem Array auslesen)


Mit einem dynamischen Array oder einer Liste würde man sich nicht speichern müssen, wo man grade ist, da man dort einfach immer die letzte Position als die Aktuelle ansehn könnte.

Eine Liste währe für einen Queue/FiFo (first in first out) eh besser geeignet, da er Möglichkeiten bietet, um die Lsite zu bearbeiten (Einfügen und Löschen).
Ein Array ist mehr für einen Stack/FiLo (first in last out) geeignet.

[hotkey]

Also danke erstmal für die Antworten , will aber kurz logisch was klargestellt haben :

Wenn ich jetzt eine Person einfüge in Schlange[1] , dann ist das erste Feld im Array voll , die erste Person muss aber sozusagen an die Kasse , denn das 10.Array Feld , also das letzte , ist ja eigentlich die Stelle , wo die erste Peron steht.

Also muss man ja immer +1 rechnen , oder ?

Damit die erte Person bis schlange[10] vorrückt , und dann immer so weiter , oder ?

[himitsu]

Ja?
Sollte doch wohl auch logisch sein, oder wieso bist du eigentlich auf die Idee mit der next-Variable gekommen?

Irgendwie mußt du ja auch wissen wo du grade bist.
OK, man könnte alle Felder mit NIL initialisiert halten und wirde jedesmal nachsehn, aber ein NEXT/CURRENT währe bestimmt einfacher.
Ein dynamisches Array oder eine Liste ginge auch, da man dort immer den letzten Eintrag als den aktuellen betrachten könnte.

Und nochmals, schalte besser zukünftig immer die Bereichsprüfung an, denn damit währe dieser Fehler sofort aufgefallen,
wobei man sich auch über ein bissl Debuggen dem Problem hätte annehmen können.