Magisches Quadrat

[Wargrave]

Ich bastel gerade an einem magischen Quadrat.
Das Problem ist nicht eines herzustellen,sondern zu überprüfen ob es sich in dem gegebenen Fall um einen magischen Würfel handelt.
Also ichhabe schon alles geshcreiben, sodass der eineen 4x4 Kästchen großen Stringgrid mit Zahlen füttert.
Auf Knopfdruck soll der nun überprüfen ob das ein magscihes Wuadrat is... ich steh voll aufm Schlauch. kann mir einer dabei helfen?
Mfg Wargrave

[Jelly]

Was hast du denn bis jetzt als Code?

du musst doch im Grunde nur dein StringGrid Zeile für Zeile abklappern, und die Summen rechnen. Das Gleiche machst du dann noch mit den Spalten und den Diagonalen. Sobald sich eine Summer von einer vorherigen unterscheidet, ist es KEIN magisches Quadrat.

[Wargrave]

Jo stimmt.
Also .. ich habe schonmal jeder Zeil, jeder Spalte, und jeder Diagonale eine Variable zugeordnet.
Dass heißt : var1= Summe aller Kästechen aus der ersten Zeile usw...
Ich hab jtzt 4Vars für die horizontalen und 4 Vars für die vertikalen und 2 vars für die diagonalen.
aber wie vergleiche ich jetzt die 10 variablen, korrekt und ordentlich?
Mfg Patrick

[Stanlay Hanks]

Delphi-Quellcode:

if (var1=var2) and (var1=var3) and (var1=var4) and ... then

Genau das selbe (Mehrere Variablen vergleichen) hatten wir heute schon Mal ;)

Aber theoretisch reichen auch zwei Variablen. Eine für die aktuell berechnete Reihe,Spalte oder Diagonale und eine für die letzte berechnete Summe. Die erste muss immer gleich der zweiten sein.

Man liest sich, Stanlay :hi: