Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
14. Okt 2004
Sooo...nach einigem überlegen, um- und neuschreiben ist nun folgender code rausgekommen:
procedure TForm1.setfield;
var i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16:integer;
begin
for i1:=1 to 16 do begin
quadrat:=getunusedzahl(1,i1);
for i2:=1 to 15 do begin
quadrat:=getunusedzahl(2,i2);
for i3:=1 to 14 do begin
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
13. Okt 2004
och menno, ich will sie selber rauskriegen
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
13. Okt 2004
deine punkte 2/3 testen obs ne gültige lösung ist (Form1.isCorrect)
die 4 is mein problem....mann könnte sagen:
x,y is nurn beispiel...
....for i:=1 to 16 do
quadrat:= "kleinste zahl >=i die noch nicht vorkommt" (statt i)
......
aber das verschleudert wieder ressourcen, bzw verschlechtert die performance...
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
13. Okt 2004
damit bekomm ich aber nur 1 lösung...
ich hätte aber gerne alle
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
13. Okt 2004
also, ich machs doch nicht rekursiv....
das is mein aktueller versuch, funzt wahrscheinlich auch, aber
erstens: muss ich einbauen das jede zahl nur einmal verwendet werden kann (wie???)
zweitens muss ich noch anner performance arbeiten (es gibt 16^16=18446744073709551616 :) )
procedure TForm1.setfield;
var i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16:integer;...
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
12. Okt 2004
also, ich hab mir das so gedacht:
als erstes wird ne eins eingetragen, dann "weitergeleitet"
wenn man wieder am anfang ist ne zwei, und so weiter...
sodass man in der ersten ebene 1-16 durch hat
für jede zahl (1-16) wird die "zweite ebene" aufgerufen, hier wird dasselbe gemacht
und immer so weiter
Edit: Ich will aber 4x4 haben! *trotz*
Forum: Sonstige Fragen zu Delphi
Delphi
by glkgereon,
12. Okt 2004
moin, ich hab folgendes programm zur lösung eines magischen quadrats geschrieben...
es soll ein 4x4-großes quadrat mit den zahlen 1-16 gefüllt werden, sodass die summen (spalten, zeilen, diagonale) 34 ergeben
ich wollte einfach alle kombinationen ausprobiern, und immer testen obs funzt
doch mir fehlt noch eine idee, wie ich es schaffe, das jede zahl nur einmal eingesetz wird...
hier...