Magic squares of doubly even order: Difference between revisions
→{{header|VBScript}}: Section added
PatGarrett (talk | contribs) m (→{{header|360 Assembly}}: Superfluous blanks suppressed) |
PatGarrett (talk | contribs) (→{{header|VBScript}}: Section added) |
||
Line 1,218:
57 58 6 5 4 3 63 64
</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}}==
| |||