magisches Sechseck

Fiete · Beiträge: 601 Erhaltene Danke: 339 W7 Delphi 6 pro

Moin,
ein magisches Sechseck enthält die Zahlen 1 bis 19 und alle 15 Summen haben den Wert 38, horizontal (-), schräg nach oben rechts (/) und nach unten rechts(\).
Screen

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

// interne Codierung  die fallenden Diagonalen
// 000##                    345##
// 0000#                    2345#
// 00000                    12345
// #0000                    #1234    
// ##000                    ##123

Viel Spaß beim Testen und Studieren.
Gruß Fiete

Einloggen, um Attachments anzusehen!

_________________
Fietes Gesetz: use your brain (THINK)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme