Autor Beitrag
Fiete
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 617
Erhaltene Danke: 364

W7
Delphi 6 pro
BeitragVerfasst: Mo 07.01.08 14:06 
Das Programm berechnet magische Quadrate beliebiger Ordnung.

Die übliche Definition eines magischen Quadrates lautet:
„Ein magisches Quadrat der Kantenlänge n ist eine quadratische Anordnung der Zahlen 1,2,...,n², sodass die Summe aller Zeilen, Spalten und der beiden Diagonalen gleich ist.“

Unterschieden werden müssen drei Varianten für K=1,2,3,...

n = 2K+1 (ungerade)
n = 4K (Vielfache von 4)
n = 4K+2 (6, 10, 14, ...)

Die Einzelheiten sind in dem Excelblatt "Magische Quadrate.xls" einzusehen.

Im Programm kann über Info - Erläuterungen die htm-Version angezeigt werden(ist ActiveX).

Die Kantenlänge ist auf 999 (dauert ein wenig) beschränkt!

Gruß
Fiete
Einloggen, um Attachments anzusehen!
_________________
Fietes Gesetz: use your brain (THINK)