Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
12. Jan 2004
Das ist auch eine Art Magisches Quadrat, auch wenn es die wohl billigste Variante ist und auch nicht so ganz magisch aussieht.
{StringGrid1: TStringGrid}
Const G = 5; {Größe der Quadrats}
Var X, Y, S: Integer;
Begin
StringGrid1.ColCount := G + 1;
StringGrid1.RowCount := G;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
12. Jan 2004
Das ist wohl der Einfachste:
1
4 2 4 9 2
7 5 3 3 5 7 = 15
8 6 8 1 6
9
1
6 2
11 7 3 11 24 7 20 3
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
12. Jan 2004
Sowas nennt sich "Magisches Quadrat".
http://www.mathe.tu-freiberg.de/~hebisch/cafe/magisch.html