vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Suche Visual-Basic Code
Magische Quadrate 
Autor: met
Datum: 15.05.03 09:37
Hallo,
ich suche den VB-Code um Magische Quadrate (auch gerader Ordnung, nicht nur ungerader Ordnung) zu erstellen.

Ungerade Ordnungen (z.B.: 3x3, 5x5, 7x7, ...) werden so berechnet:

X = K \ 2 + 1
Y = 1
For Z = 1 To K ^ 2
Feld(X, Y) = Z
If Z Mod K = 0 Then
Y = Y + 1
If Y > K Then Y = 1
Else
X = X + 1
Y = Y - 1
If X > K Then X = 1
If Y = 0 Then Y = K
End If
Next Z

Hat jemand 'ne Idee, wie's für gerade (4x4, 6x6, 8x8, ...) geht?

Danke
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Magische Quadrate2.668met15.05.03 09:37
Re: Magische Quadrate1.459michi-bib16.05.03 14:58
Re: Magische Quadrate1.231brave@heart17.05.03 20:04
Re: Magische Quadrate1.163met19.05.03 16:17
Re: Magische Quadrate1.272michi-bib20.05.03 11:39

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel