Einführung Stack Klasse 12

[Mithrandir]

Zitat von mkinzler:

CrossPost DF

Na super, ich kotz gleich. Drüben im DF haben sie ihm schon gestern geholfen, aber selbst das hat er nicht gerafft... Oh man...

//Edit: So es sich denn um ihn, und nicht einen Schulkameraden handelt. Hat man ja auch öfters...

[Razor90]

Ist ja schön wenn jemand mal nett sein kann^^ So habe jetzt alles durchgelesen und bin auch weiter gekommen. Habe nur noch ein Problem in der procedure Push, da irgendwie der wert nicht auf das array gespeichert wird.

Delphi-Quellcode:

unit Stack;

interface

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

type
  st = array [1..5] of Integer;
var
  a: ^st;
  stackpointer, zahl: Integer;


   procedure Init(var ST:integer);
   procedure Push(zahl:integer);
   procedure Top (zahl:integer);
   procedure Pop (zahl:integer);

   implementation

procedure Init;
begin
 stackpointer:=0;
end;

procedure Push(zahl:integer);
begin
 if(stackpointer < 5)
   then  begin
        Inc(stackpointer);
        a[stackpointer]:=zahl;
    end;
end;

procedure Top(zahl:integer);
begin
 if(stackpointer > 0)
   then  begin
        a[stackpointer]:=zahl;
    end;
end;

procedure Pop;
begin
  if stackpointer=0 then exit;
   a[stackpointer]:=a[stackpointer-1];


end;

end.

Hat jemand ne Idee zu dem Problem a[stackpointer]:=zahl;?

[DeddyH]

Wieso ist a ein Zeiger auf das Array?

[Razor90]

Ich hab doch gar kein Zeiger....oder?

[Mithrandir]

Delphi-Quellcode:

var
  a: ^st; //<= Zeiger auf st

[Razor90]

wusst ich gar nicht, immer wenn ich das ohne dieses a gemacht habe bekam ich den fehler: Array-Typ erforderlich. Deshalb das a.
Achso...das "^" muss weg, dann klappts.

[Popov]

Zuerst eine Frage: was kannst du inzwischen? Wie sind deine Programmierkenntnisse?

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Willst du nur kopieren oder verstehst du auch den Sinn der Units. Du machst dir das aber einfach. Also, räum auf. Lösch zuerst alles, starte das Programm und wenn der Compiler eine unbekannte Funktion meldet, dann drückst du auf F1 und guckst in welcher Unit die Funktion, Prozedur oder Klasse usw. ist.

Delphi-Quellcode:

type
  st = array [1..5] of Integer;
var
  a: ^st;

Entschuldige, aber das sieht aus ob es irgendwo kopiert wurde ohne zu wissen wozu.

Ich hab mir den Rest nicht angeguckt, aber wieso nicht:

Delphi-Quellcode:

var
  a: array [1..5] of Integer;

[Highttower]

Zitat von Razor90:

...

Delphi-Quellcode:

...
   procedure Init(var ST:integer);
  
   implementation

procedure Init;
begin
 stackpointer:=0;
end;

...

...

Lass das (var ST:integer) doch einfach weg =)

[Razor90]

so klappt alles, bloß ich finde keine wirkliche antwort darauf, was dir procedure TOP erledigen soll. und jetzt bleibt mal locker, ich hab seit 6 monaten n bissl delphi unterricht und wir machen nicht wirklich viel. also ein bischen verständnis bitte.

[Mithrandir]

Zitat von Razor90:

und jetzt bleibt mal locker, ich hab seit 6 monaten n bissl delphi unterricht und wir machen nicht wirklich viel. also ein bischen verständnis bitte.

Eine Tüte Mitleid für dich. *patsch*

In der Oberstufe kann man schon ein wenig Eigeninitiative Verlangen. Du hast die Begriffe "Stack" und "Pop". Meinst du nicht, dass, wenn du Google mal ganz liebt fragst, es dir ein paar grundlegende Antworten liefert?

Sorry, aber wenn du nur halbherzig an die Sachen gehen willst, dann hat keiner was davon...