Re: Einführung Stack Klasse 12
Zitat:
//Edit: So es sich denn um ihn, und nicht einen Schulkameraden handelt. Hat man ja auch öfters... ;) |
Re: Einführung Stack Klasse 12
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:
Hat jemand ne Idee zu dem Problem a[stackpointer]:=zahl;?
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. |
Re: Einführung Stack Klasse 12
Wieso ist a ein Zeiger auf das Array?
|
Re: Einführung Stack Klasse 12
Ich hab doch gar kein Zeiger....oder?
|
Re: Einführung Stack Klasse 12
:roll:
Delphi-Quellcode:
var
a: ^st; //<= Zeiger auf st |
Re: Einführung Stack Klasse 12
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. |
Re: Einführung Stack Klasse 12
Zuerst eine Frage: was kannst du inzwischen? Wie sind deine Programmierkenntnisse?
Delphi-Quellcode:
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.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
Delphi-Quellcode:
Entschuldige, aber das sieht aus ob es irgendwo kopiert wurde ohne zu wissen wozu.
type
st = array [1..5] of Integer; var a: ^st; Ich hab mir den Rest nicht angeguckt, aber wieso nicht:
Delphi-Quellcode:
var
a: array [1..5] of Integer; |
Re: Einführung Stack Klasse 12
Zitat:
|
Re: Einführung Stack Klasse 12
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.
|
Re: Einführung Stack Klasse 12
Zitat:
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... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:15 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz