>
magisches Quadrat 4x4
zu magischen Quadraten mit ungerader Seitenlänge:
wenn man z.B. nach Jelly's Art rechnet, dann braucht man schon ein bissl viel Quellcode.
>
http://www.buha.info/board/showthread.php?t=42053 (hier ist z.B. so ein Code)
aber wenn man sich den ursprünglichen Aufbau eines sochen einfachen MQuadrates ansieht (siehe Anhang)
und den Code wieder auf dieses zurückführt, dann benötigt man nur noch eine Schleife und eine Zuweisung.
Diesen Code hatte ich mir mal mittels Überlaufberechnung (oder wie man das nennen soll) erstellt.
(kürzer/schneller geht es eigentlich nicht mehr, es sei den man mach noch 'ne 2. Variable rein)
Delphi-Quellcode:
For i := 0 to Sqr(a) - 1 do
StringGrid1.Cells[((i mod a - i div a) + a div 2 + a) mod a,
(i mod a + i div a + a) mod a] := IntToStr(i + 1);