Thema: Delphi magisches feld/quadrat

Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.178 Beiträge
 
Delphi 12 Athens
 
#5

Re: magisches feld/quadrat

  Alt 12. Jan 2004, 09:30
Das ist wohl der Einfachste:
Code:
        [color=olive]1[/color]
      4   2     4 [color=olive]9[/color] 2
    [color=olive]7[/color]  5   [color=olive]3[/color]  [color=olive]3[/color] 5 [color=olive]7[/color] = 15
      8   6     8 [color=olive]1[/color] 6
        [color=olive]9[/color]

             [color=olive]1[/color]
          [color=olive]6[/color]    [color=olive]2[/color]
      11     7     3             11 [color=olive]24[/color] 7 [color=olive]20[/color] 3
   [color=olive]16[/color]   12     8     [color=olive]4[/color]          [color=olive]4[/color] 12 [color=olive]25[/color] 8 [color=olive]16[/color]
[color=olive]21[/color]   17    13     9     [color=olive]5[/color]      17  [color=olive]5[/color] 13 [color=olive]21[/color] 9  = 65
   [color=olive]22[/color]   18    14    [color=olive]10[/color]         [color=olive]10[/color] 18  [color=olive]1[/color] 14 [color=olive]22[/color]
      23    19    15             23  [color=olive]6[/color] 19  [color=olive]2[/color] 15
         [color=olive]24[/color]   [color=olive]20[/color]
            [color=olive]25[/color]
Der Code wdürfte ja nicht so schwer sein, einfach alles, was aus dem Quadrat herausragt, um eine Quadratlänge ins Quadrat hineinschieben...
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat