Magic squares of doubly even order: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
PatGarrett (talk | contribs) (→{{header|VBScript}}: Section added) |
||
Line 1,218: | Line 1,218: | ||
57 58 6 5 4 3 63 64 |
57 58 6 5 4 3 63 64 |
||
</pre> |
</pre> |
||
=={{header|VBScript}}== |
|||
{{trans|Java}} |
|||
<lang vb> |
|||
' Magic squares of doubly even order |
|||
n=8 'multiple of 4 |
|||
pattern="1001011001101001" |
|||
size=n*n: w=len(size) |
|||
mult=n\4 'how many multiples of 4 |
|||
wscript.echo "Magic square : " & n & " x " & n |
|||
i=0 |
|||
For r=0 To n-1 |
|||
line="" |
|||
For c=0 To n-1 |
|||
bit=Mid(pattern, c\mult+(r\mult)*4+1, 1) |
|||
If bit="1" Then t=i+1 Else t=size-i |
|||
line=line & Right(Space(w) & t, w) & " " |
|||
i=i+1 |
|||
Next 'c |
|||
wscript.echo line |
|||
Next 'r |
|||
wscript.echo "Magic constant=" & (n*n+1)*n/2 |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
Magic square : 8 x 8 |
|||
1 2 62 61 60 59 7 8 |
|||
9 10 54 53 52 51 15 16 |
|||
48 47 19 20 21 22 42 41 |
|||
40 39 27 28 29 30 34 33 |
|||
32 31 35 36 37 38 26 25 |
|||
24 23 43 44 45 46 18 17 |
|||
49 50 14 13 12 11 55 56 |
|||
57 58 6 5 4 3 63 64 |
|||
Magic constant=260 |
|||
</pre> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |