QB64.org Forum

Active Forums => Programs => Topic started by: AndyA on April 16, 2021, 12:14:16 am

Title: Magic Squares of Odd Order (Rosetta Code task)
Post by: AndyA on April 16, 2021, 12:14:16 am

https://rosettacode.org/wiki/Magic_squares_of_odd_order#QB64 (https://rosettacode.org/wiki/Magic_squares_of_odd_order#QB64)

'==================================================
Task
For any odd   N,   generate a magic square with the integers   1 ──► N,   and show the results here.

Optionally, show the magic number.

You should demonstrate the generator by showing at least a magic square for   N = 5.
'==================================================

Code: QB64: [Select]

1. _Title "Magic Squares of Odd Order"
2. '$Dynamic
3. DefLng A-Z
4. Dim Shared As Long m(1, 1)
5.  
6. Call magicSquare(5)
7. Call magicSquare(15)
8.  
9. Sleep
10. System
11.  
12. Sub magicSquare (n As Integer)
13.     Dim As Integer inc, count, row, col
14.  
15.     If (n < 3) Or (n And 1) <> 1 Then n = 3
16.     ReDim m(n, n)
17.     inc = 1
18.     count = 1
19.     row = 1
20.     col = (n + 1) / 2
21.     While count <= n * n
22.         m(row, col) = count
23.         count = count + 1
24.         If inc < n Then
25.             inc = inc + 1
26.             row = row - 1
27.             col = col + 1
28.             If row <> 0 Then
29.                 If col > n Then col = 1
30.             Else
31.                 row = n
32.             End If
33.         Else
34.             inc = 1
35.             row = row + 1
36.         End If
37.     Wend
38.     Call printSquare(n)
39. End Sub
40.  
41. Sub printSquare (n As Integer)
42.     Dim As Integer row, col
43.     'Arbitrary limit ensures a fit within console window
44.     'Can be any size that fits within your computers memory limits
45.     If n < 21 Then
46.         Print "Order "; n; " Magic Square constant is "; Str$(Int((n * n + 1) / 2 * n))
47.         For row = 1 To n
48.             For col = 1 To n
49.                 Print Using "####"; m(row, col);
50.             Next col
51.             Print
52.             ' Print
53.         Next row
54.     End If
55. End Sub

Text Only | Text with Attachments