Magisches Quadrat

[Klaus01]

Zitat von DelphiNerd91:

.. ich habe nie in delphi aufgepasst. Und jetzt geht es leider fast um die versetzung, durch informatik :)..

.. dumm gelaufen ..

Magisches Quadrat
Dort steht geschrieben:

Zitat:

Die Anzahl magischer Quadrate Es gibt ein (triviales) magisches Quadrat mit Kantenlänge 1, jedoch keines mit Kantenlänge 2. Abgesehen von Symmetrieoperationen (d.h. in der Frénicle-Standardform) gibt es auch nur ein einziges magisches Quadrat mit Kantenlänge 3 (siehe unter Lo-Shu). Alle 880 magischen Quadrate mit Kantenlänge 4 wurden bereits 1693 von Frénicle de Bessy gefunden. Mit Kantenlänge 5 gibt es 275.305.224 magische Quadrate; darüber hinaus sind keine genauen Zahlen bekannt, es gibt jedoch bis etwa n = 20 relativ verlässliche Abschätzungen. Die weitest reichenden Berechnungen wurden von Walter Trump durchgeführt[1]. Auch die Anzahl symmetrischer, pandiagonaler und ultramagischer Quadrate für kleinere n ist bekannt, beispielsweise gibt es 48 symmetrische magische Quadrate mit Kantenlänge 4 und 16 ultramagische Quadrate mit Kantenlänge 5.

Zur Darstellung würde ich ein StringGrid nehmen.
3 Spalten und 3 Zeilen.
Zur Datenhaltung ein zweidimensionales Array.

.. und dann mal anfangen ..

Grüße
Klaus