Forum: Programmieren allgemein
by nairolf92,
17. Feb 2010
die prozedur soll bewirken dass jenachdem welchen buchstaben dieser 3 ich bewegen(hier,hier) hinschreibe eine timage scheibe von dem einen turm zum anderen bewegt werden soll. D.h. q steht für den Turm Quelle, a für abeitsbereich und s für senke. ich dachte man kann dann wenn man die prozedur aufrufen will z.b. mit "bewegen(q,s)" bewirken, dass eine scheibe von der quelle zur senke bewegt wird....
Forum: Programmieren allgemein
by nairolf92,
17. Feb 2010
so hab die prozedur jetz ein bisschen verändert:
var
Scheibenbild: Array of timage;
sa: Array of integer;
procedure TForm1.FormCreate(Sender: TObject);
var n : integer;
begin
Forum: Programmieren allgemein
by nairolf92,
15. Feb 2010
So, hab nun erneut ein Problem bei dem ich eure Hilfe benötige.
Ich soll eine Prozedur erstellen, in der ich nur den Anfangs und Endpunkt angeben soll und dann die Scheiben automatisch dahin bewegt werden. Hab schonmal ein Lösungsansatz:
procedure bewegen(start,ziel:integer) ;
var safe,Auswahl1,Auswahl2,Auswahl3,a,s1a,s2a,s3a:integer;
begin
s1a := strtoint(edit5.text);
s2a := 0;
s3a := 0;...
Forum: Programmieren allgemein
by nairolf92,
9. Feb 2010
Ok danke, hab mir jetzt 3 Stapelspeicher erstellt, hat funktioniert. Danke für die Hilfe. ;)
Forum: Programmieren allgemein
by nairolf92,
9. Feb 2010
Hallo,
ich soll von der Schule aus das Spiel "Die Türme von Hanoi" programmieren. Als Türme und Scheiben hab ich jeweils Leinwände benutzt. Ich kann auch schon die scheiben bewegen, indem ich die ausgewählte anklicke und dann in ein Edit feld eine Zahl reinschreibe.
Jetzt habe ich aber das Problem, dass ich nicht weiß wie ich schreiben kann, ob ein Turm schon von einer oder zwei Scheibe/n...