Einführung Stack-Programmierung

michaaaaa · Hält's aus hier Beiträge: 9

Hallo Leute,
ich hab im Infounterricht (klasse 12) die Aufgabe bekommen eine zweite Unit (UStack) in das Hauptprogramm einzubinden.
Unser Lehrer konnte uns slebst nicht genau erklären wie wir das machen sollen (genial, ich weiß).

Zunächst hatten wir ne kleine Einführung zum Thema Stack bekommen und sollten anschließend anfangen zu programmieren.
Wir haben nur eine Vorgabe bekommen wie das Programm mal aussehen soll:
es gibt 5 Edit-Felder und 4 Button.
die Üschrift der Button sind: Init, Push, Top und Pop.
In die Edit-Felder sollen wir iwelche beliebige Zahlen schreiben.

ich hab schon versucht das zu programmieren, allerdings weiß ich nicht was ich in die Proceduren der 4 Button in der zweiten Unit rein schreiben soll.
Unser Lehrer meinte iwas von wegen mit nem Array Feld sollten wir das hinkriegen.(Mit dieser Info konnt ich ehrlich gesagt nichts anfangen)

Ich hab das Grundgerüst des Programmes hochgeladen

Ich hoffe ihr könnt mir helfen.

Moderiert von Narses: Topic aus Dateizugriff verschoben am So 21.06.2009 um 23:42

Einloggen, um Attachments anzusehen!

BenBE · Verfasst: So 21.06.09 17:56

Hab da nen Geheimtipp für dich ...

Vom Meister persönlich:

Psssst: Crashkurs, Crashkurs Reloaded

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

michaaaaa · Hält's aus hier Beiträge: 9

mmh...
da steht aber nichts zum thema stack...
trotzdem danke

kann mir nicht iwer iwie helfen oder zumindestens n dnekanstoß geben?

BenBE · Verfasst: So 21.06.09 18:25

Gib mal in deinem Editor TStack ein und drück F1

Alternativ hilft auch eine Nutzung der Funktion "Suche", die dieses Forum bietet ;-)

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

michaaaaa · Hält's aus hier Beiträge: 9

ich hab da jezz mal was zusammen gegoogelt und in meine stack unit gehauen...

hier das resultat...
hab aber lauter fehler - wär klasse wenn mir da einer helfen könnte

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

unit UStack;


interface
 procedure Init;
 procedure Push(value: string):Boolean;
 procedure Top : string;
 procedure Pop : string;


 implementation

var
  stack: array[1..5] of string;
  stackpointer : Integer;

  
  
procedure Init;
begin
  stackpointer = 0;
end;


procedure Push(value: string):Boolean;
begin
  if(stackpointer < 5) then
  begin
    Inc(stackpointer);
    stack[stackpointer] = value;
    Push = True;
  end;
  else
  begin
    Push = False;
  end;
end;

procedure Top : string;
begin
  if(stackpointer > 0) then
  begin
    Top = stack[stackpointer];
  end;
  else
  begin
    Top = "empty stack";
  end;
end;

procedure Pop : string;
begin
if(stackpointer > 0) then
  begin
    Top = stack[stackpointer];
    Dec(stackpointer);
  end;
  else
  begin
    Top = "empty stack";
  end;
end;

end.

Moderiert von Gausi: Quote- durch Delphi-Tags ersetzt

Xentar · Verfasst: So 21.06.09 18:34

Wäre klasse, wenn du uns die Fehler auch verräts.

_________________
PROGRAMMER: A device for converting coffee into software.

michaaaaa · Hält's aus hier Beiträge: 9

naja...
richtig...
ich habs hier geuppt...könntet euch das file ja mal fix ziehen und compilieren

Einloggen, um Attachments anzusehen!

Xentar · Verfasst: So 21.06.09 18:50

Ist es so schwer, die Fehlermeldungen zu kopieren, und hier reinzupasten?

_________________
PROGRAMMER: A device for converting coffee into software.

BenBE · Verfasst: So 21.06.09 18:50

Könntest Du bitte Delphi-Tags für deinen Post oben nehmen?

Zudem sollte es ja nicht zu schwer sein, uns kurz die Fehlermeldungen aufzuschreiben - Du möchtest von uns ja gerne Hilfe erhalten, weshalb man daher auch selber etwas in Vorleistung gehen sollte.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Xentar · Verfasst: So 21.06.09 18:52

Ok, ich habs mir grad doch mal genauer angesehen..

1. Procedure mit Rückgabetyp? Gibbet nicht, ist ne function
2. Zuweisungen mit :=
3. kein ; vor einem Else
usw..

LIES die Grundlagen!

_________________
PROGRAMMER: A device for converting coffee into software.

michaaaaa · Hält's aus hier Beiträge: 9

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:

unit UStack;


interface
 procedure Init;
 function Push(value: string):Boolean;
 function Top : string;
 function Pop : string;


 implementation

var
  stack: array[1..5] of string;
  stackpointer : Integer;

  
  
procedure Init;
begin
  stackpointer := 0;
end;


function Push(value: string):Boolean;
begin
  if(stackpointer < 5) then
  begin
    Inc(stackpointer);
    stack[stackpointer] := value;
    Push := True;
  end
  else
  begin
    Push := False;
  end;
end;

function Top : string;
begin
  if(stackpointer > 0) then
  begin
    Top := stack[stackpointer];
  end
  else
  begin
    Top := 'empty stack';
  end;
end;

function Pop : string;
begin
if(stackpointer > 0) then
  begin
    Top := stack[stackpointer];
    Dec(stackpointer);
  end
  else
  begin
    Top := 'empty stack';
  end;
end;

end.

in zeile 55 und 60 (fett makiert) kommt der fehler:
"der linken Seite kann nichts zugewiesen werden"
wisst ihr da antwort?

Moderiert von Gausi: Quote- durch Delphi-Tags ersetzt
Moderiert von Gausi: B- durch Highlight-Tags ersetzt

Xentar · Verfasst: So 21.06.09 19:26

Verwende result statt Top.

Und nochmal: Delphi Tags hier im Forum, kein Zitat. Dann bleibt auch die Formatierung erhalten.

_________________
PROGRAMMER: A device for converting coffee into software.

michaaaaa · Hält's aus hier Beiträge: 9

danke...
hat geklappt...
programm läuft

#############closed###############

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme