Magic squares of doubly even order: Difference between revisions
Content added Content deleted
PatGarrett (talk | contribs) (→{{header|VBScript}}: Section added) |
PatGarrett (talk | contribs) m (→{{header|VBScript}}: Superfluous blanks suppressed) |
||
| Line 1,221: | Line 1,221: | ||
=={{header|VBScript}}== |
=={{header|VBScript}}== |
||
{{trans|Java}} |
{{trans|Java}} |
||
| ⚫ | |||
<lang vb> |
|||
| ⚫ | |||
n=8 'multiple of 4 |
n=8 'multiple of 4 |
||
pattern="1001011001101001" |
pattern="1001011001101001" |
||
| Line 1,239: | Line 1,238: | ||
wscript.echo line |
wscript.echo line |
||
Next 'r |
Next 'r |
||
wscript.echo "Magic constant=" & (n*n+1)*n/2 |
wscript.echo "Magic constant=" & (n*n+1)*n/2</lang> |
||
</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
| Line 1,254: | Line 1,252: | ||
Magic constant=260 |
Magic constant=260 |
||
</pre> |
</pre> |
||
=={{header|zkl}}== |
=={{header|zkl}}== |
||